Using VBScript how can I check if the Spooler service is started and if not start it?

Question

I'd like to use VBScript to check if the Spooler service is started and if not start it, the code below checks the service status but I need some help modifying this so I can check if it is started.

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colRunningServices = objWMIService.ExecQuery _
    ("Select * from Win32_Service")
For Each objService in colRunningServices 
    Wscript.Echo objService.DisplayName  & VbTab & objService.State
Next

Many thanks Steven

score 5 · Answer 1 · answered Oct 08 '10 at 02:08

5

How about something like this. This command will start it if it isn't already running. No need to check in advance.

Dim shell
Set shell = CreateObject("WScript.Shell")
shell.Run "NET START spooler", 1, false

answered Oct 08 '10 at 02:08

JohnFx

34,542
18
104
162

certainly no need to shell out to call external commands. see my answer. – ghostdog74 Oct 08 '10 at 02:33
1

certainly no reason not to either. Why reinvent the wheel? – JohnFx Oct 08 '10 at 02:35

score 1 · Answer 2 · answered Oct 08 '10 at 02:32

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colRunningServices = objWMIService.ExecQuery _
    ("select State from Win32_Service where Name = 'Spooler'")

For Each objService in colRunningServices
    If objService.State <> "Running" Then
        errReturn = objService.StartService()
    End If
Next

Note you can also use objService.started to check if its started.

score 0 · Answer 3 · answered Oct 08 '10 at 14:05

Just for the completeless, here's an alternative variant using the Shell.Application object:

Const strServiceName = "Spooler"

Set oShell = CreateObject("Shell.Application")
If Not oShell.IsServiceRunning(strServiceName) Then
  oShell.ServiceStart strServiceName, False
End If

Or simply:

Set oShell = CreateObject("Shell.Application")
oShell.ServiceStart "Spooler", False    ''# This returns False if the service is already running

Using VBScript how can I check if the Spooler service is started and if not start it?

3 Answers3