Break On

$ServiceName = "EventLog"

$statustypes = 
"null",
"Stopped",
"Start Pending",
"Stop Pending",
"Running",
"Continue Pending",
"Pause Pending",
"Paused",
"Error"

$Service = GetObject("WinNT://@WKSTA/$ServiceName,Service")

If $Service
 ?"Status=" $StatusTypes[$Service.Status]
EndIf

Exit 1

And someone just called me an "OLE has-been" (offline) ... Take that I say !!!

-Shawn