Check Sevice Status 4

[grabrail]

Hi

I have a script that goes away and checks free space on drives of a list of servers.

I need to add functionality to this script to query the status of specific services (started, stopped)

For example I need to check if the IIS services is running or not.

Can anybody tell me if this is possible, and if so how.

Cheers

 

[dm4ever]

this may be another posibility. you limit what you want returned "DisplayName" and "Status" and you only query those services you want only once on the PC.


ArrComputer = Array(".")
ArrServices = Array("Alerter", "DHCP Client", "DNS Client")
i = 0

For Each strComputer In ArrComputer
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
For Each Service In ArrServices
If i > 0 Then
str = str & " or DisplayName = '" & Service & "'"
Else
str = "DisplayName = '" & Service & "'"
i = i + 1
End If
Next
Set colItems = objWMIService.ExecQuery("Select DisplayName, State from Win32_Service where " & str)
For Each objItem in colItems
Wscript.echo "DisplayName: " & objItem.DisplayName
Wscript.echo "State: " & objItem.State & VbCrLf
Next
Next