[VBScript]User eigenschappen lezen uit AD

[-Klimaks-]

Met de volgende code, haal ik een user object uit de AD van de aangemelde gebruiker. Dit werkt perfect.

code:

Set adsNTSysInfo =  CreateObject("WinNTSystemInfo")
Set adsUser = GetObject("WinNT://" & adsNTSysInfo.DomainName & _ 
    "/" & adsNTSysInfo.UserName & ",User")

Maar nu wil ik bepaalde eigenschappen lezen van deze gebruiker

code:

adsUser.FullName

werkt, maar

code:

adsUser.Office

doet het niet.

Als ik zoek op internet vindt ik geen eigenschappen voor kantoor en adres enz... is dit niet mogelijk? Of moet het anders?

[jvdmeer]

Zie MSDN voor info.

[-Klimaks-]

* -Klimaks- is a

Met deze code haal ik immers een lokale account op.

code:

Set adsUser = GetObject("WinNT://" & adsNTSysInfo.DomainName & _ 
"/" & adsNTSysInfo.UserName & ",User")

Met volgende code werkt het wel.

code:

Set adsUser = GetObject
("LDAP://cn=******,OU=****,ou=*****,DC=sbsdomein,DC=local")

Nu nog uitvinden hoe ik op basis van de username een object uit de AD kan halen. Grote probleem is dat ik niet weet in welke OU.

[ Voor 9% gewijzigd door -Klimaks- op 02-04-2004 15:37 ]

[jvdmeer]

-Klimaks- schreef op 02 april 2004 @ 14:51:
* -Klimaks- is a

Met deze code haal ik immers een lokale account op.

code:

Set adsUser = GetObject("WinNT://" & adsNTSysInfo.DomainName & _ 
"/" & adsNTSysInfo.UserName & ",User")

Je moet 'm verbeteren naar:

code:

Set adsUser = GetObject("WinNT://[domein]/" & adsNTSysInfo.UserName & ",User")

Waarbij je domein zelf invult. of je zoekt het domain op via:

code:

Set objNetwork  = CreateObject("Wscript.Network")
Domein=objNetwork.UserDomain

[-Klimaks-]

jvdmeer schreef op 02 april 2004 @ 15:07:
[...]


Je moet 'm verbeteren naar:

code:

Set adsUser = _
 GetObject("WinNT://[domein]/" & adsNTSysInfo.UserName & ",User")

Waarbij je domein zelf invult. of je zoekt het domain op via:

code:

Set objNetwork  = CreateObject("Wscript.Network")
Domein=objNetwork.UserDomain

Als ik met niet vergis, deed ik dat toch al dmv adsNTSysInfo.DomainName?

Probleem is trouwens opgelost.
Met volgende code haal ik het LDAP:// path op van een user ongeacht de OU

code:

Function GetLDAPPath(strUserName)
    Dim Conn, strRS, RS, strConn 
    Set Conn = CreateObject("ADODB.Connection")
    Set RS = CreateObject("ADODB.Recordset")
    Conn.Provider = "ADsDSOObject"
    strConn = "Active Directory Provider"
    Conn.Open strConn 
    strRS = "SELECT * FROM 'LDAP://sbsdomein' WHERE " & _
 objectClass = 'user' AND sAMAccountName = '" & strUserName &  "'"
    
    RS.Open strRS, Conn, 1, 1
    
    GetLDAPPath =  RS.Fields(0)
    
    rs.Close
    Conn.Close
    Set RS = Nothing
    Set conn = Nothing
End Function

En met dat LDAP Path kan ik verder.

Tot aan het volgende probleem...

Het kantoor vraag ik op dmv adsUser.OfficeLocations, werkt allemaal heel mooi. Maar als dit niet is ingevuld krijg ik een mooie runtime error ipv een lege string zoals logischerwijs verwacht wordt

Ik kan daar nu wel een functie rondschrijven die controleert op de error, maar is er geen elegantere manier ?

[ Voor 72% gewijzigd door -Klimaks- op 02-04-2004 15:37 ]