'==========================================================================
'
'
' NAME: <ServiceINFO.vbs>
'
' AUTHOR: Ed Wilson , MS
' DATE  : 4/18/2006
'ver.1.0
' COMMENT: <Displays status of services installed on machine.>
'
'==========================================================================

Option Explicit 
'On Error Resume Next
dim strComputer
dim wmiNS
dim wmiQuery
dim objWMIService
dim colItems
dim objItem

strComputer = "."
wmiNS = "\root\cimv2"
wmiQuery = "Select * from win32_service"
Set objWMIService = GetObject("winmgmts:\\" & strComputer & wmiNS)
Set colItems = objWMIService.ExecQuery(wmiQuery)

For Each objItem in colItems
    Wscript.Echo "Name: " & objItem.Name, _
    "Started: " & objItem.Started
Next