Hi,
habe ein Programm für eine Schule geschrieben, das
massenhaft Benutzer aus SchülerDB anlegt. Funktioniert auf
dem Server einwandfrei, aber nicht von einem Client aus,
bekommt keine Verbindung zum ADS.
Codebeispiel:
Set rootDSE = GetObject
("LDAP://RootDSE") '* Domainnamen
domainname = rootDSE.Get
("defaultnamingcontext") '* ermitteln
'**********************************************************
** Gruppe öffnen
Set objGroup = GetObject _
("LDAP://cn=" & Gruppe & _
",OU=" & Gruppe & _
",OU=" & Schulform & _
",OU=IT," _
& domainname)
'**********************************************************
** User in Gruppe setzen
objGroup.putEx 3, "member", _
Array("cn=" & UserName & _
",OU=" & Gruppe & _
",OU=" & Schulform & _
",OU=IT," _
& domainname)
objGroup.setinfo '* speichern
Wer kann mir sagen, wie ich das auf clients lauffähig
bekomme
Siggi