Vbscript arret redémarrage spool [Résolu]

cs_senalia 3 Messages postés vendredi 29 avril 2005Date d'inscription 29 mars 2006 Dernière intervention - 28 mars 2006 à 10:12 - Dernière réponse : cs_senalia 3 Messages postés vendredi 29 avril 2005Date d'inscription 29 mars 2006 Dernière intervention
- 29 mars 2006 à 10:50
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

cs_senalia 3 Messages postés vendredi 29 avril 2005Date d'inscription 29 mars 2006 Dernière intervention - 29 mars 2006 à 10:50
+3
Utile
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
Cette réponse vous a-t-elle aidé ?  
cs_JMO 1838 Messages postés jeudi 23 mai 2002Date d'inscription 1 avril 2018 Dernière intervention - 28 mars 2006 à 14:26
0
Utile
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
cs_senalia 3 Messages postés vendredi 29 avril 2005Date d'inscription 29 mars 2006 Dernière intervention - 29 mars 2006 à 10:35
0
Utile
merci de ton aide JMO,

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

merci encore

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.