Monitis Top Show agent monitors

ShowInternalAgentsMonitors.vbs

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