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