Modified a bit, but that worked well. Just wish I could have stuck with WMIquery...

Thanks!

Code:
Function ServiceState($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
    If Not $State
        $ServiceState="Service Not Found"
    Else
        $ServiceState=$State
    EndIf
EndFunction


_________________________
-Jim

...the sort of general malaise that only the genius possess and the insane lament.