Windows Scripts
VBScript
Récupérer la liste des imprimantes installé dans le profil courant


Pour : Windows


Nous allons voir comment récupérer la liste des imprimantes qui sont installées dans le profil de la session actuel.
Ci-dessous un exemple de script qui permet d'afficher la liste des imprimantes et qui sauvegarde cette liste dans un fichier texte à la racine du disque "C:\".
De plus ce script indiquera l'imprimante par défault par "[DEFAUT]".

Le script à été commenté pour faciliter la compréhension.


Exemple:

'*** Création de l'environnement
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set oWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & "." & "\root\cimv2")

'*** Création du fichier texte où sera sauvegarder la liste des imprimantes
Set FileLIST = fso.CreateTextFile("c:\" & "Liste_imprimantes.txt",TRUE)

'*** Création de l'objet pour lister les imprimantes
Set ListPrinters = oWMIService.ExecQuery ("Select * from Win32_Printer")

'*** Création d'une boucle avec incrémentation de "i"
For Each objPrinter in ListPrinters
	i = i + 1
	Printer = "[" & i & "] " & objPrinter.Name

'*** La condition ci-dessous permet de marquer l'imprimante par default
	If objPrinter.Default = "VRAI" Then
		Printer = Printer & " [DEFAUT]"
	End If
	
'*** Pour afficher la liste des imprimantes
	wscript.echo Printer

'*** A chaque exécution de la boucle "For", les imprimantes seront ajouté au fur et à mesure dans le fichier
	FileLIST.WriteLine(Printer)
Next

wscript.echo "[OK] Liste sauvegardé"

'*** Destruction des objets
Set fso = Nothing
Set oWMIService = Nothing
Set ListPrinters = Nothing

WScript.Quit

Par O.Cédric
Sur www.octetmalin.net

Article publié le:
24/10/2014 08:53

Cette page vous à plus?

Dîtes que vous l'aimez en cliquant sur le bouton Facebook.

Contact - Informations -