Vbscript: Check Windows Service State

'------------------------------------------------
'Author: Wei_Zhu
'Creation Date: 2010.02.24 
'Program Name: Check_Service_State.vbs
'Descript: Check Your Server Point Service State
'             If Stopped, Start it.
'------------------------------------------------

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colRunningServices = objWMIService.ExecQuery _
("Select * from Win32_Service")
For Each objService in colRunningServices 
if objService.DisplayName ="WMI Performance Adapter" then   'Your Service Name
   if objservice.State = "Stopped" then
' Wscript.Echo objService.DisplayName
      objService.StartService() 
   end if
end if
Next