|
Hi experts, I have a strange error in my user creation script. When I generate a ADS user object and write it to the ADS, .setinfo returns error -2147352567 (ConvertCOMError translates it to "the storage control block is invalid") BUT the user object gets created! Can anybody tell me what I'm doing wrong? At the moment, I continue with the script ignoring this error, but this can only be a workaround...
Here's the fragment of my script (most of the parts borrowed from this source anyway)
Function AddUser($NotesID, $UserOU, $Givenname, $Surname) DIM $AdsDomain, $AdsUser, $NORMAL_ACCOUNT, $DisplayName $NORMAL_ACCOUNT = &0200 ; Debug on $AdsDomain = GetObject("LDAP://" + $UserOU) If $AdsDomain=0 ConvertCOMError(@ERROR) $AddUser = "Error occured during AddUser: " @SERROR EndIf $DisplayName = $Givenname + " " + $Surname $AdsUser = $AdsDomain.Create("user","cn=" + $DisplayName) If $AdsUser = 0 $AddUser = "Unable to create user $NotesID" Return EndIf
$adsUser.Put("sAMAccountName", $NotesID) $adsUser.Put("userPrincipalName", $NotesID + "@@EMEA.globalcsc.net") $adsUser.Put("givenName", $Givenname) $adsUser.Put("sn", $Surname) $adsUser.Put("displayName", $DisplayName) $adsUser.Put("HomeDirectory","\\cscdssbrn001.ch.emea.csc.com\" + $NotesID + "$") $adsUser.Put("homeDrive", "I:") $adsUser.Put("Description","User created by " + @USERID + " with script " + @SCRIPTNAME)
;Write the newly created object out from the property cache $adsUser.SetInfo If not @ERROR = 0 ConvertCOMError(@ERROR) $AddUser = "Error occured during AddUser: " @SERROR Return EndIf .... EndFunction
Thanks for you help!
|