УЧЕБНИК ПО АВТОУСТАНОВКЕ WINDOWS


         

Объект Shell для запуска исполняемого



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

'Объявляем переменные.

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

Dim oGroup 'Объект ADSI созданный с помощью функции GetObject()

Dim oWshShell ' Объект Shell для запуска исполняемого файла (smsman.exe)

Dim sInDomain 'Используется для проверки членства в домене

Dim sCompName 'Имя локального компьютера

Dim oWshNet 'Объект WshNetwork

Dim sUser 'Имя пользователя для проверки на ошибки

Dim sMember 'Для проверки членства в группе (0 или 1)

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

'Объявляем константы.

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

Const GLOBAL_GROUP = "WEBDEV" 'Глобальная группа, добавляемая к локальной группе

Const LOCAL_GROUP = "Administrators" 'Имя локальной группы

Const DOMAIN = "GONDOR" 'Имя домена

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

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

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

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

Set oWshNet = Wscript.CreateObject("Wscript.Network")

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

Set oWshShell = Wscript.CreateObject("Wscript.Shell")

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

'Получаем локальную информацию.

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

sUser = oWshNet.Username 'Получаем имя входа текущего пользователя.

SCompName = oWshNet.Computername 'Получаем имя компьютера.

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

'Убедимся, что вошедший пользователь является Администратором, если это не так, завершаем работу сценария.

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

IF UCASE(sUser) <> "ADMINISTRATOR" THEN

 Wscript.Echo "You must be logged in as ""ADMINISTRATOR"" to run this " & _

"script! " & vbCRLF & vbCRLF & "Log off and login as " & _

"""ADMINISTRATOR"" to the local machine " & "(" & sCompName & ")." & _

Содержание  Назад  Вперед