[VBS]authentification AD

authentification AD [VBS] - VB/VBA/VBS - Programmation

Marsh Posté le 08-08-2005 à 10:41:08    

slt!
je veux récupérer la liste des PCs contenus dans AD d'1 domaine différent.j'ai un prob pour l'authentification:

Code :
  1. Set fsobj = CreateObject("Scripting.FileSystemObject" )
  2. Set tf = fsobj.CreateTextFile("C:\script\ADres.txt", True)'crée le fichier ADres
  4. Dim strPath
  5. Dim strUsername
  6. Dim strPassword
  7. Dim adsNamespaceLDAP
  8. Dim adsMyObject
  9. strPath = "LDAP://192.168.1.1/dc=domainname,dc=com"
  10. strUsername = "cn=Administrateur,cn=Users," & "dc=domainname,dc=com"
  11. strPassword = "admin"
  12. Set adsNamespaceLDAP = GetObject("LDAP:" )
  13. Set adsMyObject = adsNamespaceLDAP.OpenDSObject (strPath, strUsername, strPassword, 0)
  15. Const ADS_SCOPE_SUBTREE = 2
  16. Set objConnection = CreateObject("ADODB.Connection" )
  17. Set objCommand = CreateObject("ADODB.Command" )
  18. objConnection.Provider = "ADsDSOObject"
  19. objConnection.Open "Active Directory Provider"
  20. Set objCommand.ActiveConnection = objConnection
  21. objCommand.CommandText = _
  22. "Select Name, Location from 'LDAP://DC=domaine1,DC=fr' " _
  23. & "where objectClass='computer'"
  26. objCommand.Properties("Page Size" ) = 1000
  27. objCommand.Properties("Timeout" ) = 30
  28. objCommand.Properties("Searchscope" ) = ADS_SCOPE_SUBTREE
  29. objCommand.Properties("Cache Results" ) = False
  30. Set objRecordSet = objCommand.Execute
  31. objRecordSet.MoveFirst
  32. Do Until objRecordSet.EOF
  33. tf.Write (objRecordSet.Fields("Name" ).Value &Chr(13)& Chr(10))
  34. 'Wscript.Echo "Computer Name: " & objRecordSet.Fields("Name" ).Value
  35. 'Wscript.Echo "Location: " & objRecordSet.Fields("Location" ).Value
  36. objRecordSet.MoveNext
  37. Loop
  38. tf.Close


erreur : mot de passe ou utilisateur incorrects!
avec ce code :

Code :
  1. objConnection.Properties("User ID" ) = userName
  2. objConnection.Properties("Password" ) = password


erreur non spécifiée :
Set objRecordSet = objCommand.Execute  
 
quelqu'un pourrait-il m'aider?
merci


Message édité par cradle6661 le 08-08-2005 à 10:43:17
Reply

Marsh Posté le 08-08-2005 à 10:41:08   

Reply

Marsh Posté le 08-08-2005 à 13:46:27    

en mettant userName et password entre "", erreur : demande d'autorisation refusée
 

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed