VBScript Changer une imprimante par défaut grâce à son IP

[Drayaina]

Salutations j'aimerai avoir votre assistance!!

Actuellement j'essai de faire un script vbs ( étant une quiche en développement^^' ),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

  
    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 objPrinter 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 d'avance pour vos solutions !!
-----

[Sebdraluorg]

Salut,

Il faut placer le "Next" en dessous de "End If" ( et supprimer "...." au passage...)

[Drayaina]

Yey merci Sebdraluorg !
Les "...." c'était pour indiquer qu'il y aurait d'autres Elseif ^^ J'aurais dû le préciser