[R] Lister les imprimantes installées

[Nagroxx]

Bonjour,

j'ai fait un script qui installe des imprimantes d'après une liste qu'il récupère sur un serveur.

J'utilise "wmic printer list instance > .....txt" pour créer une liste des imprimantes installées.

Mon problème est que cette liste contient des espaces à la fin des lignes ce qui pose problème lors de la vérification ligne par ligne des deux listes (à installées et installées).

J'ai cependant fait un petit script pour effacer les espaces inutiles.

J'aurai tout de même voulu savoir tout d'abord si AutoIt pouvait lister les imprimantes installées (voir même installer des imprimantes) sans utiliser de commandes DOS et si vous connaissiez d'autre méthode de listage des imprimantes installées?!

Merci d'avance.

[jguinch]

Salut
De base, il ne me semble pas qu'il y ait de fonction qui liste les imprimantes (juste une pour choisir l'imprimante par défaut).

En regardant dans la base de registre c'est assez simple :

► Afficher le texte

Code : Tout sélectionner

#Include <Array.au3>

$printers = _printerList()
_Arraysort($printers)
_ArrayDisplay($printers)

Func _printerList()
    Local $a_printerList[1]
    $i = 0

    While 1
        $i += 1
        $val = RegEnumVal ("HKCU\Software\Microsoft\Windows NT\CurrentVersion\PrinterPorts", $i )
        If @error Then ExitLoop
        Redim $a_printerList[$i]
        $a_printerList[$i - 1] = $val
    WEnd

    Return $a_printerList
EndFunc

[Nagroxx]

Merci, je l'ai modifié un peu pour qu'il colle a mon script et à mon utilisation (fichier txt) mais ça me simplifie énormément mon script et ça évite certain problème que je rencontrai.

Encore Merci