Войти

Показать полную графическую версию : Сканирование расшаренных папок.


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
//А здесь хотелось бы добавить запись лог-файла

Заранее всем большое спасибо!

Iska
28-11-2013, 11:30
Если Вы не планируете ручками добавлять/убирать машины в список — какой смысл в выгрузке списка в файл?

Freek
28-11-2013, 11:35
Если Вы не планируете ручками добавлять/убирать машины в список — какой смысл в выгрузке списка в файл? »
С этим полностью согласен. Можно просто с нужной OUшки в AD.
Тогда я так понял проще на PowerShell'e сделать скрипт, я как раз уже начал его писать.




© OSzone.net 2001-2012