VBS/WSH/JS - Добавление пользователя в доменную группу в процессе создания учетной записи.

smol84 · Отправлено: **12:06, 19-09-2014** | #11

Код:

Dim sFirstName1, sFirstName2, sLastName, sFullName, sLogin
sFirstName1 = "Alexandr"
sLastName = "Elizarov"
sFullName = sLastName & "." & sFirstName1 
sLogin = sLastName & " " & sFirstName1 
		Set objOU = GetObject("LDAP://OU=Users,OU=ViaMonstra,DC=corp,DC=viamonstra,DC=com")
		Set objUser = objOU.Create _
			("User", "cn=" & sFullName)
		objUser.displayName = sFullName
		objUser.sAMAccountName = sLogin
		objUser.GivenName = sFirstName1
		objUser.SN = sLastName
		objUser.SetInfo
		objUser.userPrincipalName = sLogin & "@corp.viamonstra.com"
		objUser.AccountDisabled = FALSE
		objUser.SetPassword "123456Qw"
		objUser.Put "PwdLastSet", 0
		objUser.SetInfo
Set objGroup = GetObject _
    ("LDAP://cn=test1,OU=Groups,OU=ViaMonstra,DC=corp,DC=viamonstra,DC=com")
objGroup.Put sLogin, test1
objGroup.SetInfo 
  objGroup.Add objUser.ADSPath

Iska · Отправлено: **12:26, 19-09-2014** | #12

smol84, в Вашем коде двадцать три строки. Стало быть он отличается от того кода, который вызывал приведённую Вами ошибку на двадцать шестой строке.

smol84 · Отправлено: **12:35, 19-09-2014** | #13

в 22 строке теперь ошибка Unspecified error
это строка objGroup.Put sLogin, test1

Iska · Отправлено: **13:20, 19-09-2014** | #14

Цитата smol84:

это строка objGroup.Put sLogin, test1 »

Простите, а что Вы хотите ей получить?

smol84 · Отправлено: **15:42, 19-09-2014** | #15

Есть ряд групп
"cn=группа1,ou=Groups,dc=corp,dc=int
"cn=группа2,ou=Groups,dc=corp,dc=int
которые должны быть у пользователя по умолчанию...подскажите как можно добавить свежесозданную учетную запись в эти или к этим группам?

Iska · Отправлено: **15:51, 19-09-2014** | #16

В примере сие делалось строкой:

Код:

objGroup.Add objUser.ADSPath

Эти группы уже существуют? Подключаетесь к объекту:

Код:

Set objIADsGroup = GetObject("LDAP://cn=группа1,ou=Groups,dc=corp,dc=int")

затем добавляете свежесозданную учётную запись в группу:

Код:

objIADsGroup.Add objUser.ADSPath

Аналогично со второй группой.

smol84 · Отправлено: **17:21, 19-09-2014** | #17

Спасибо!

Devils0411 · Конфигурация компьютера

Похожая ситуация. Выдает ошибку

Код:

Option Explicit

Dim sFirstName1, sLastName, sFullName, sLogin, strUserName
Dim dtStart, sPassword, objConnection, objCommand
Dim objRecordSet, objOU, objUser
sLastName = InputBox("Введите Фамилию")
sFirstName1 = InputBox("Введите Имя")
sLogin = InputBox ("Введите логин")
sPassword = InputBox ("Введите пароль")
sFullName = sLastName & " " & sFirstName1
'Проверка длины логина
if Len(sLogin) > 20 Then
sFirstName1 = Mid(sFirstName1,1,1)
sLogin = sFirstName1 & "." & sLastName
End if
strUserName = sLogin
dtStart = TimeValue(Now())
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Open "Provider=ADsDSOObject;"
Set objCommand = CreateObject("ADODB.Command")
objCommand.ActiveConnection = objConnection

objCommand.CommandText = _
"<LDAP://OU=Users,OU=Warehouse 8114,OU=Central region,OU=Areas,DC=RETAIL,DC=LENTA,DC=SPB,DC=RUS>;(&(objectCategory=User)" & _
"(samAccountName=" & strUserName & "));samAccountName;subtree"

Set objRecordSet = objCommand.Execute

If objRecordset.RecordCount = 0 Then
Set objOU = GetObject("LDAP://OU=Users,OU=Warehouse 8114,OU=Central region,OU=Areas,DC=RETAIL,DC=LENTA,DC=SPB,DC=RUS")
Set objUser = objOU.Create _
("User", "cn=" & sFullName)
objUser.displayName = sFullName
objUser.sAMAccountName = sLogin
objUser.GivenName = sFirstName1
objUser.SN = sLastName
objUser.SetInfo
objUser.userPrincipalName = sLogin & "@RETAIL.LENTA.SPB.RUS"
objUser.AccountDisabled = TRUE
objUser.SetPassword sPassword
objUser.Put "PwdLastSet", 1
objUser.SetInfo
Else	
WScript.Echo "Учетная запись " & Chr(34) & sLogin & Chr(34) & " уже существует."
WScript.Quit
End If

Wscript.Echo "Учетная запись для" & Chr(34) & sFullName & Chr(34) & "создана успешно"

Куда копать?

Devils0411 · Конфигурация компьютера

Проблему решил