That did it. Thanks! Here is my function. The output will be captured into a database field, hence the rather cryptic formatting.

Code:

FUNCTION GetServices()
	$strComputer = "."
	$oWMIService = GetObject("winmgmts:\\" + $strComputer + "\root\cimv2")
	$colItems = $oWMIService.ExecQuery("Select * from Win32_Service",,48)
	FOR EACH $oItem IN $colItems
		IF $oItem.State='Running'
			$GetServices=$GetServices + ' ' + $oItem.Name
		ENDIF
		$GetServices=Trim($GetServices)
	NEXT
	IF $GetServices='' $GetServices='N/A' ENDIF
ENDFUNCTION