Чтение онлайн

на главную

Жанры

Windows Script Host для Windows 2000/XP

Попов Андрей Викторович

Шрифт:

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.

Листинг 2.46. Вывод сетевых параметров станции (JScript)

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

/* Имя: 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);

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

Листинг 2.47. Вывод сетевых параметров станции и списков подключенных сетевых ресурсов (VBScript)

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

' Имя: 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

Поделиться:
Популярные книги

Телепат

Крюкова Тамара Шамильевна
Фантастика:
научная фантастика
7.83
рейтинг книги
Телепат

Год 1944 — «победный»

Бешанов Владимир Васильевич
Великая Отечественная : Неизвестная война
Научно-образовательная:
военная история
6.00
рейтинг книги
Год 1944 — «победный»

Табак

Димов Димитр
Проза:
историческая проза
6.25
рейтинг книги
Табак

Коммунизм как реальность

Зиновьев Александр Александрович
Документальная литература:
критика
публицистика
6.25
рейтинг книги
Коммунизм как реальность

Гурко. Под стягом Российской империи

Тумасов Борис Евгеньевич
Русские полководцы
Проза:
историческая проза
5.00
рейтинг книги
Гурко. Под стягом Российской империи

Любовь - только слово

Зиммель Йоханнес Марио
Проза:
классическая проза
5.00
рейтинг книги
Любовь - только слово

Русская мафия 1991–2014. Новейшая история бандитской России

Карышев Валерий Михайлович
Энциклопедия криминала
Документальная литература:
прочая документальная литература
5.00
рейтинг книги
Русская мафия 1991–2014. Новейшая история бандитской России

Кодекс Крови. Книга VII

Борзых М.
7. РОС: Кодекс Крови
Фантастика:
боевая фантастика
попаданцы
аниме
5.25
рейтинг книги
Кодекс Крови. Книга VII

Война за возвышение

Брин Дэвид
3. Возвышение
Фантастика:
космическая фантастика
7.57
рейтинг книги
Война за возвышение

Медиапланирование на 100%

Назайкин Александр
Деловая литература:
маркетинг, pr, реклама
5.00
рейтинг книги
Медиапланирование на 100%

Пустоши

Сай Ярослав
1. Медорфенов
Фантастика:
фэнтези
попаданцы
5.40
рейтинг книги
Пустоши

Гримуар темного лорда VIII

Грехов Тимофей
8. Гримуар темного лорда
Фантастика:
боевая фантастика
альтернативная история
аниме
фэнтези
фантастика: прочее
попаданцы
5.25
рейтинг книги
Гримуар темного лорда VIII

Коррида

Зевако Мишель
6. История рода Пардальянов
Приключения:
исторические приключения
6.25
рейтинг книги
Коррида

Миллион приключений (сборник)

Булычев Кир
15. Отцы-основатели - Русское пространство. Кир Булычев - Собрание сочинений
Фантастика:
научная фантастика
7.00
рейтинг книги
Миллион приключений (сборник)