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