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