Hallo,
ich habe den folgenden VB-Code zum auslesen von Benutzerdetails. Ich möchte diese Funktion gern mit Delphi3 realisieren.
Kennt jemand eine Lösung?
Code:
Dim Vorname, Name, Position, mail, description
On Error Resume Next
'Get USerInfo by ADSytemInfo
Set objSysInfo = CreateObject("ADSystemInfo")
'Get addiional Info By LDAP
strUser = objSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUser)
'variablen belegen
vorname= objUser.givenName
name= objUser.sn
position= objUser.title
description = objUser.description
mail= objUser.mail
Danke.
Gruß
Thomas