Академия Специальных Курсов по Компьютерным Технологиям
    Главная страница Послать письмо
 
AskIt.ru  
   
   
   
   
   
   
 
 
  Главная / Заказные курсы / Программирование для администраторов
 
 

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


<-- Назад Читать дальше -->

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

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

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

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

Вы должны:

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

Значение

Заменяющая константа

&H2

ADSI_DOMAIN_GLOBAL_GROUP

&H4

ADSI_DOMAIN_LOCAL_GROUP

&H4

ADSI_COMPUTER_LOCAL_GROUP

&H8

ADSI_DOMAIN_UNIVERSAL_GROUP

&H8000000

ADSI_GROUP_SECURIY

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

 

   
   
   
   
   
   
   
   
   
   
 
<-- Назад Читать дальше -->

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


 

 
© 2004-2016, Академия Специальных Курсов
по Информационным Технологиям
.
Все права защищены.

Разработка NevaStudio
г. Санкт-Петербург, Васильевский остров,
20-я линия, д. 7
Офис 101, 2-й этаж
Телефон: 8(812)922-47-60
E-mail: info@askit.ru