Bonjour à tous,
 
Le script ci-dessous me sort le résultat de la requête en messagebox or je voudrais le sortir dans un fichier .txt ou mieux .csv
 
 
On Error Resume Next
 
Set objGroup = GetObject _
  ("LDAP://cn=xxx,ou=xxxx,ou=xxx,dc=xxx,dc=xxx" )
objGroup.GetInfo
 
arrMemberOf = objGroup.GetEx("member" )
 
WScript.Echo "Members:"
For Each strMember in arrMemberOf
    WScript.echo strMember
Next
 
 
 
Merci de votre aide  

Ajouter les lignes de couleurs :
 
On Error Resume Next  
   
Set objGroup = GetObject _  
  ("LDAP://cn=xxx,ou=xxxx,ou=xxx,dc=xxx,dc=xxx" )  
objGroup.GetInfo  
   
arrMemberOf = objGroup.GetEx("member" )  
 
Set fso = CreateObject("Scripting.FileSystemObject" )  
Set f = fso.OpenTextFile("toto.txt", 2,True)  
 
WScript.Echo "Members:"  
For Each strMember in arrMemberOf  
    WScript.echo strMember  
    f.Write strMember  
Next  
 
f.Close