Андрей Попов - Windows Script Host для Windows 2000/XP

Res=WshShell.Popup("Записать параметр" & vbCrLf & Root & Key & _

ValueName & "?",0,"Работа с реестром",vbQuestion+vbYesNo)

If Res=vbYes Then 'Нажата кнопка Да

'Записываем новый строковый параметр

WshShell.RegWrite Root & Key & ValueName,SValue,"REG_SZ"

WshShell.Popup "Параметр" & vbCrLf & Root & Key & _

ValueName & " записан!",0,"Работа с реестром",vbInformation+vbOkOnly

'Считываем значение созданного параметра

SRegValue=WshShell.RegRead(Root & Key & ValueName)

'Выводим на экран полученное значение

WshShell.Popup Root & Key & ValueName & "=" & SRegValue,0,_

"Работа с реестром",vbInformation+vbOkOnly

End If

'Запрос на удаление параметра

Res=WshShell.Popup("Удалить параметр" & vbCrLf & Root & Key & _

ValueName & "?",0,"Работа с реестром",vbQuestion+vbYesNo)

If Res=vbYes Then 'Нажата кнопка Да

'Удаляем параметр

WshShell.RegDelete Root & Key & ValueName

WshShell.Popup "Параметр" & vbCrLf & Root & Key & _

ValueName & " удален!",0,"Работа с реестром",vbInformation+vbOkOnly

End If

'Запрос на удаление раздела

Res=WshShell.Popup("Удалить раздел" & vbCrLf & Root & Key & _

"?",0,"Работа с реестром",vbQuestion+vbYesNo)

If Res=vbYes Then 'Нажата кнопка Да

'Удаляем раздел

WshShell.RegDelete Root & Key

WshShell.Popup "Раздел" & vbCrLf & Root & Key & " удален!",0,_

"Работа с реестром",vbInformation+vbOkOnly

End If

'************* Конец *********************************************

Стандартным объектом, позволяющим выполнять типовые операции с локальной сетью, является WshNetwork. С помощью этого объекта можно:

□ узнать сетевое имя компьютера, имя текущего пользователя и название домена, в котором он зарегистрировался;

□ получить список всех сетевых дисков и всех сетевых принтеров, подключенных к рабочей станции;

□ подключить или отключить сетевой диск и принтер;

□ установить сетевой принтер в качестве принтера, используемого по умолчанию.

Для решения более сложных задач, связанных с администрированием локальной сети, можно применять имеющиеся в Windows ХР технологии ADSI — Active Directory Service Interface и WMI — Windows Management Instrumentation.

Для того чтобы из сценария узнать имя текущего пользователя, домена и компьютера в сети, можно использовать соответствующие свойства объекта WshNetwork: UserName, Domainи ComputerName. Примеры сценариев на языках JScript и VBScript, которые выводят на экран такую информацию, приведены в листингах 2.46 и 2.47.

/********************************************************************/

/* Имя: NetworkParam.js */

/* Язык: JScript */

/* Описание: Вывод сетевых параметров станции */

/********************************************************************/

var WshNetwork,s; //Объявляем переменные

//Создаем объект WshNetwork

WshNetwork = WScript.CreateObject("WScript.Network");

s="Сетевые параметры станции:\n\n";

//Выводим на экран свойства ComputerName, UserName и UserDomain

s+="Имя машины: "+WshNetwork.ComputerName+"\n";

s+="Имя пользователя: "+WshNetwork.UserName+"\n";

s+="Домен: "+WshNetwork.UserDomain;

WScript.Echo(s);

/************* Конец *********************************************/

'********************************************************************

' Имя: NetworkParam.vbs

' Язык: VBScript

' Описание: Вывод сетевых параметров станции

'********************************************************************

Option Explicit

Dim WshNetwork,s,NetwDrives,i,NetwPrinters ' Объявляем переменные

' Создаем объект WshNetwork

Set WshNetwork = WScript.CreateObject("WScript.Network")

s="Сетевые параметры станции:" & vbCrLf & vbCrLf

' Выводим на экран свойства ComputerName, UserName и UserDomain

s=s & "Имя машины: " & WshNetwork.ComputerName & vbCrLf

s= s & "Имя пользователя: " & WshNetwork.UserName & vbCrLf

s= s & "Домен: " & WshNetwork.UserDomain

WScript.Echo s

'************* Конец *********************************************