Упражнение 2. Применение констант

Константы в VBScript: самостоятельная работа

Скопируйте на свой компьютер файл \\London\templates\constants.vbs и откройте его в Primal Script. Этот скрипт создает локальную группу TestGroup на вашем компьютере.

В связи с ошибками, которые были недавно обнаружены в некоторых ADSI-скриптах, было решено заменять числовые значения (в частности, для типов групп) на константы.

Вы должны:

1) объявить константы в соответствии с таблицей ниже

2) изменить скрипт таким образом, чтобы он использовал значения данных констант

Текст скрипта constants.vbs выглядит так:

Option Explicit
Dim oWshNetwork
Dim sComputerName
Dim oComp
Dim oGroup

Set oWshNetwork = WScript.CreateObject("WScript.Network")
sComputerName = oWshNetwork.ComputerName

Set oComp = GetObject("WinNT://" & sComputerName)
Set oGroup = oComp.Create("group", "Testgroup")
oGroup.GroupType = &H4
oGroup.SetInfo

Ответ к упражнению 2.  Применение констант

Итоговый код скрипта может быть таким:

Option Explicit

Dim oWshNetwork

Dim sComputerName

Dim oComp

Dim oGroup

Const ADSI_DOMAIN_GLOBAL_GROUP = &H2

Const ADSI_DOMAIN_LOCAL_GROUP = &H4

Const ADSI_COMPUTER_LOCAL_GROUP = &H4

Const ADSI_DOMAIN_UNIVERSAL_GROUP = &H8

Const ADSI_GROUP_SECURITY = &H8000000

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

sComputerName = oWshNetwork.ComputerName

Set oComp = GetObject("WinNT://" & sComputerName)

Set oGroup = oComp.Create("group", "Testgroup")

oGroup.GroupType = ADSI_DOMAIN_LOCAL_GROUP

oGroup.SetInfo

Получить учебные материалы по этому курсу