script pour choisir imprimante

Version imprimable

20/05/2009, 09h05
guizmo35

script pour choisir imprimante

Bonjour à tous,
je voudrais créer un script qui lorsque l'utilisateur imprime avec son imprimante par défaut et que celle ci n'est pas disponible, une liste déroulante s'affiche(avec les imprimantes disponible) et qu'il puisse sélectionner son imprimante...
Est ce possible?

voyez vous mon erreur.? ça me donne " objet requis " à la ligne objstatus.statuscode, colonne 0 .

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Option Explicit
Dim objPing,objstatus, objWMIService, colInstalledPrinters, objPrinter, net,Serveur
Set net = CreateObject("WScript.Network")
 
'PING DU SERVEUR
Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}!\\").ExecQuery("select * from Win32_PingStatus where address ='serveur236'")
 
If objStatus.Statuscode <> 0 Then
        'Si le ping ne répond pas
                'Rassemble toutes les imprimantes dans colInstalledPrinters
 
                Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
 
               Set colInstalledPrinters = objWMIService.execQuery("Select * from Win32_Printer")
                'Use the reference variable to add some items to the listbox
                For Each objPrinter In colInstalledPrinters
                              if Transform(loPrinter.Default) then
                              msgbox objPrinter.name
                              end If
                Next
 
 
 
        'net.SetDefaultPrinter "\\serveur241\"
End If

25/05/2009, 10h32
omen999
salut,
un copié/collé un peu distrait sans doute...
compare avec ce script: http://www.developpez.net/forums/d20...-reponse-ping/
il te manque la boucle
Code:

1 2 3 For Each objStatus in objPing ... Next
25/05/2009, 11h42
guizmo35

ah mince dsl, j'ai pas mis en encode ...
c'était bien ça en effet...J'ai pas du tout enregistrer mercredi soir ...du coup un peu de mal a m'y remettre..
à " if transform...." il me met "objet requis "encore...
25/05/2009, 12h08
ced600

en effet et c'est quoi Transform ?
Une fonction ?
On peut avoir le code ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Option Explicit
Dim oFrm, objPing,objstatus, objWMIService, colInstalledPrinters, objPrinter, net,Serveur, loprinter, resultat
Set net = CreateObject("WScript.Network")
 
'PING DU SERVEUR
 
Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}!\\").ExecQuery("select * from Win32_PingStatus where address ='serveur236'")
 
If objStatus = 0 Then
 
 
        'Si le ping ne répond pas
                'Rassemble toutes les imprimantes dans colInstalledPrinters
                Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
 
                Set colInstalledPrinters = objWMIService.execQuery("Select * from Win32_Printer")
 
                'Use the reference variable to add some items to the listbox
 
               For Each objPrinter In colInstalledPrinters
                     Resultat = Resultat & "Nom: " & objPrinter.Name & " active : " _
    & objPrinter.Default & vbLf
 
                    'if Transform(loPrinter.Default) then
                       msgbox resultat
                     ' end If
                Next
 
 
       ' net.SetDefaultPrinter "\\serveur241\"
End If

je ne sais pu ce que c'est le transform. Mon but est faire un ping sur le serveur 236, si celui ci ne marche pas j'ai une liste d'imprimante qui s'affiche avec l'autre serveur cad " \\serveur241\....." puis je sélectionne celle que je souhaite.
Ici, une fenetre s'ouvre pour afficher une imprimante, puis 2 puis enfin 3 , mais je ne peux pas sélectionner...

25/05/2009, 12h33
ProgElecT
msgbox affiche une information pour l'utilisateur
inputbox demande une information à l'utilisateur
Motif de l'edit:
Un petit exemple
Code:

1 2 3 4 5 6 7 dim Rep rep = inputbox("d'accord") if rep <> "" then msgbox rep else msgbox "pas de reponse ou bien le bouton Annuler a été utilisé" end if
25/05/2009, 13h15
ced600

Transform est certainement une fonction que tu (ou quelqu'un d'autre vraissemblablement) a crée.
Si ton script ne comporte pas cette fonction, tu ne peux pas l'utiliser.

Où as tu récupérer ce script ?

En plus de la piste que t'a donné ProgElecT, je t'aide en te disant qu'il faudra certainement dans ta boucle réutiliser le code qui te permet de faire le ping.
Le mieux serait de te faire une fonction Ping qui prends en paramètre une adresse de serveur.

le " inputbox" n'était pas la solution

cependant
j'arrive à ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
Option Explicit
Dim oDlg, oFrm, oCtl, objWMIService, colInstalledPrinters, Wscript
Dim objPrinter, net, objPing, objStatus, Resultat, Serveur
Set net = CreateObject("WScript.Network")
 
'PING DU SERVEUR
Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}!\\").ExecQuery("select * from Win32_PingStatus where address ='serveur236'")
 
        For Each objstatus in objping
 
                If objStatus.statuscode = 1 Then
                         msgbox (objStatus.Statuscode)
                        msgbox ("TEST OK")
                else
                        msgbox (objStatus.StatusCode)
                         msgbox ("TEST NOK")
 
                'Si le ping ne répond pas
                'Rassemble toutes les imprimantes dans colInstalledPrinters
 
                          Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
                          Set colInstalledPrinters = objWMIService.execQuery("Select * from Win32_Printer")
 
 
                'Create the WshDialog.Kit object and store a reference in oDlg
 
                           Set oDlg = Wscript.CreateObject("WshDialog.Kit", "oDlg_")
 
                'Add a new form and store a reference to it in the variable oFrm
 
                           Set oFrm = oDlg.NewForm("Sample")
 
                'Add a listbox control named LBX1 to the oFrm form
                'and store a reference to the control in the variable oCtl
 
                           Set oCtl = oFrm.NewListBox("LBX1", 150, 150, 5000, 1000)
 
                'Use the reference variable to add some items to the listbox
 
                         For Each objPrinter In colInstalledPrinters
                                if InStr(1, objPrinter.Name, "\\serveur236\") = 0 then
                                oCtl.AddItem objPrinter.Name
                                 End If
                         Next
 
                'Sélectionner par défault la première imprimante
                 oCtl.ListIndex = 0
 
                'Add an OK button and set it's Default property
                Set oCtl = oFrm.NewButton("OK", 900, 1250, 1000, 375, "&OK")
                oCtl.Default = True
 
                'Automatically size the form and show it (modally)
                oFrm.Autosize
                oFrm.Show 1
 
                'Définir l'imprimante selectionnée par défault
                        If oDlg.Clicked = "OK" Then
                        net.SetDefaultPrinter oFrm.Ctl("LBX1")
                         end if
 
                end if
        Next

il me met encore...." objet requis " pour "Set oDlg = Wscript.CreateObject("WshDialog.Kit", "oDlg_")"
idem pour les autres " Set...."

25/05/2009, 15h46
guizmo35

merci pour tous,ça fonctionne.
cependant j'aimerais une dernière petite chose, c'est que ce script se lance après l'échec d'une impression ou avant l'impression . comment faire?
26/05/2009, 09h03
guizmo35

besoin d'aide s'il vous plait !:D
26/05/2009, 09h11
ced600

Citation:

Envoyé par guizmo35

besoin d'aide s'il vous plait !:D

On s'en doute sinon tu ne serais pas ici.
Si on n'a pas répondu c'est que soit on ne sait pas, soit on n'a pas encore eu le temps de voir ton message.
Perso je viens de le voir seulement maintenant et je ne connais pas la réponse.