Usereinträge im LDAP ändern mit VBA

[Mecko 10]

Hallo Leute,

mein Problem ist folgendes.

Ich habe eine ACC2K Datenbank mit SQL2K als Backend. Die User werden mit einem Script aus dem AD ausgelesen und in einer Tabelle gespeichert.

Daten die in der Tabelle geändert werden, sollen nach Abschluss zurück ins AD geschrieben werden.

mit Ausnahme des zurückschreibens klappt alles. Hier jetzt das Problem:

 

Die Feldnamen in der Tabelle entsprechen dem Attribut des Users. Im Script soll nun der Feldname ausgelesen werden und die Einträge an das entsprechende Feld im AD übergeben werden.

 

Schnipp

Feld = Feldname

dn = distinguished Name

 

Function PutLDAP_User(feld As String, eintrag As String, dn As String)

Dim sLDAP As String

 

sLDAP = "LDAP://" & dn '& "'"

Set objUser = GetObject(sLDAP)

objUser(feld) = eintrag 'FEHLER!!!!!!!!!!!!!!!!!!!!!!!!!!!

' objUser.description würde gehen. Aber dann müsste ich für jedes Feld einen

' Scripteintrag machen, was ich umgehen will.

objUser.SetInfo

Set objUser = Nothing

End Function

 

 

im Netz habe ich für VBScript eine andere Syntax gefunden

objUser feld, eintrag

dies funzt aber in VBA nicht!

 

 

bin für jeden Tip dankbar

Mecko