hmmmm... maybe something like this.

Code:
Function IsServiceRunning($strComputer,$strProc)
Dim $Process,$State
For Each $Process In GetObject("winmgmts:{impersonationLevel=impersonate}!\\" + $strComputer + "\root\cimv2").ExecQuery("select * from Win32_Service where Name='" + $strProc + "'")
  $State = $Process.state
Next
$IsServiceRunning=$State
EndFunction