Определение принтеров на удаленном компьютере

[SVL]

Всем привет! Тут возникла такая проблема. Необходимо определить все подключенные принтеры на удаленном компьютере. Попробовал реализовать это с помощью функции Wscript EnumPrinterConnections
Но код

Код: Выделить всё

Set wsh = CreateObject("WScript.Network","remotepc")

вызывает ошибку:"Невозможно создать ActiveX объект"
Может кто знает как это сделать? Или может кто подскажет как реализовать это через WMI?

[RayShade]

Копни чтоли в сторону WMI. Что то типа:

Код: Выделить всё

set prns =getobject("winmgmts:\\remotepc").instancesof("Win32_Printer")

Ну и дальше перебирай полученную коллекцию. Описание класса - в MSDN.

[SVL]

2RayShade:Спасибо за правильный путь!!!!

[RayShade]

Всегда пожалуйста