Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2254 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VBS] pb recup computer dans AD

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[VBS] pb recup computer dans AD

n°1127032
cradle6661
Posté le 22-06-2005 à 09:41:02  profilanswer
 

je dois récupérer la liste des ordis dans AD.
voici le script:
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
 
-------------------
mais j'ai une erreur ligne :Set objRecordSet = objCommand.Execute
"le tableau n'existe pas"
j'ai bien évidement remplacé fabrikam par le nom de mon domaine et com par fr (chez moi)
 
qqun a t-ilune idée?
merci
Tsotb

mood
Publicité
Posté le 22-06-2005 à 09:41:02  profilanswer
 

n°1127498
cradle6661
Posté le 22-06-2005 à 15:24:39  profilanswer
 

salut! (ah mais on se connait nan?)
bon j'ai cherché et voilà
 
 
 
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


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VBS] pb recup computer dans AD

 

Sujets relatifs
[VBS]Récuperer date Windows2000pb de récup d'un SELECT multiple
[VBS]Occurence d'un motRecup données html:select dans classe action
[VBS]Creer un fichier texte nommée avec la date[VBA] [resolut]Standby Please... en excel
[VBS]Récuperer date[Résolu]cour VBS
[VBS] Détection d'une connection RAS[VBS][resolu] Lancer .BAT avec argument ?
Plus de sujets relatifs à : [VBS] pb recup computer dans AD


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR