Sortir resultat txt

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 :wink:

Code:

---

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

---

Salut,

tu peux essayer ca :

Code:

---

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++

Salut collègue Normand :yaisse2:

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...

Salut,

Citation:

---

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:

---

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:

---

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

---

A++

Merci beaucoup ça marche :king:

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