#1
·Nicolay_7
Группа: Пользователи
Сообщений: 81
Решил потестить этот скрипт добавления юзверов в AD из txt файлика.
Почему то не работают аттрибуты службы терминалов ...?
TerminalServicesProfilePath
TerminalServicesHomeDirectory
В чём грабли .... кто ответит
Сообщение об ошибке:
Указанное значение или аттрибут службы каталогов не существует
Set filesys = CreateObject("Scripting.FileSystemObject")
Set InFile = filesys.OpenTextFile("c:\users.txt", 1)
Set objRootDSE = GetObject("LDAP://RootDSE")
strDNSDomain = objRootDSE.Get("defaultNamingContext")
While Not InFile.AtEndOfStream
sInString = InFile.ReadLine
sADName = Split(sInString, ",")(0)
sLogonName = Split(sInString, ",")(1)
sPassword = Split(sInString, ",")(2)
sGroup = Split(sInString, ",")(3)
sOU = Split(sInString, ",")(4)
sOfficeName= Split(sInString, ",")(5)
sDName= Split(sInString, ",")(6)
sLogonScript= Split(sInString, ",")(7)
sScPath= Split(sInString, ",")(8)
sHDrive= Split(sInString, ",")(9)
sTermProf= Split(sInString, ",")(10)
sTermHDir= Split(sInString, ",")(11)
Set objOU = GetObject("LDAP://ou=" & sOU & "," & strDNSDomain)
sOUdn = objOU.Get("distinguishedName")
Set objGroup = GetObject("LDAP://cn=" & sGroup & "," & sOUdn)
Set objUser = objOU.Create("user", "cn=" & sADName)
objUser.Put "SAMAccountName", sLogonName
objUser.Put "userPrincipalName", sLogonName
objUser.SetInfo
objUser.AccountDisabled = false
objUser.Put "physicalDeliveryOfficeName", sOfficeName
objUser.Put "displayName", sDName
objUser.Put "ProfilePath", sScPath
objUser.Put "ScriptPath", sLogonScript
objUser.Put "HomeDirectory", sHDrive
sHDrive objUser.Put "HomeDrive", "Z"
objUser.Put "TerminalServicesProfilePath", sTermProf
objUser.Put "TerminalServicesHomeDirectory", sTermHDir
objUser.SetPassword sPassword
objUser.SetInfo
objGroup.Add objUser.ADSPath
objGroup.SetInfo
Wend