LDAP connectie maken

[ScriptGys]

Beste helpmij-ers,

Ik zit al enige tijd met het volgende probleem.
Ik probeer de gebruikersgegevens op te halen uit de actieve directory en deze verder te gebruiken in mijn script.

Dit is het script wat ik tot nu toe heb. Enkel blijven de velden leeg en wordt er geen informatie getoond. Iemand die mij verder kan helpen?
Ik heb zelf het idee dat het fout gaat in de Set objUser string die connectie maakt via LDAP, ik weet niet precies hoe die syntax van deze string hoort te zijn.

Alvast bedanktvoor de hulp!!!

On Error Resume Next

Set objUser = GetObject("LDAP://cn=username,ou=usergroup,dc=domein,dc=com")


WScript.Echo "First Name: " & objUser.givenName
WScript.Echo "Initials: " & objUser.initials
WScript.Echo "Last Name: " & objUser.sn
WScript.Echo "Display Name: " & objUser.displayName
WScript.Echo "Office: " & _
    objUser.physicalDeliveryOfficeName
WScript.Echo "Telephone Number: " & objUser.telephoneNumber
WScript.Echo "Email: " & objUser.mail
 
For Each strValue in objUser.description
    WScript.Echo "Description: " & strValue
Next

For Each strValue in objUser.otherTelephone
    WScript.Echo "Other Telephone: " & strValue
Next

For Each strValue in objUser.url
    WScript.Echo "URL: " & strValue
Next

 

[ScriptGys]

Niemand die mij verder kan helpen?

 

[ErikBooy007]

Beetje ongeduldig, ik weet er ook het fijne niet van, maar op Google vond ik dit:

http://www.rlmueller.net/LDAP_Binding.htm

misschien helpt het.

 

[ScriptGys]

ErikBooy007 hartelijk dank voor je reactie!

Ik heb de userstring vanuit jou link geprobeerd op verschillende manieren maar ik krijg het geheel niet werkend.

Iemand die me nog iets verder kan helpen?

 

[Ellasar]

Het lijkt me dat je nog ergens aan moet geven welke AD je wil benaderen....

Maar kijk eens bij MS zelf

http://www.microsoft.com/technet/scriptcenter/scripts/misc/searchad/default.mspx?mfr=true

 

[ScriptGys]

Ik heb nu het volgende gedaan maar het functioneert nog steeds niet. Ik heb ook de microsoft help doorgeworsteld maar ook daarmee is het niet gelukt.

On Error Resume Next

Set objUser = GetObject("LDAP://cn=gebruikersnaam,ou=Vaste gebruikers,dc=adservernaam,dc=domein,dc=com")


WScript.Echo "First Name: " & objUser.givenName
WScript.Echo "Initials: " & objUser.initials
WScript.Echo "Last Name: " & objUser.sn
WScript.Echo "Display Name: " & objUser.displayName
WScript.Echo "Office: " & _
    objUser.physicalDeliveryOfficeName
WScript.Echo "Telephone Number: " & objUser.telephoneNumber
WScript.Echo "Email: " & objUser.mail

For Each strValue in objUser.otherTelephone
    WScript.Echo "Other Telephone: " & strValue
Next

For Each strValue in objUser.url
    WScript.Echo "URL: " & strValue
Next

 

[Ellasar]

Ik mis nog steeds het opbouwen van de connectie naar de Active Directory.
haal de "On Error Resume Next"

Dan zie je meteen eventuele fouten in je script