Function GetDomainDN()

Die Funktion GetDomainDN() liefert uns den Namen der Active Directory Domain, an der wir aktuell angemeldet sind.

Dim oRoot 'globale Variable
Function GetDomainDN()
     Err.Clear
     Set oRoot = GetObject("LDAP://rootDSE")
     If Err.Number Then
         PrintLog Err.Number, "ERROR in GetDomainDN() at oRoot = GetObject(LDAP://rootDSE)"
         WScript.quit
     End If
     GetDomainDN = oRoot.Get("defaultNamingContext")
End Function
 
Dieser Prozess wird ganz allgemein auch als LDAP Binding bezeichnet.
Wir verbinden uns mit der Root einer Active Directory Struktur (GetObject("LDAP://rootDSE")) und setzen eine Objektreferenz, die in der Variablen oRoot gespeichert wird.
Als Returnwert von GetDomainDN() bekommen wir einen String in der Form "CN=my,CN=domain,CN=com".
Dieser String ist der distinguishedName der Domäne, an der wir angemeldet sind.
 
Damit haben wir für alle folgenden Zugriffe auf unsere Active Directory Domain eine LDAP Basis, um nach Objekten suchen zu können. Und die globale Variable strDomain können wir jetzt in allen LDAP Abfragen an diese Domäne verwenden.

Aufrufbeispiel: strDomain = GetDomainDN()