Although not elegant and does little else, this will tell you if the service is running...

code:
function servicestate($_service,optional $remotepc)
  $objects=GetObject("winmgmts:{impersonationLevel=impersonate}!"+$remotepc+"\root\cimv2")
  if not @error=0
    exit @error
  endif
  $services=$objects.ExecQuery('Select * from Win32_Service WHERE Name = "$_service"')
  for each $service in $services
    $servicestate=$service.state
  next 
endfunction
For example: servicestate("Spooler") returns "Running"

Just threw this together so please be understanding if it contains a bug or two, but it did work in my simple test above.

[ 27. May 2003, 22:11: Message edited by: Al_Po ]