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