Récupérer username + noms imprimantes utilisées

bonjour,

comme je l'ai dit dans mon poste précédent, je suis débutant en développement et encore plus en VBS.
Je me suis lancé dans un script qui écrirait dans un fichier txt le nom de l'user avec les noms d'imprimantes qu'il utilise à sa connexion. Ca listerait donc tous les utilisateurs utilisant les imprimantes (tel utilisateur utilise telle ou telle imprimante)

Pour l'instant j'arrive a récupérer le nom des imprimantes utilisées:

Code:

---

1 2 3 4 5 6 7

strComputer = "." Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colInstalledPrinters = objWMIService.ExecQuery ("Select * from Win32_Printer")   For Each objPrinter in colInstalledPrinters Wscript.Echo "Name: " & objPrinter.Name & vbCrLf & "Default? : " & objPrinter.Default Next

---

j'arrive aussi a récupérer l'username:

Code:

---

1 2 3

Set WshNet = CreateObject("WScript.Network") User = WshNet.Username Wscript.Echo User

---

et à écrire dans un fichier:

Code:

---

1 2 3 4 5 6 7 8 9 10

Set FSys = CreateObject("Scripting.FileSystemObject") Set MonFic = FSys.CreateTextFile("c:\fichier.txt")   With MonFic 'Pour écrire dans le fichier texte .writeLine "toto" 'Mettre write pour ne pas sauter à la ligne .writeLine "deuxième ligne" .writeLine "troisième ligne, etc..." End With Msg = "Écriture réussie dans fichier.txt" MsgBox(Msg)

---

Maintenant j'ai plusieurs pb:
- il me faut rassembler le tout, mais les boucles et moi...ca fait beaucoup
- je pense que l'écriture écrasera a chq fois le fichier et son contenu
- il y a risque de doublons :?

quelqu'un a t il une suggestion et pourrait m'aider?

Voici à peu près le résultat que j'aimerai obtenir:
- imprimante1: user1, user2, user3
-imprimante2: user2
-imprimante3: user2, user3

Merci

Bon j'ai réglé mon pb, je poste ma solution, ca peut aider certains qui sait :P
j'ai finalement opté pour l'écriture des résultats dans une bdd sql

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Set objNetwork = CreateObject("Wscript.Network") Set objShell = CreateObject("Wscript.Shell") strComputer = "." Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colInstalledPrinters = objWMIService.ExecQuery ("Select * from Win32_Printer")   Server = "\\********" strUserName = objNetwork.username   For Each objPrinter in colInstalledPrinters if objPrinter.Default = true then pDefault=1 else pDefault=0 End if strPrinterName = objPrinter.Name strCmd = Server & "\mysql.exe --host=*** --database=*** --user=*** --password=*** --execute=""INSERT INTO `imp` VALUES ('" & strUserName & "','"& strPrinterName & "','" & DatePart("yyyy",Date) & "-" & DatePart("m",Date) & "-" & DatePart("d",Date) & " " & DatePart("h",Now) & ":" & DatePart("n",Now) & ":" & DatePart("s",Now) & "','" & pDefault & "');""" objShell.Run strCmd, 0, True Next

---

j'ai rajouté aussi par rapport à la version précédente un champs qui permettrais de savoir si l'imprimante est celle par défaut ou non, ainsi que la date de connexion