Discussion :

[ryohazuki100]

Bonjour,
je cherche une solution pour renommer une imprimante RDP grâce au script trouvé ici

Code :

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

1
2
3
4
5
6
7
8
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 
Set colPrinters = objWMIService.ExecQuery ("Select * from Win32_Printer Where DeviceID = 'ANCIEN-NOM-IMP")
 
For Each objPrinter in colPrinters
objPrinter.RenamePrinter("NOUVEAU-NOM-IMP")
Next

Le script fonctionne ce qui est déja très bien, mais le problème c'est qu'en l'état il faut connaitre le nom exacte de l'imprimante à renommer.
Or en RDP le nom de l'imprimante partagé change en fonction de l'ID de la session que windows attribue (Plus d'explications sur mon précédent post -> ici)

Quelqu'un propose une solution avec ce script :

Code :

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

1
2
3
4
5
6
7
8
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 
Set colPrinters = objWMIService.ExecQuery ("Select * from Win32_Printer Like DeviceID = '%UNE-PARTIE-DE-ANCIEN-NOM-IMP%'")
 
For Each objPrinter in colPrinters
objPrinter.RenamePrinter("NOUVEAU-NOM-IMP")
Next

Là par contre ça ne fonctionne pas pour moi, j'ai ce message d'erreur :


Une idée ?

[EDIT]

Problème résolu -> Voir post #11

[ProgElecT]

Salut

Il me semble bien que le égal (=) pour un Like ne doit pas être mis dans la requête.

[ryohazuki100]

C'est à dire ? J’enlève tout simplement le "=" après le "DeviceID" ?

[ProgElecT]

Oui, en tout cas à essayer, car pour une requête SQL il ne le faut pas.

Code :

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

Set colPrinters = objWMIService.ExecQuery("Select * from Win32_Printer DeviceID Like '%UNE-PARTIE-DE-ANCIEN-NOM-IMP%'")

[ryohazuki100]

Toujours pareil, j'ai la même erreur.

[pitchalov]

Bonjour,

Pour moi le problème ne vient pas de la structure de la requête WMI, car si c'était le cas tu ne rentrerais pas dans le For Each.

Combien d'imprimantes s'affichent lorsque tu lances ce code :

Code :

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

1
2
3
4
5
6
7
8
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 
Set colPrinters = objWMIService.ExecQuery ("Select * from Win32_Printer Like DeviceID = '%UNE-PARTIE-DE-ANCIEN-NOM-IMP%'")
 
For Each objPrinter in colPrinters
  WScript.Echo objPrinter.DeviceID 
  ' objPrinter.RenamePrinter("NOUVEAU-NOM-IMP")
Next

Si il y en a plus d'une, le problème peut venir de là. Il faudra alors affiner ta requête WMI pour n'avoir que l'imprimante à renommer.
Si il n'y en a qu'une, alors je fais fausse piste.

Bonne continuation

[ryohazuki100]

Toujours le même message d'erreur, je ne sais pas du tout d'où cela peut venir.
De plus je ne m'y connais pas en code alors ça n’arrange rien

[pitchalov]

Désolé, je n'avais pas les yeux en face des trous, la requête WMI n'est effectivement pas bonne. Essaie comme ça :

Code :

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

1
2
3
4
5
6
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colPrinters = objWMIService.ExecQuery ("Select * from Win32_Printer Where DeviceID Like '%UNE-PARTIE-DE-ANCIEN-NOM-IMP%'")
For Each objPrinter in colPrinters
  WScript.Echo objPrinter.DeviceID 
  ' objPrinter.RenamePrinter("NOUVEAU-NOM-IMP")
Next

Meilleur résultat?

[ryohazuki100]

en effet, du mieux,

J'explique :
J'ai appelé mon imprimante "IMP TEST"

voila mon script :

Code :

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

1
2
3
4
5
6
7
strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colPrinters = objWMIService.ExecQuery ("Select * from Win32_Printer Where DeviceID Like '%TEST%'")
For Each objPrinter in colPrinters
  WScript.Echo objPrinter.DeviceID 
  ' objPrinter.RenamePrinter("IMP-RDP")
Next

lorsque j’exécute le code, cela m'afiche bien "IMP TEST" dans la fenetre "Windows Script Host".
J'en conclue que cette partie du code fonctionne :

Code :

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

Set colPrinters = objWMIService.ExecQuery ("Select * from Win32_Printer Where DeviceID Like '%TEST%'")

Mais toujours pas de renommage.

[pitchalov]

Euh tu as bien enlevé le commentaire pour renommer ton imprimante ou pas?

Code :

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

1
2
3
4
5
6
7
8
 
strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colPrinters = objWMIService.ExecQuery ("Select * from Win32_Printer Where DeviceID Like '%TEST%'")
For Each objPrinter in colPrinters
  WScript.Echo "Renommage de l'imprimante <" & objPrinter.DeviceID & "> en <IMP-RDP>"
  objPrinter.RenamePrinter("IMP-RDP")
Next

Sinon quel est ton message d'erreur ? c'est toujours le même?

[ryohazuki100]

Merci beaucoup, cela fonctionne très bien.
J'ai ajouté un apostrophe devant le "WScript.Echo" afin de ne pas avoir de message de confirmation, comme ça tout est transparent.

Code :

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

1
2
3
4
5
6
7
strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colPrinters = objWMIService.ExecQuery ("Select * from Win32_Printer Where DeviceID Like '%UNE-PARTIE-DE-ANCIEN-NOM-IMP%'")
For Each objPrinter in colPrinters
  ' WScript.Echo "Renommage de l'imprimante <" & objPrinter.DeviceID & "> en <NOUVEAU-NOM-IMP>"
  objPrinter.RenamePrinter("NOUVEAU-NOM-IMP")
Next

Dernière question,
comment ajouter à la fin du script le lancement de mon programme.

En gros le script fait :
1 -> trouve moi l'imprimante qui contient le mot " toto " et renomme la en " tata "
2 -> ensuite lance le raccourci du programme situé dans C:\***.lnk

je précise que j'ai besoin d’exécuter directement un .lnk car je dois conserver des propriétés dans le raccourci du programme.

[EDIT]
Bon finalement, je suis passé par un batch pour exécuter mon .vbs puis mon .lnk.
J'ai juste la fenêtre DOS en arrière plan pendant quelques secondes, c'est moins esthétique pour mon client, mais c'est fonctionnel. De plus je ne sais pas si l'on peux lancer un .lnk en .vbs.

Tout est ok pour moi, cela fonctionne comme je souhaitai.
Grand merci pour l'aide