Discussion :

[Drayaina]

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

[ProgElecT]

Salut, bienvenue sur DVP

Tu ouvres une boucle (ligne 12) pour parcourir les imprimantes, mais tu la refermes par Next (ligne 14)
De plus ta variable objPrinters devient objPrinter ou est passé le S

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:" _ 
        & "{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 
 
	if objPrinters.PortName = "X.X.X.1" AND objPrinters.Default = true then 
		net.SetDefaultPrinter "\\SERVEURIMPRESSION\NOMIMPRIMANTE"  
		Elseif objPrinters.PortName = "X.X.X.2" AND objPrinters.Default = true then
			net.SetDefaultPrinter "\\SERVEURIMPRESSION\NOMIMPRIMANTE2" 
			'.... 
		End If
		Else
		If objPrinters.PortName = "X.X.X.X" AND objPrinters.Default = true then
			net.SetDefaultPrinter "\\SERVEURIMPRESSION\NOMIMPRIMANTEX"
		End If
	End If
 
Next

[Drayaina]

Yey ! merci pour la solution que tu m'as proposé :3
Maintenant il me dit qu'il me manque "Next" alors que pourtant il est bien à la fin du dernier End If :/

[Drayaina]

En fait j'ai fais une bêtise, j'ai mis des End If après chaque Elseif après les avoir retirés ça fonctionne mieux encore merci !!!!!!!!