AD vbs script fejl - memberOf
Hej jeg har lavet dette vbs script som "forbinder" til et excel ark med de pågældene data, og skriver dem ind i Active directory på en 2003 server.Alt kører fint lige indtil at den kommer til "memberOf", den siger: "Serveren vil ikke udføre anmodningen".
Excel arket burde også være i orden, da indholdet i cellen er:
CN=IT-afdelingen,OU=IT,OU=Brugere,DC=domain,DC=local
IT-afdelingen er navnet på gruppen i active directoriet(den er oprettet)
Hvad kan fejlen skylder, eller kan det simpelthen ikke lade sig gøre?
----------------------------------------------------------
Dim objRootLDAP, objContainer, objUser, objShell
Dim objExcel, objSpread, intRow
Dim strUser, strOU, strSheet
Dim strCN, strSam, strFirst, strLast, strPWD, strdisplayName, struserPrincipalName, strinitials, strmemberOf
strOU = "OU=IT, OU=Brugere ," ' Note the comma
strSheet = "C:\Active Directory\Brugere\IT3.xls"
Set objRootLDAP = GetObject("LDAP://rootDSE")
Set objContainer = GetObject("LDAP://" & strOU & _
objRootLDAP.Get("defaultNamingContext"))
Set objExcel = CreateObject("Excel.Application")
Set objSpread = objExcel.Workbooks.Open(strSheet)
intRow = 3 'Row 1 often contains headings
Do Until objExcel.Cells(intRow, 1).Value = ""
strFirst = Trim(objExcel.Cells(intRow, 1).Value)
strLast = Trim(objExcel.Cells(intRow, 3).Value)
strSam = Trim(objExcel.Cells(intRow, 4).Value)
strCN = Trim(objExcel.Cells(intRow, 5).Value)
strPWD = Trim(objExcel.Cells(intRow, 6).Value)
strdisplayName = Trim(objExcel.Cells(intRow, 7).Value)
struserPrincipalName = Trim(objExcel.Cells(intRow, 8).Value)
strmemberOf = Trim(objExcel.Cells(intRow, 9).Value)
strinitials = Trim(objExcel.Cells(intRow, 10).Value)
Set objUser = objContainer.Create("User", "cn=" & strCN)
objUser.sAMAccountName = strSam
objUser.givenName = strFirst
objUser.sn = strLast
objUser.displayName = strdisplayName
objUser.userPrincipalName = struserPrincipalName
objUser.initials = strinitials
objUser.memberOf = strmemberOf
objUser.SetInfo
objUser.userAccountControl = 512
objUser.pwdLastSet = 0
objUser.SetPassword strPWD
objUser.SetInfo
intRow = intRow + 1
Loop
objExcel.Quit
WScript.Quit
---------------------------------------------------