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 ...
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
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
a aidé 88 internautes ce mois-ci