you could use VBS something along the lines of

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

Set colItems = objWMIService.ExecQuery( _

"SELECT * FROM Win32_Service where displayname like '%sql%'",,48)

For Each objItem in colItems

Wscript.Echo "-----------------------------------"

Wscript.Echo "Win32_Service instance"

Wscript.Echo "-----------------------------------"

Wscript.Echo "DisplayName: " & objItem.DisplayName

Wscript.Echo "Name: " & objItem.Name

Wscript.Echo "ProcessId: " & objItem.ProcessId

Wscript.Echo "Status: " & objItem.Status

Next