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

Формулировка задачи:

Доброго времени суток. Я только начал изучать 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 + AD»

textual
                            Листинг программы 
                        
                            Set objContainer = GetObject("LDAP: //OU=user,OU=uroven1,OU=uroven2,DC=domen,DC=local")
Set objUser = objContainer.Create("User", usrm)