Sélection imprimante réseau

Version imprimable

Bonjour, j'essaie de créer un script qui permet:

1- Installer une imprimante réseau

Si

2- il n'y a aucune imprimante il l'installe et la met par défaut

3- mais aussi si il trouve une imprimante locale il installe la réseau mais ne la met pas par défaut (l'imprimante réseau) et laisse la locale par défaut.

(dans l'ensemble mon script le fait actuellement)

Par contre j'aimerais aussi que s'il découvre une autre imprimante réseau déjà installée par défaut, qu'il ne fasse qu'installer la seconde imprimante réseau sans la mettre par défaut.

Bref je cherche à découvrir comment faire pour trouver si sur l'ordi il y a une imprimante réseau d'installer par défaut...comme au point 3 mais pour une imprimante réseau...
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 strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colPrinters = objWMIService.ExecQuery _ ("Select * From Win32_Printer Where Local = TRUE") Set colItems = objWMIService.ExecQuery("Select * From Win32_ComputerSystem") If colPrinters.Count = 0 Then Set objNetwork = CreateObject("WScript.Network") objNetwork.AddWindowsPrinterConnection "\\ip\print" objNetwork.SetDefaultPrinter "\\ip\print" For Each objItem in colItems arrName = Split(objItem.UserName, "\") Wscript.Echo "Bonjour, " & arrName(1) & " votre imprimante par défaut est " & vbCr & "celle du laboratoire." Next Else Set objNetwork = CreateObject("WScript.Network") objNetwork.AddWindowsPrinterConnection "\\ip\print" For Each objItem in colItems arrName = Split(objItem.UserName, "\") Wscript.Echo "Bonjour, " & arrName(1) & " blabla" Next End If
Merci pour votre aide...

Bon j'ai avancé et ça fonctionne maintenant...

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
 
strComputer = "."
 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colPrinters = objWMIService.ExecQuery _
    ("Select * From Win32_Printer Where Local = TRUE")
 
Set colItems = objWMIService.ExecQuery("Select * From Win32_ComputerSystem")
 
Set colInstalledPrinters =  objWMIService.ExecQuery _
    ("Select * from Win32_Printer Where Network = TRUE")
 
 
If colPrinters.Count = 0 and colInstalledPrinters.count = 0 Then
    Set objNetwork = CreateObject("WScript.Network")
 
    objNetwork.AddWindowsPrinterConnection "\\ip\print"
    objNetwork.SetDefaultPrinter "\\ip\print"
 
For Each objItem in colItems
    arrName = Split(objItem.UserName, "\")
    Wscript.Echo "Bonjour, " & arrName(1) & " votre imprimante par défaut est " & vbCr & "celle du laboratoire."
Next
 
ElseIf colPrinters.Count > 0 or colInstalledPrinters.count > 0 Then
 
Set objNetwork = CreateObject("WScript.Network")
    objNetwork.AddWindowsPrinterConnection "\\ip\print"
 
For Each objItem in colItems
    arrName = Split(objItem.UserName, "\")
    Wscript.Echo "Bonjour, " & arrName(1) & "blabla"
 
Next
End if

Par contre j'aimerais récupérer le nom de l'imprimante par défaut et l'inscrire dans le Echo...un peu comme le fait arrName(1)

Vers quoi devrais-je orienter mes recherches...

Merci

23/06/2008, 09h36
ced600

Pour cela il suffit d'utiliser les propriétés et les méthodes d l'objet Win32_Printer
Comme les autres collections d'objet que tu récupère, parcours colInstalledPrinters comme les autres collections d'objets que tu parcours, et utilise pour chacun d'eux la ou les bonnes propriétés et/ou méthodes.
30/06/2008, 18h20
jfrsm
En fait j'ai mis

Code:

Toto = "Bonjour, " & arrName(1) & " suite...

Et déclaré ainsi
Code:

1 2 3 4 For Each objPrinter in colPrinters Wscript.Echo Toto & " " & objPrinter.Name Next End if
merci