Сканирование расшаренных папок. - Компьютерный форум OSzone.net

Коллеги, приветствую!
Помогите пожалуйста, Поставлена задача нахождения в локальной сети ПК с расшаренными папками. Решение данной задачи видится так: Выгружаю список компьютеров с 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

//А здесь хотелось бы добавить запись лог-файла

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