Amélioration Script pour renommer imprimante

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

Code:

---

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:

---

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 :
http://img826.imageshack.us/img826/9226/tvis.jpg

Une idée ?

[EDIT]

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

Salut

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

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

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

Code:

---

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

---

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

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:

---

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

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

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:

---

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?

en effet, du mieux,

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

voila mon script :

Code:

---

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:

---

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

---

Mais toujours pas de renommage.

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

Code:

---

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?

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

Code:

---

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 ;)