Dim dso As IADsOpenDSObject Dim szUsername As String Dim szPassword As String Set dso = GetObject("LDAP:") ' Insert code securely. ' Supply full credentials to initiate a server connection. Set obj1 = dso.OpenDSObject( _ "LDAP://IPserverDns/CN=Users,DC=domainName,DC=TypeExtensionDuDomaine", _ szUsername, _ szPassword, _ ADS_SECURE_AUTHENTICATION + ADS_SERVER_BIND)