Bonjour,
je cherche une solution pour renommer une imprimante RDP grâce au script trouvé ici
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.
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
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 :
Là par contre ça ne fonctionne pas pour moi, j'ai ce message d'erreur :
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
Une idée ?
[EDIT]
Problème résolu -> Voir post #11
Partager