Zwischenspeichern von Verbindungen

Wenn eine Verbindung mit einem Server hergestellt wird, wird das Verbindungshandy auf dem Clientcomputer für diesen Prozess zwischengespeichert, bis diese Verbindung geschlossen wird. Wenn derselbe Server, Port und die gleichen Anmeldeinformationen in einer nachfolgenden Verbindung verwendet werden und sich nur die ADS _ FAST _ BIND- oder ADS SERVER _ BIND-Authentifizierungsflags _ unterscheiden, verwendet ADSI die vorhandene Verbindung erneut. ADSI führt diese Verbindungszwischenspeicherung pro Prozess durch.

Um die Leistung zu erhöhen, sollten Sie vorhandene Verbindungen nach Möglichkeit wiederverwenden.

Das folgende Codebeispiel zeigt, wie das Zwischenspeichern von Verbindungen funktioniert.

Dim cachedConn As IADs
Dim obj As IADs
Dim cachedName As String
Dim objName As String
 
' Connect to the server and maintain this handle to cache the connection.
Set cachedConn = GetObject("LDAP://MyMachine/DC=MyDomain,DC=Fabrikam,DC=com")
 
cachedName = cachedConn.Get("distinguishedName")
Debug.Print (cachedName)
 
' Reuse the connection to MyMachine opened by cachedConn.
' Be aware that this line executes quickly because it is not required
' to transmit over the network again.
Set obj = GetObject("LDAP://MyMachine/CN=Bob,CN=Users,DC=MyDomain,DC=Fabrikam,DC=com")
 
objName = obj.Get("distinguishedName")
Debug.Print (objName)
 
' Release the second connection.
Set obj = Nothing
 
' Reuse the connection to MyMachine opened by cachedConn again.
Set obj = GetObject("LDAP://MyMachine/CN=Administrator,CN=Users,DC=MyDomain,DC=Fabrikam,DC=com")
 
objName = obj.Get("distinguishedName")
Debug.Print (objName)
 
' Release the second connection again.
Set obj = Nothing
 
' Release the first connection.
Set cachedConn = Nothing
 
' The connection to MyMachine is closed.