Discussion :

[guizmo35]

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?

[guizmo35]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For Each objStatus in objPing
...
Next

[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...

[ced600]

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

[guizmo35]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...