Создание пользователя AD
Поможет кто со скриптом
нужно создать пользователя
выбрать группу в которую входит
создать его папку фамилия имя на сервере
|
где-то так (VBS):
Код:
strLoginName = "IvanBB"
strFirstName = "Иван"
strLastName = "Иванов"
strRDName = strLastName & " " & strFirstName ' Имя объекта в AD
strPassword = "Password#14576"
strUserOU = "ou=OU1"
strGroup = "cn=Group1,ou=groups"
strHomeRoot = "\\SERVER\HOME"
Set objRoot = GetObject("LDAP://RootDSE")
Set objADSystemInfo = CreateObject("ADSystemInfo")
Set objFSO = CreateObject("Scripting.FileSystemObject")
strDomainDNSName = objADSystemInfo.DomainDNSName
strDomainDN = objRoot.Get("DefaultNamingContext")
strContainerDN = strUserOU & "," & strDomainDN
strGroupDN = strGroup & "," & strDomainDN
strUserDN = "cn=" & strLoginName & "," & strContainerDN
strHomeDirPath = strHomeRoot & "\" & strLastName & " " & strFirstName
Set objContainer = GetObject("LDAP://" & strContainerDN)
Set objUser = objContainer.Create("user","cn=" & strLoginName)
Set objGroup = GetObject("LDAP://" & strGroupDN)
objUser.Put "sAMAccountName", strLoginName
objUser.Put "userPrincipalName", strLoginName & "@" & strDomainDNSName
objUser.Put "givenName", strFirstName
objUser.Put "sn", strLastName
objUser.Put "displayName", strLastName & " " & strFirstName
objUser.Put "HomeDirectory", strHomeDirPath
objUser.Setinfo
objUser.SetPassword strPassword
objUser.AccountDisabled = FALSE
objUser.Setinfo
objGroup.Add("LDAP://" & strUserDN)
objGroup.Setinfo
objContainer.MoveHere "LDAP://" & strUserDN, "cn=" & strRDName
objContainer.Setinfo
If Not objFSO.FolderExists(strHomeDirPath) Then objFSO.CreateFolder(strHomeDirPath)
|
Принципиально vbs? из bat проще.
|
принципиально вообще
просто хочется такую програмулину
запустил написал имя фамилию должность мыло (если нет то чтоб создалось )указал в какой группах состаит поставил птичку создать личную папку на сетвере
|
я бы папку создавал логон-скриптом от самого пользователя - права автоматически настраиваются
|
А вот действительно, какая функция будет для VBS, чтобы при добавлении пользователя в АД появлялся выбор подразделения в GUI ?
|
cmdshka, непосредственно в самом WSH нет средств для этого. Мазохисты могут попробовать реализовать сие посредством формирования документа html в объекте «InternetExplorer.Applcation». Нормальные выберут PowerShell и создание на нём формы.
|
Время: 22:54.
© OSzone.net 2001-
