you may want to consider the ADSI way
Set COmputer = GetObject("WinNT://DOmainNAme/COmputerName,computer")
Set Service = Computer.GetObject("service","ServiceNameHere")
Wscript.Echo Service.Status
1, stopped
4, running
or
Set COmputer = GetObject("WinNT://DOmainNAme/COmputerName,computer")
Computer.Filter = Array("service")
For Each Service In Computer
Wscript.Echo Service.Name & " " & Service.Status
Next