Vider le spouleur en ligne de commande

Le
RS
Bonjour,

Y'a-til moyen de vider completement le spool d'une imprimante donnée en
ligne de commande ?

du style :

net print \serveurimprimante /vider-tout

Cordialement.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Gilles LAURENT
Le #738780
"RS" news:
| Bonjour,

Bonjour,

| Y'a-til moyen de vider completement le spool d'une imprimante donnée
| en ligne de commande ?
|
| du style :
|
| net print \serveurimprimante /vider-tout
|
| Cordialement.

Par exemple en VBScript avec la méthode CancelAllJobs de classe WMI
Win32_Printer :

+++ Usage
> cscript CancelAllJobs.vbs \serverprinter

--- Coupez ici : CancelAllJobs.vbs ---
Set oRe=New RegExp
oRe.Pattern="\\(.*?)\(.*)"
Set oMatches=oRe.Execute(WScript.Arguments(0))
strComputer=oMatches(0).SubMatches(0)
strPrn=oMatches(0).SubMatches(1)
Set oWmi=GetObject("winmgmts://" & strComputer & "/root/cimv2")
Set colPrn=oWmi.ExecQuery( _
"SELECT * FROM Win32_Printer " & _
"WHERE ShareName='" & strPrn & "'")
For Each oPrn In colPrn
oPrn.CancelAllJobs()
Next
--- Coupez ici : CancelAllJobs.vbs ---

--
Gilles LAURENT
http://glsft.free.fr
daeressea
Le #748613
simple il suffit d'arreter le service spooler d'impression

net stop spoolsvc

( je suis pas sur du nom du service)


"RS" news:
| Bonjour,

Bonjour,

| Y'a-til moyen de vider completement le spool d'une imprimante donnée
| en ligne de commande ?
|
| du style :
|
| net print \serveurimprimante /vider-tout
|
| Cordialement.

Par exemple en VBScript avec la méthode CancelAllJobs de classe WMI
Win32_Printer :

+++ Usage
> cscript CancelAllJobs.vbs \serverprinter

--- Coupez ici : CancelAllJobs.vbs ---
Set oRe=New RegExp
oRe.Pattern="\\(.*?)\(.*)"
Set oMatches=oRe.Execute(WScript.Arguments(0))
strComputer=oMatches(0).SubMatches(0)
strPrn=oMatches(0).SubMatches(1)
Set oWmi=GetObject("winmgmts://" & strComputer & "/root/cimv2")
Set colPrn=oWmi.ExecQuery( _
"SELECT * FROM Win32_Printer " & _
"WHERE ShareName='" & strPrn & "'")
For Each oPrn In colPrn
oPrn.CancelAllJobs()
Next
--- Coupez ici : CancelAllJobs.vbs ---

--
Gilles LAURENT
http://glsft.free.fr





Publicité
Poster une réponse
Anonyme