Modifier nom imprimante
patleguillou
Messages postés
4
Date d'inscription
samedi 22 septembre 2007
Statut
Membre
Dernière intervention
31 juillet 2009
-
15 oct. 2007 à 16:42
patleguillou Messages postés 4 Date d'inscription samedi 22 septembre 2007 Statut Membre Dernière intervention 31 juillet 2009 - 16 oct. 2007 à 09:39
patleguillou Messages postés 4 Date d'inscription samedi 22 septembre 2007 Statut Membre Dernière intervention 31 juillet 2009 - 16 oct. 2007 à 09:39
2 réponses
sebmafate
Messages postés
4936
Date d'inscription
lundi 17 février 2003
Statut
Membre
Dernière intervention
14 février 2014
37
15 oct. 2007 à 17:05
15 oct. 2007 à 17:05
va voir sur www.pinvoke.net
Sébastien FERRAND (blog)
Consultant Indépendant
[Microsoft Visual C# MVP]
Sébastien FERRAND (blog)
Consultant Indépendant
[Microsoft Visual C# MVP]
patleguillou
Messages postés
4
Date d'inscription
samedi 22 septembre 2007
Statut
Membre
Dernière intervention
31 juillet 2009
16 oct. 2007 à 09:39
16 oct. 2007 à 09:39
honnetement j'avais déja consulté ce site et c'est un peu l'usine a gaz .
J'ai utilisé un vbscript et ca marche parfaitement
WScript.Sleep(5000)
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
Set colPrinters = objWMIService.ExecQuery ("Select * from Win32_Printer Where DeviceID Like '%dans la session%'")
For Each objPrinter in colPrinters
i = InStr(1,objPrinter.name,"dans la session")
If i > 0 Then
objPrinter.RenamePrinter(Left(objPrinter.name,i-2))
End If
Next
J'ai utilisé un vbscript et ca marche parfaitement
WScript.Sleep(5000)
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
Set colPrinters = objWMIService.ExecQuery ("Select * from Win32_Printer Where DeviceID Like '%dans la session%'")
For Each objPrinter in colPrinters
i = InStr(1,objPrinter.name,"dans la session")
If i > 0 Then
objPrinter.RenamePrinter(Left(objPrinter.name,i-2))
End If
Next
