|
Duke1C
1 - 05.03.2009 - 11:32
|
WshNetwork = СоздатьОбъект("WScript.Network");
Назначение:
Объект WshNetwork обеспечивает доступ к общим ресурсам сети, с которой связан ваш компьютер. С его помощью можно подключать/отключать сетевые диски и принтеры; устанавливать принтеры по умолчанию; получать параметры текущего сетевого подключения.
Пример:
WshNetwork = CreateObject("WScript.Network");
Сообщить("Имя компьютера: "+WshNetwork.ComputerName);
Сообщить("Имя домена: "+WshNetwork.UserDomain);
Сообщить("Имя пользователя: "+WshNetwork.UserName);
NetworkDrives=WshNetwork.EnumNetworkDrives();
Для Сч=0 По NetworkDrives.length-1 Цикл
Сообщить("Подключен сетевой диск "+NetworkDrives.Item(сч)+" ["+NetworkDrives.Item(сч+1)+"]");
сч=сч+1;
КонецЦикла;
NetworkPrinters=WshNetwork.EnumPrinterConnections();
Для Сч=0 По NetworkPrinters.length-1 Цикл
Сообщить("Подключен сетевой принтер "+NetworkPrinters.Item(сч)+" ["+NetworkPrinters.Item(сч+1)+"]");
сч=сч+1;
КонецЦикла; |