how to check service state using vbscript?

Question

Is there anyway to check the status of service using vbscript ? I would like to have a function for each possible service state : LINK Any help would be great. I did write a function for checking if service is stopped : ``` Public Function IsServiceStop(ByVal serviceName) On Error Resume Next Dim objServices, service Set oWmiService = GetObject("winmgmts:\.oot\cimv2") Set objServices = oWmiService.ExecQuery("Select * from Win32_Service where Name='" & serviceName & "'") For Each service In objServices IsServiceStop = (service.Started = False) Exit Function Next IsServiceStop = True On Error Goto 0 End Function ```

Accepted Answer

When in doubt, read the documentation. All you need to do is check the `State` property of the service object:

```
serviceName = "..."

Set wmi = GetObject("winmgmts://./root/cimv2")
state = wmi.Get("Win32_Service.Name='" & serviceName & "'").State
WScript.Echo state
```

how to check service state using vbscript?

Solution

Problem