Sub ShowInternalAgentsMonitors
	'Write the list of agents to the screen
	For Each agent In InternalAgents.Items
		WScript.Echo ""
		WScript.Echo "-------------------------------------------------------------------------------"
		WScript.Echo " AGENT: " & agent.Name
		WScript.Echo "-------------------------------------------------------------------------------"

		strHeader = ""
		strRow = ""

		For Each monitor In agent.MonitorList.Items

			For Each objMetric In Monitor.MetricList.Items
				strHeader = strHeader & format(objMetric.Name, objMetric.Width)
				strRow = strRow & format(objMetric.Result & objMetric.Suffix,
				objMetric.Width)
			Next

		Next

		WScript.Echo strHeader
		WScript.Echo strRow
	Next
End Sub