script vbs vers ADRésolu

Question

salut !
j'ai un script vbs (trouv&#233; dans l'aide de vbs factory) pour r&#233;cup&#233;rer la liste des ordinateurs qui se trouvent ds Acrtive Directory.
voici ce code:
Const ADS_SCOPE_SUBTREE = 2
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand =   CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCOmmand.ActiveConnection = objConnection
objCommand.CommandText = _
    "Select Name, Location from 'LDAP://DC=fabrikam,DC=com' " _
        & "where objectClass='computer'"  
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Timeout") = 30 
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE 
objCommand.Properties("Cache Results") = False 
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
Do Until objRecordSet.EOF
    Wscript.Echo "Computer Name: " & objRecordSet.Fields("Name").Value
    Wscript.Echo "Location: " & objRecordSet.Fields("Location").Value
    objRecordSet.MoveNext
Loop

----------------------
en testant ainsi j'ai l'erreur "le tableau n'existe pas" je pense bien &#233;videmment qu'il faut changer le DC
 "Select Name, Location from 'LDAP://DC=fabrikam,DC=com' " _
fabrikam-->mondomaine et com-->com ou fr suivant mon domaine c'est &#231;a? parce que c'a n'apas l'air de marcher. j'ai la m&#234;me erreur.Y-a t-il un pb de droits? O&#249; faut il s'identifier?

Merci de m'aider.
The Sins Of Thy Beloved

tsotb · Accepted Answer

salut! (ah mais on se connait nan?)
bon voil&#224; la r&#233;ponse (j'ai cherch&#233; et j'ai trouv&#233;!)
Const ADS_SCOPE_SUBTREE = 2
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand =   CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection
objCommand.CommandText = _
     "Select Name, Location from 'LDAP://DC=domaine,DC=com' " _
      & "where objectClass='computer'"
        
        
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Timeout") = 30
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
objCommand.Properties("Cache Results") = False
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
Do Until objRecordSet.EOF
     Wscript.Echo "Computer Name: " & objRecordSet.Fields("Name").Value
    Wscript.Echo "Location: " & objRecordSet.Fields("Location").Value
    objRecordSet.MoveNext
Loop

TsotB

Script vbs vers AD

1 réponse

Discussions similaires