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?

markieren

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

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

Was wäre denn dann für

markieren

Code:

GetObject("LDAP://" & strUser)

einzusetzen?

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

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

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

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

markieren

Code:

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