VBScript Changer une imprimante par défaut grâce à son IP
Salutations j'aimerai avoir votre assistance!!
Actuellement j'essai de faire un script vbs avec ce que je trouve à droite et à gauche pour pouvoir comme cité dans le titre, de changer une imprimante par défaut grâce à son adresse IP.
La société dans laquelle je suis en stage souhaite que je mettes en place un serveur d'impression et que les imprimantes déjà par défaut sur les postes
restent après la mise en place du serveur d'impression.
Mon problème étant que mon serveur d'impression est opérationnel avec toutes les imprimantes réseaux mais je voudrais automatiser le déploiement grâce à un script qui aurait pourrait changer
l'imprimante par défaut par la même mais qui passe par le serveur d'impression.
J'ai eu une idée de début de script mais plusieurs problèmes survient :
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
| strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2" )
Set colInstalledPrinters = objWMIService.ExecQuery _
("Select * from Win32_Printer" )
'Définir une imprimante comme imprimante par défaut :
Dim net
Set net = CreateObject("WScript.Network" )
For Each objPrinters in colInstalledPrinters
Next
if objPrinter.PortName = "X.X.X.1" AND objPrinter.Default = true then
net.SetDefaultPrinter "\\SERVEURIMPRESSION\NOMIMPRIMANTE"
Elseif objPrinter.PortName = "X.X.X.2" AND objPrinter.Default = true then
net.SetDefaultPrinter "\\SERVEURIMPRESSION\NOMIMPRIMANTE2"
....
Else objPrinter.PortName = "X.X.X.X" AND objPrinter.Default = true then
net.SetDefaultPrinter "\\SERVEURIMPRESSION\NOMIMPRIMANTEX"
End If |
Mais je reçois un message d'erreur à la ligne 16 (if objPrinter.PortName = "X.X.X.1" AND objPrinter.Default = true then )
erreur : Objet requis : 'objPrinter'
Code: 800A01A8
Source : Erreur d'exécution Microsoft VBScript
Merci pour vos solutions !!
