Listing 2: Code That Binds to RootDSE and Keeps a Reference

Dim dso
Set dso = GetObject("LDAP://RootDSE")
If Err.Number <> 0 Then
 WScript.Echo "Unable to bind to: " & "LDAP://RootDSE"
 WScript.Quit 1
End If