Freek
28-11-2013, 10:56
Коллеги, приветствую!
Помогите пожалуйста, Поставлена задача нахождения в локальной сети ПК с расшаренными папками. Решение данной задачи видится так: Выгружаю список компьютеров с AD или с помощью SCCM в текстовый файл в любом формате, через точку с запятой, через пробел, через .... (К примеру блокнот с названием COMPUTERS.txt)
IVANOV
PETROV
SIDOROV
Либо так: (есть возможность выгрузить в любом формате)
IVANOV;PETROV;SIDOROV
Затем создать скрипт VBS для сканирования на предмет расшаренных папок, в нём указать список ПК (COMPUTERS.txt)
Данные должны записаться в лог-файл и каждый раз перезаписываться. Желательно: Имя ПК, Расшаренная папка или путь к расшаренной папке (по возможности дата).
На данный момент располагаю только таким скриптом :(
Option Explicit
Dim CompName : CompName = "IVANOV" //Здесь хотелось бы указать файл с COMPUTERS.txt
Dim fso, oWmi, oSelQ
Dim Share
'On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
Set oWmi = GetObject("WinMgmts:{impersonationLevel=impersonate}!//" & CompName & "/root/cimv2")
Set oSelQ = oWmi.ExecQuery("SELECT * FROM Win32_Share")
For Each Share In oSelQ
MsgBox "Share Name: " & Share.Name & Chr(13) & "Share Path: " & Share.Path //Всплывающие сообщения хотелось бы убрать вообще
Next
Set oSelQ = Nothing
Set oWMI = Nothing
Set fso = Nothing
//А здесь хотелось бы добавить запись лог-файла
Заранее всем большое спасибо!
Помогите пожалуйста, Поставлена задача нахождения в локальной сети ПК с расшаренными папками. Решение данной задачи видится так: Выгружаю список компьютеров с AD или с помощью SCCM в текстовый файл в любом формате, через точку с запятой, через пробел, через .... (К примеру блокнот с названием COMPUTERS.txt)
IVANOV
PETROV
SIDOROV
Либо так: (есть возможность выгрузить в любом формате)
IVANOV;PETROV;SIDOROV
Затем создать скрипт VBS для сканирования на предмет расшаренных папок, в нём указать список ПК (COMPUTERS.txt)
Данные должны записаться в лог-файл и каждый раз перезаписываться. Желательно: Имя ПК, Расшаренная папка или путь к расшаренной папке (по возможности дата).
На данный момент располагаю только таким скриптом :(
Option Explicit
Dim CompName : CompName = "IVANOV" //Здесь хотелось бы указать файл с COMPUTERS.txt
Dim fso, oWmi, oSelQ
Dim Share
'On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
Set oWmi = GetObject("WinMgmts:{impersonationLevel=impersonate}!//" & CompName & "/root/cimv2")
Set oSelQ = oWmi.ExecQuery("SELECT * FROM Win32_Share")
For Each Share In oSelQ
MsgBox "Share Name: " & Share.Name & Chr(13) & "Share Path: " & Share.Path //Всплывающие сообщения хотелось бы убрать вообще
Next
Set oSelQ = Nothing
Set oWMI = Nothing
Set fso = Nothing
//А здесь хотелось бы добавить запись лог-файла
Заранее всем большое спасибо!