Приведите здесь результаты исполнения (раздельно):
Код:
strComputer = "server"
For Each elem In GetObject("WinNT://" & strComputer & "/LanmanServer,FileService")
WScript.Echo elem.Name, vbTab, elem.Path
Next
и:
Код:
strComputer = "server"
For Each elem In GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2").InstancesOf("Win32_Share")
WScript.Echo elem.Name, vbTab, elem.Type, vbTab, elem.Caption
Next
и укажите, какие ресурсы, из перечисленных, будут участвовать в поиске. Попробуем их отобрать.
