'exampleof LDAP query with alt cred 'The Don'
Set DSO = GetObject("LDAP:")
Set Container = DSO.OpenDSObject("LDAP://ldap_server_nameip/o=mydomain.com,ou=People", cn="The Don", "password123", 0)
For Each aObject In Container
Wscript.Echo aObject.Get("cn")
Next