J'aimerai savoir si il est possible en VBS de modifier des paramètre d'imprimantes. J'aimerai modifier deux choses : 1) Dans l'onglet "Accessoires", cocher l'utité Recto/verso" 2) Activer le Recto/verso après l'installation de l'imprimante.
L'imprimante en question est une Ricoh NRG Dsm725.
Dois-je récupérer des infos du constructeur ou existe t'il une solution avec VBS.
J'ai tenté :
NomPC= "."Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!" _ & NomPC& "rootcimv2" )Set EnsIMP = objWMIService.ExecQuery _ ("Select * from Win32_PrinterConfiguration " )For Each ObjIMP In EnsIMP ObjIMP.Duplex = TrueNext
Même ça : NomPC= "."Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!" _ & NomPC& "rootcimv2" )Set EnsIMP = objWMIService.ExecQuery _ ("Select * from Win32_PrinterConfiguration " )For Each ObjIMP In EnsIMP ObjIMP.Duplex = 2Next
Marsh Posté le 02-06-2013 à 11:41:00
Bonjour à tous,
J'aimerai savoir si il est possible en VBS de modifier des paramètre d'imprimantes.
J'aimerai modifier deux choses :
1) Dans l'onglet "Accessoires", cocher l'utité Recto/verso"
2) Activer le Recto/verso après l'installation de l'imprimante.
L'imprimante en question est une Ricoh NRG Dsm725.
Dois-je récupérer des infos du constructeur ou existe t'il une solution avec VBS.
J'ai tenté :
NomPC= "."Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!" _ & NomPC& "rootcimv2" )Set EnsIMP = objWMIService.ExecQuery _ ("Select * from Win32_PrinterConfiguration " )For Each ObjIMP In EnsIMP ObjIMP.Duplex = TrueNext
Même ça :
NomPC= "."Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!" _ & NomPC& "rootcimv2" )Set EnsIMP = objWMIService.ExecQuery _ ("Select * from Win32_PrinterConfiguration " )For Each ObjIMP In EnsIMP ObjIMP.Duplex = 2Next
Sans succès.
Merci pour votre future aide.