Bonjour a tous  
 
Jai effectué le script suivant :
 
Set WshNetwork = WScript.CreateObject("WScript.Network" )
Set oPrinters = WshNetwork.EnumPrinterConnections
WScript.Echo "Imprimantes connectées au poste :"
For i = 0 to oPrinters.Count - 1 Step 2
   WScript.Echo "Port " & oPrinters.Item(i) & " = " & oPrinters.Item(i+1)
Next
 
PAs de probleme cela me donne les infos conçernant les imprimantes connectées au poste.
 
1er Question : Est ce que je peux afficher ces résultats en une seule fenetre plutot que une fenetre par imprimantes et comment ?
 
2e Question : Est ce que je peux extraire les résultats (imprimantes trouvées) en fichier Txt ?
 
Je vous remercie pour votre aide ou avis.
 Bonne journée

 
1ère question : OUI
Il suffit que tu concatènes le résultat de chacun des passages dans ta boucle For dans une chaine de caractères , puis que tu affiches cette même chaine de caractère.
Ex:  
sChaine="Imprimantes connectées au poste :"
Set WshNetwork = WScript.CreateObject("WScript.Network" )
Set oPrinters = WshNetwork.EnumPrinterConnections
For i = 0 to oPrinters.Count - 1 Step 2
   sChaine= sChaine & "Port " & oPrinters.Item(i) & " = " & oPrinters.Item(i+1) & Vbcrlf
Next
Wscript.Echo sChaine
 
2ième question: OUI
Il suffit que tu gères la création d'un fichier Texte et l'écriture dans ce fichier texte de ta chaine de caractère.
Ex:
sPathFichier="C:\TOTO.TXT"
Set oFSO = CreateObject("Scripting.FileSystemObject" )
Set oFichierTexte = oFSO.CreateTextFile(sPathFichier,True)
sChaine="Imprimantes connectées au poste :"
Set WshNetwork = WScript.CreateObject("WScript.Network" )
Set oPrinters = WshNetwork.EnumPrinterConnections
For i = 0 to oPrinters.Count - 1 Step 2
   sChaine= sChaine & "Port " & oPrinters.Item(i) & " = " & oPrinters.Item(i+1) & Vbcrlf
Next
oFichierTexte.WriteLine(sChaine)
oFichierTexte.Close
 
 
Bon j'ai pas testé et j'ai écris tout ça vite fait, mais sauf faute de syntaxe l'essentiel est là...