Script VBS controle imprimante (Clubic.com)

dan1217

Hello tous le monde,

Je tiens à vous prévenir d'avance que je viens de commencer (2jours) à créer des scripts et j'utilise l'application VBS Factory. En résumé je suis un débutant de chez débutant....

Voilà mon problème, je veux utiliser la méthode "EnumPrinterConnections" pour pouvoir controler toutes les imprimantes installées sur mon réseau.

Par exemple je veux juste qu'il m'affiche à l'écran les imprimantes connectées au réseau, je tape le code suivant : (suite après le code)

Option Explicit

Dim Wshnet, MapPrinters
Set WshNet = CreateObject("WScript.Network"

Set MapPrinters = WshNet.EnumPrinterConnections

WScript.Echo MapPrinters

Logiquement il devrait s'afficher à l'écran la liste des imprimantes, mais non il me fait l'erreur suivante:

Concernant la ligne "WScript.Echo MapPrinters", le logiciel me dit:

Objet requis "

rivebise

le 08 Juill. 06 à 22h38

Hello. Tu peux essayer avec ça si tes postes ont le Wmi extention d'activé. En générale, windows Xp mais ça peux être vrai en W2000 Pro.

Code :

on Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" &amp; strComputer &amp; "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Printer",,48)
For Each objItem in colItems
    Wscript.Echo "Default: " &amp; objItem.Default
    Wscript.Echo "Name: " &amp; objItem.Name
Next

Pour info, si tu mets le nom du poste distant à la place du point, tu peux voir les imprimantes installées à distance.

PS : j'en utilise aussi un autre au boulot en vbs. Je le récupère et te le mets la prochaine fois...

rivebise

le 08 Juill. 06 à 23h07

C'est bon je l'ai trouvé... Ton script plante car l'objet EnumPrinterConnections que tu récupère contient plusieurs objets imprimantes et bien sur la commande echo ne connais que le format texte et pas les objets (à moins qu'il y en est qu'un).

En plus, chaque imprimante laisse dans l'objet EnumPrinterConnections 2 lignes, une pour le port et une pour le nom.

Avec le script suivant, j'en tiens compte et je regroupe les informations par 2 pour avoir le port et le nom sur la même ligne. C'est surtout utilise quand les postes impriment sur plusieurs types d'imprimante (Local, réseau ou applicative (acrobat))

Par contre, pour ta gestion, mais je pense que tu l'avais prevu, remplace la commande echo par un stockage dans un fichier (format

avec le nom de la machine pour que tu puisses le traiter avec excel par exemple.

Code :

Option Explicit

Dim Wshnet, MapPrinters, sStep1, sStep2, sNomImp, i
Set WshNet = CreateObject("WScript.Network")
Set MapPrinters = WshNet.EnumPrinterConnections

If (MapPrinters.count <> 0) Then
        For i = 0 to MapPrinters.count-1 'step 2
                if i mod 2 <> 0 then
                sStep1 = MapPrinters(i)
                        if sStep1 = sStep2 then
                                sNomImp = sStep1
                        else
                                sNomImp = sStep2 &amp; sStep1
                        end if
                WScript.Echo sNomImp
                end if
                if i mod 2 = 0 then
                        sStep2 = MapPrinters(i)
                end if
        Next
End If

Sans-Nom

Une endive et pas de chicons ! ;)

le 09 Juill. 06 à 00h14

Bonjour,

Je te prierai de mettre le langage informatique dans le titre, tel que requis par la charte du forum programmation - pour une meilleure compréhension les uns des autres.

A lire :
http://www.clubic.com/forum/charte-du-foru...on-t306797.html

Pour éditer:
Suffit de cliquer sur ce bouton, dans ton message :

(note : ce message est un gros copier coller, ne pas répliquer derrière)

Modérateur Logiciel - Programmation

dan1217

le 11 Juill. 06 à 16h37

En tout cas merci rivebise, je vais tester tout ca dans la semaine

Je te tiendrai au courant...

P.S. Désolé pour l'oubli (language de programmation)

Sans-Nom

le 11 Juill. 06 à 17h58

(je te demande de corriger cet oubli, car tu le peux)

Modérateur Logiciel - Programmation

dan1217

le 12 Juill. 06 à 10h04

Merci encore rivebise,

Ca marche du nikel crome...

Par contre je suis en train d'essayer de les supprimer après leur énumération, mais je constate que la methode "RemovePrinterConnection" est utilisable que pour les imprimantes réseaux.

Existe-t-il une methode pour supprimer quelquonque types d'imprimantes ?

Script VBS controle imprimante

BE GEEK ! Avec