/* Описание: Вывод на экран сетевого имени компьютера и имени */
/* пользователя */
/*******************************************************************/
var objNet;
//Создаем объект WshNetwork
objNet = WScript.CreateObject("WScript.Network");
//Выводим на экран свойства ComputerName и UserName
WScript.Echo("Имя машины:",objNet.ComputerName);
WScript.Echo("Имя пользователя:",objNet.UserName);
/************* Конец *********************************************/
Методы объекта WshNetwork описаны в табл. 1.6.
Таблица 1.6. Методы объекта WshNetwork
| Метод | Описание |
|---|---|
AddPrinterConnection(strLocalName, strRemoteName [ ,bUpdateProfile] [,strUser] [,strPassword]) |
Подключает локальный порт компьютера к сетевому принтеру |
Для Windows NT/2000/XP: AddWindowsPrinterConnection(strPrnPath) Для Windows 9x: AddWindowsPrinterConnection(strPrnPath, strDriverName[, strPort]) |
Регистрирует принтер в Windows и подключает его к сетевому ресурсу. В отличие от AddPrinterConnection, этот метод позволяет создать связь с сетевым принтером без явного перенаправления вывода в локальный порт |
EnumNetworkDrives() |
Возвращает коллекцию, в которой хранятся буквы и сетевые пути ко всем подключенным сетевым дискам |
EnumPrinterConnections() |
Возвращает коллекцию, в которой хранятся данные обо всех подключенных сетевых принтерах |
MapNetworkDrive(strLocalName, strRemoteName, [bUpdateProfile], [strUser], [strPassword]) |
Подключает сетевой ресурс strRemoteName под локальным именем диска strLocalName |
RemoveNetworkDrive(strName, [bForce], [bUpdateProfile]) |
Отключает подключенный сетевой диск |
RemovePrinterConnection(strName, [bForce], [bUpdateProfile]) |
Отключает подключенный сетевой принтер |
SetDefaultPrinter(strPrinterName) |
Делает заданный сетевой принтер принтером по умолчанию |
Опишем методы из табл. 1.6 более подробно.
Метод AddPrinterConnection
Если необязательный параметр bUpdateProfile равен True, то создаваемое сетевое подключение будет сохранено в профиле пользователя.
Параметры strUser (имя пользователя) и strPassword (пароль) нужны в том случае, когда вы подключаете сетевой принтер от имени пользователя, которое отличается от имени текущего пользователя, зарегистрированного в системе.
В следующем примере метод AddPrinterConnection применяется для подключения принтера с сетевым именем \\Server1\Epson к локальному порту LPT1:
var WshNetwork = CreateObject("WScript.Network");
WshNetwork.AddPrinterConnection("LPT1", "\\Server1\Epson");
Метод AddWindowsPrinterConnection
Параметр strDriverName указывает имя драйвера, необходимого для подключаемого принтера. Если принтер подключается в операционной системе Windows 9х, то нужный драйвер уже должен быть установлен на этой машине, иначе возникнет ошибка подключения. В Windows NT/2000/XP параметр strDriverName игнорируется.
Параметр strPort задает в явном виде порт, вывод в который будет перенаправлен на сетевой ресурс (по умолчанию это порт LPT1). В Windows NT/2000/XP параметр strPort игнорируется.
В следующем примере метод AddWindowsPrinterConnection применяется для подключения сетевого принтера к локальному порту LPT1 (по умолчанию):
var WshNetwork=CreateObject("WScript.Network");
PrinterPath="\\printserv\DefaultPrinter";
PrinterDriver="Lexmark Optra S 1650";
WshNetwork.AddwindowsPrinterConnection(PrinterPath, PrinterDriver);
Метод EnumNetworkDrives
Элементами возвращаемой коллекции являются буквы, обозначающие имеющиеся сетевые диски и сетевые имена ресурсов, к которым эти диски подключены. Первым элементом коллекции является буква, вторым — сетевое имя; эта последовательность сохраняется для всех сетевых дисков в коллекции.