Für alle die es interessiert, hier die Lösung:
Also wichtig ist das du unter Projekt --> Verweise, die Typelibrary activeds.tlb einbindest. Diese Bibliothek stellt dir das Objekt iADS zur Verfügung.
Folgender Code ist leicht abgeändert in der oben erwähnten ADSI-Hilfedatei zu finden:
[code]
Option Explicit
Private Sub mySub()
Dim rootDSE As ActiveDs.IADs
Dim sADsPath As String
On Error GoTo NonAD
Set rootDSE = GetObject("LDAP://rootDSE")
sADsPath = "LDAP://" & rootDSE.Get("defaultNamingContext")
'Clean up
Set rootDSE = Nothing
NonAD:
'Notify couldn't bind to rootDSE
End Sub
[/code]
Dieser Codeschnipsel sprich den X500 Dienst des Locahlhosts an.
Für einen Remotezugriff: LDAP://servername/rootDSE
| Betreff |
Von |
Datum |
|
|
|
|
Hannes
Preishuber
|
03.12.2003 11:18 |
|
|
|
Antworten
Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!
