Daten eines Benutzers mit Delphi3 auslesen

[thomasdrewermann]

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

[Bernhard Geyer]

Statt CreateObject -> CreateOleObject verwenden und als Typ für objSysInfo/objUser OleVariant nehmen. Der restliche Code kann (bis auf Syntax-Anpassungen) übernommen werden.

[thomasdrewermann]

Was wäre denn dann für

Code:

GetObject("LDAP://" & strUser)

einzusetzen?

[Luckie]

Das & entspricht in Delphi dem + zum Verbinden von Strings.

[thomasdrewermann]

Der Teil war mir klar, interessanter ist das Äquivalent zu GetObject.

[Luckie]

Da COM-Server verwendet werden und diese natürlich unter VB und Delphi identisch sind, heißt auch die entsprechende Methode genauso.

[thomasdrewermann]

Hi,
die Methode getObject erwartet in Delphi allerdings einen Integer-Wert als Parameter und die Variante funktioniert auch net.

Code:

objUser := CreateoleObject('getobject(LDAP://'+strUser+')');