If Res=vbYes Then 'Нажата кнопка Да
'Записываем новый ключ
WshShell.RegWrite Root & Key, ''
WshShell.Popup 'Ключ' & vbCrLf & Root & Key & ' создан!',0,_
'Работа с реестром',vbInformation+vbOkOnly
End If
'Запрос на запись нового параметра
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='Сетевые параметры станции:
';
//Выводим на экран свойства ComputerName, UserName и UserDomain
s+='Имя машины: '+WshNetwork.ComputerName+'
';
s+='Имя пользователя: '+WshNetwork.UserName+'
';
s+='Домен: '+WshNetwork.UserDomain;
WScript.Echo(s);
/************* Конец *********************************************/
'********************************************************************
' Имя: NetworkParam.vbs
' Язык: VBScript
' Описание: Вывод сетевых параметров станции
'********************************************************************
Option Explicit
Dim WshNetwork,s,NetwDrives,i,NetwPrinters ' Объявляем переменные
' Создаем объект WshNetwork
Set WshNetwork = WScript.CreateObject('WScript.Network')
