Первая часть скрипта сканирует сеть и выводит шары но надо научить его что в случае обнаружения скопировать файлы в найденные папки
- Код: Выделить всё
Set objNetwork = CreateObject("Shell.Application").NameSpace(&H12) ' получение объекта "Сетевое окружение"
Set objEntireNetwork = objNetwork.Items().Item("EntireNetwork").GetFolder ' получение объекта "Вся сеть"
For Each objNetItem In objEntireNetwork.Items()
If objNetItem.Name = "Microsoft Windows Network" Then
Set objMSWinNetwork = objNetItem.GetFolder ' получение объекта "Microsoft Windows Network"
Exit For
End If
Next
For Each objMSNetItem In objMSWinNetwork.Items()
WScript.Echo objMSNetItem.Name & ":"
Set objDomain = objMSNetItem.GetFolder ' получение объекта WORKGROUP или DOMAIN
For Each objDomainItem In objDomain.Items()
WScript.Echo vbTab & "\\" & objDomainItem.Name
Set objComputer = objDomainItem.GetFolder ' получение объекта Computer
For Each objCompItem In objComputer.Items()
If objCompItem.IsFileSystem Then
WScript.Echo vbTab & vbTab & objCompItem.Name
End If
Next
Next
Next
как быть дальше? нужно чтобы все это было в фоновом режиме, чтобы окошки с подтверждением не открывались а файлы просто копировались
