[VBS] User toevoegen aan domain gaat niet goed.

[bolke]

Ik heb een scriptje geschreven om wat makkelijker een user toe te voegen aan een Windows 2000 domain. Ik heb dit draaiende gehad maar na het uitbreiden van het script draait deze niet meer.

Al diverse FAQ/Helps op internet geraadpleegd maar nergens een antwoord gevonden. Warschijnlijk is het een simpele oplossing voor maar ik zie het niet meer.

Ik krijg de foutmelding "The specified directory
service atribute or value does not exist" Code 8007200A
In regel 62

code:

'On error resume next

Set objDomainOU = GetObject("LDAP://OU=UserSupport,OU=Bedrijf Europa,OU=EMEA,DC=emea,DC=Bedrijf,DC=intra")

'Standaard variabelen voor alle users
strHomeDrive= "G:"
strHomeDirectory = "\\NAS-homeserver\~"
strUsrPasswd = "bedrijf"

' Variabelen voor elke user
strGivenName= InputBox("Voornaam: ")
strSN= InputBox("Achternaam: ")
strTussenvoegsel = InputBox("Tussenvoegsel. bv Van der: ")
strDescription= InputBox("Discription")

' Ombouwen tussenvoegsel
strFirst = Trim(Left(strTussenvoegsel, 3))
strLast = Trim(Right(strTussenvoegsel, 3))

If Len(strTussenvoegsel) = 0 Then
    strTotal = ""
ElseIf Len(strTussenvoegsel) >3 Then 
    strTotal = strFirst & "." & strLast
Else
    strTotal = strFirst
End If

If Len(strTotal) = 0 Then
    strTotalName = strGivenname & "." & strSN
Else
    strTotalName = strGivenname & "." & strTotal & "." & strSN
End If

' Samenstellen van de overige variabelen
strCN = strSN & ", " & Mid(strGivenname,1, 1) & ". " & strTussenvoegsel & " - " & strGivenName &" -"
strCN2 = strSN & "\, " & Mid(strGivenname,1, 1) & ". " & strTussenvoegsel & " - " & strGivenName &" -"
strInitials= Mid(strGivenname,1, 1) & Mid(strSN,1, 1)
strUserPrincipalName= strTotalName & "@bedrijf"
strMail = strTotalName & "@bedrijf-europe.com"
strScriptPath = strSN & Mid(strGivenname,1, 1) &".bat"
strSAMAccountName = strTotalName
    
' Maken van een user
If Len(strGivenName) <> 0 Or Len(strSN) <> 0 Then
    Set objUsr = objDomainOU.Create("user", "cn=" & strCN2)
    objUsr.Put "DisplayName", strCN
    objUsr.Put "SAMAccountName", strSAMAccountName
    objUsr.Put "UserPrincipalName", strUserPrincipalName
    objUsr.Put "GivenName", strGivenName
    objUsr.Put "Initials", strInitials 
    objusr.Put "DisplayName", strCN
    objUsr.Put "Mail", strMail
    objUsr.Put "SN", strSN
    objUsr.Put "Description", strDescription
    objUsr.Put "HomeDirectory", strHomeDirectory
    objUsr.Put "HomeDrive", strHomeDrive
    objUsr.Put "LoginScript", strScriptPath
REGEL 62    objUsr.SetInfo
    ' overige settings
    objUsr.SetPassword strUsrPasswd
    objUsr.AccountDisabled = false
    objUsr.PwdLastSet = CLng(-1)
    objUsr.SetInfo
Else
    Wscript.echo "Voornaam of achternaam niet ingevuld"
End If

Set objUsr = nothing

WScript.echo "User aangemaakt."

In de "script repository" van microsoft kan ik een kaal scriptje vinden. die wel werkt.

code:

Set objOU = GetObject("LDAP://OU=management,dc=fabrikam,dc=com")
Set objUser = objOU.Create("User", "cn=MyerKen")
objUser.Put "sAMAccountName", "myerken"
objUser.SetInfo

[OZ-Gump]

De melding is redelijk simpel: een van de properties die je probeert in te stellen bestaat niet. Zet een voor een alle properties uit en kijk wanneer het wel werkt. Je hebt de 'verkeerde' property dan zo te pakken...

[bolke]

Ik heb dat even uitgeprobeerd. Nu krijg ik de melding

Error: A device attached to the system is not funtioning
Code: 8007001F

Op dezelfde regel.

[OZ-Gump]

OK dan.... je moet aan het debuggen slaan. En daar kunnen we je helaas niet doorheen slepen. Volgende optie: zet ALLES uit en test. Zet ze vervolgens een voor een aan, en kijk wanneer het fout gaat. Een kwestie van elimineren dus

[bolke]

Ik ga weer even verder. Ik heb nog tot woensdag....... Dan moet het draaien.

[Luppie]

Zelf ook eens zoiets gemaakt en volgens mij moet het aan je hoofdlettergebruik liggen.

Hier een stukje van mijn code :

code:

User.Put "sAMAccountName", "" & gebruikersnaam
User.Put "userPrincipalName", gebruikersnaam & "@" & domein & ".local"
User.Put "Description", "" & omschrijving
User.Put "DisplayName", "" & displaynaam
User.Put "givenName", "" & voornaam
User.Put "sn", "" & achternaam
User.Put "department", "" & afdeling
User.Put "physicalDeliveryOfficeName", "" & kamer
User.Put "telephoneNumber", "" & toestel
User.Put "profilePath", "\\server02cp\profiles$\" & gebruikersnaam
User.Put "scriptPath", "\\server01p\netlogon\logon.cmd"
User.Put "homeDirectory", "\\server02cp\homes$\" & gebruikersnaam
User.Put "homeDrive", "H:"

sAMAccountName is een fout die ik gelijk al zie (hoofdlettertje te veel.)

Het is i.d.d. hoofdlettergevoelig.

[ Voor 96% gewijzigd door Luppie op 25-07-2003 15:41 ]

[bolke]

Cobra_Lup schreef op 25 juli 2003 @ 15:39:
Zelf ook eens zoiets gemaakt en volgens mij moet het aan je hoofdlettergebruik liggen.

Hier een stukje van mijn code :

code:

User.Put "sAMAccountName", "" & gebruikersnaam
User.Put "userPrincipalName", gebruikersnaam & "@" & domein & ".local"
User.Put "Description", "" & omschrijving
User.Put "DisplayName", "" & displaynaam
User.Put "givenName", "" & voornaam
User.Put "sn", "" & achternaam
User.Put "department", "" & afdeling
User.Put "physicalDeliveryOfficeName", "" & kamer
User.Put "telephoneNumber", "" & toestel
User.Put "profilePath", "\\server02cp\profiles$\" & gebruikersnaam
User.Put "scriptPath", "\\server01p\netlogon\logon.cmd"
User.Put "homeDirectory", "\\server02cp\homes$\" & gebruikersnaam
User.Put "homeDrive", "H:"

sAMAccountName is een fout die ik gelijk al zie (hoofdlettertje te veel.)

Het is i.d.d. hoofdlettergevoelig.

Ook nog even geprobeerd. Helaas.

[OZ-Gump]

NOFI, maar ga nou eens aan de slag met de debug-melding: zet alle properties die je aanspreekt uit en kijk of het dan wel werkt. Zo ja: een voor een de props aanzetten, zo nee, dan weet je dat je het ergens anders moet gaan zoeken. Een kant en klare oplossing kunnen we je hier bijna niet geven, omdat het een kwestie van debuggen is, denk ik. En daar zijn wij niet voor bedoeld

Kom je dan iets tegen, dan kun je hier misschien vragen hoe het komt dat 'ie daar op vast loopt.

[Luppie]

givenName is trouwens ook fout, heb je alle attributes op hoofdletters gecontrolleerd ?

[bolke]

Als ik het stuk waar de create user inzit uitzet dat gaat het goed. Er hoeft maar een klein deel van dit stukje aan te staan en de fout is terug.

Terwijl een standaard script wel werkt.

Ik ga weer verder op het grote wijze internet zoeken.

Cobra_Lup schreef op 25 July 2003 @ 15:57:
givenName is trouwens ook fout, heb je alle attributes op hoofdletters gecontrolleerd ?

Alle hoofdletters heb ik gecontrolleerd en aangepast. Was niet de oplossing.

[ Voor 36% gewijzigd door bolke op 25-07-2003 16:02 ]

[bolke]

Ik heb het gevonden.

Ik had een naam gemaak (voor test) "Voornaam.van.der.achternaam" en die ingevuld voor de sAMAccountname. Deze naam is TE LANG. je mag er maximaal 20 gebruiken.

Een beetje DOM. Al zeg ik het zelf.