Discussion :

[jules418]

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

Merci de votre aide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
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

[RadPAT]

Salut,

tu peux essayer ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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
    XZne = Xzne & strMember & ";"
Next
 
Fic = "Recap.Csv"
Set objFile = objFSO.OpenTextFile(Fic, 2, True)
objFile.writeline XZne

A++

[jules418]

Salut collègue Normand

J'ai essayé mais aucune sortie, par contre je me demandais il ne faut pas préciser le chemin où l'on veut le sauvegarder ?? car là il y a bien le nom du fichier mais aucun path...

[RadPAT]

Salut,

Salut collègue Normand

et je dirai même plus, on est même voisins puisque je suis juste à coté du Vaudreuil !!

Pour ton code, remplace simplement les 3 dernieres lignes par celles ci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Fic = "Recap.Csv"
Set ObjFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(Fic, 2, True)
objFile.writeline XZne

et ca devrait fonctionner. Ton fichier sera créé dans le même répertoire que ton Vbs, si tu veux y mettre un autre chemin, indique le dans la variable Fic comme ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Fic = "C:\Temp\Recap.Csv"

A++

[jules418]

Merci beaucoup ça marche

PS : on est même encore plus près que tu ne crois puisque j'habite à 10km de Louviers en allant vers Le Neubourg