Code:
 Break On
$strComputer = "."
$objWMIService = GetObject("winmgmts:\\" + $strComputer + "\root\cimv2")
$colItems = $objWMIService.ExecQuery("Select * from Win32_Service",,48)
For each $objItem in $colItems
  "AcceptPause: " + $objItem.AcceptPause ?
  "AcceptStop: " + $objItem.AcceptStop ?
  "Caption: " + $objItem.Caption ?
  "CheckPoint: " + $objItem.CheckPoint ?
  "CreationClassName: " + $objItem.CreationClassName ?
  "Description: " + $objItem.Description ?
  "DesktopInteract: " + $objItem.DesktopInteract ?
  "DisplayName: " + $objItem.DisplayName ?
  "ErrorControl: " + $objItem.ErrorControl ?
  "ExitCode: " + $objItem.ExitCode ?
  "InstallDate: " + $objItem.InstallDate ?
  "Name: " + $objItem.Name ?
  "PathName: " + $objItem.PathName ?
  "ProcessId: " + $objItem.ProcessId ?
  "ServiceSpecificExitCode: " + $objItem.ServiceSpecificExitCode ?
  "ServiceType: " + $objItem.ServiceType ?
  "Started: " + $objItem.Started ?
  "StartMode: " + $objItem.StartMode ?
  "StartName: " + $objItem.StartName ?
  "State: " + $objItem.State ?
  "Status: " + $objItem.Status ?
  "SystemCreationClassName: " + $objItem.SystemCreationClassName ?
  "SystemName: " + $objItem.SystemName ?
  "TagId: " + $objItem.TagId ?
  "WaitHint: " + $objItem.WaitHint ?
  ?
Next
_________________________
How to ask questions the smart way <-----------> Before you ask