VBS: Прошу помощи у уважаемых знатоков VBS + AD

2014-12-26T10:01:25Z

Доброго времени суток, уважаемые форумчане. Я только начал изучать VBS, принцип вообщем то мне понятен, только вот не хватает знаний. Помогите пожалуйста в создании следующего скрипта.
Хочу немного облегчить рутинную работу админа. Необходимо создавать сразу 2х пользователей + 2 компа + группа + включить этих 2х пользователей в определенные группы в AD (причем обоих в разные группы), а так же добавить одному из них определенные права на определенную группу в безопасности.
У всех создаваемых объектов есть общая часть в названии. т.е.
пользователи:
CN=Пользователь1 число,OU=users,OU=uroven1,OU=uroven1,DC=domen,DC=local
CN=Пользователь2 число,OU=users,OU=uroven1,OU=uroven1,DC=domen,DC=local
У каждого пользователя логин: число-a и число-b соответственно.
так же каждому пользователю надо задать пароль

группа:
CN=gruppчисло,OU=users,OU=uroven1,OU=uroven1,DC=domen,DC=local

компы:
CN=comp1число,OU=PC,OU=uroven1,OU=uroven2,DC=domen,DC=local
CN=comp2число,OU=PC,OU=uroven1,OU=uroven2,DC=domen,DC=local

красным шрифтом выделено число которое одинаково для всех объектов

Вот что я начал делать:


shnum = inputbox("Введите № объекта")
strLine = shnum

DomainDN = "dc=domen, dc=local"
usrm = "CN=Пользователь1 " & strLine
usrt = "CN=Пользователь2 " & strLine
loginm = strLine & "-a"
logint = strLine & "-b"
comp1 = "CN=comp1" & strLine
comp2 = "CN=comp2" & strLine
grpshop = "CN=grupp" & strLine

Set objContainer = GetObject("LDAP: //OU=uroven2,DC=domen,DC=local")
Set objUser = objContainer.Create("User", usrm & ",OU=user,OU=uroven1")
objUser.Put "samAccountName", loginm
objUser.Put "sn", "Usser" & strLine
objUser.Put "givenName", usrm
objUser.Put "DisplayName", "Пользован" & strLine
objUser.SetPassword "12345"
objUser.AccountDisabled = False
objUser.SetInfo ()
WScript.Echo "Скрипт выполнен"

но вот уперся:
1) скрипт запускается и просит ввести данные, но после ввода и нажатия на ОК, скрипт выдает ошибку на строке 19 символ 1
2) не пойму как же дальше сделать внесение остальных данных.

Если не сложно помогите и огромная просьба учесть то что я только начал изучать VBS по этому по возможности небольшие коменты.

Заранее благодарен.

Серый форум — VBS: Прошу помощи у уважаемых знатоков VBS + AD

VBS: Прошу помощи у уважаемых знатоков VBS + AD