Posez votre question Signaler

Vbscript arret redémarrage spool [Résolu]

Messages postés
3
Date d'inscription
vendredi 29 avril 2005
Dernière intervention
29 mars 2006
 - - Dernière réponse : cs_senalia
Messages postés
3
Date d'inscription
vendredi 29 avril 2005
Dernière intervention
29 mars 2006
 - 29 mars 2006 à 10:50
Visual Basic Posez votre question Signaler
bonjour tout le monde,

voila, je souhaite créer un script en vb qui me permettrait de gérer l'arret et le redémarrage du service spool.
autre que net stop spooler
net start spooler

en effet je souhaite créer une petite boite de dialogue qui me demanderai quoi faire (soit arret soit démarrage ou soit arret/redémarrage du spool)

si quelqu'un peut m'aider, ca serait vraiment sympa ...
Afficher la suite 

3 réponses

Meilleure réponse
Signaler Commenter la réponse de cs_senalia
Messages postés
3
Date d'inscription
vendredi 29 avril 2005
Dernière intervention
29 mars 2006
3
Merci
voici ce que j'ai fais

Dim mess, Response, oShell
mess="Voulez vous arrêter le service spool ?" &vbCrLf
Set oShell = Wscript.CreateObject("WScript.Shell")
Reponse = oShell.Popup(mess, 10, "script arrêt redémarrage service spool", vbYesNo)
If Reponse = vbYes Then
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" _
& strComputer & "\root\cimv2")
Set colListOfServices = objWMIService.ExecQuery _
("Select * from Win32_Service Where Name ='Spooler'")
For Each objService in colListOfServices
objService.StopService()
Wscript.Echo "Spooler d'impression arreté"
Next
Else If Reponse = VbNo then
mess="Voulez vous démarrer le service spool ?" &vbCrLf
Set oShell = Wscript.CreateObject("WScript.Shell")
Reponse = oShell.Popup(mess, 10, "script arrêt redémarrage service spool", vbYesNo)
If Reponse = vbYes Then
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" _
& strComputer & "\root\cimv2")
Set colListOfServices = objWMIService.ExecQuery _
("Select * from Win32_Service Where Name ='Spooler'")
For Each objService in colListOfServices
objService.StartService()
WScript.Echo "Spooler d'impression démarré"
Next
Else
MsgBox ("Vous avez répondu NON - Arrêt du script !!!")
WScript.Quit
End if
End If
End If
WScript.Quit

et il marche, merci quand meme pour ton aide

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 118 internautes nous ont dit merci ce mois-ci

Signaler Commenter la réponse de cs_JMO
Messages postés
1855
Date d'inscription
jeudi 23 mai 2002
Dernière intervention
24 juin 2018
 26
0
Merci
Bonjour,

Script de fermeture d'un process.... à adapter
je l'ai testé pour fermeture de "explorer.exe"

Dim Reponse
Dim StrComputer
StrComputer = "."


Set fso = CreateObject("Scripting.FileSystemObject")
Reponse = MsgBox ("Arrêt du Spool. Voulez-vous arrêter le Spool ?????",vbInformation+vbYESNo)


If Reponse = vbNo Then
MsgBox ("Vous avez répondu NON - Arrêt du script !!!")
WScript.Quit
Else
Reponse = vbYES


For Each Process In GetObject("winmgmts:").InstancesOf("Win32_process" )
If Process.Name = "explorer.exe" Then
MsgBox "Le process " & Process.Name & " est actif.....numéro ID: " & Process.ProcessID
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" _
& strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'explorer.exe'")
For Each objProcess in colProcessList
objProcess.Terminate()
Next
'MsgBox Process.Name & " id:" & Process.ProcessID &vbcrlf
End if
Next
End If
Set fso = Nothing
Set colProcessList = Nothing
Set objWMIService = Nothing

jean-marc
Signaler Commenter la réponse de cs_senalia
Messages postés
3
Date d'inscription
vendredi 29 avril 2005
Dernière intervention
29 mars 2006
0
Merci
merci de ton aide JMO,

je vais essayer de le modifier et je te tiens au courant.

merci encore
Posez votre question
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.