Discussion :

[jfrsm]

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 :

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

[jfrsm]

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

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

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

[jfrsm]

En fait j'ai mis

Code :

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

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

Et déclaré ainsi

Code :

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

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

merci