abarnas

Sub Include(strFilename)
	On Error Resume Next
	Dim oFSO, f, s

	Set oFSO = CreateObject("Scripting.FileSystemObject")
	If oFSO.FileExists(strFilename) Then
		Set f = oFSO.OpenTextFile(strFilename)
		s = f.ReadAll
		f.Close
		ExecuteGlobal s

abarnas

Class class_Metric
	Public Name
	Public Metric
	Public Result
	Public Suffix
	Public Width
	
	Private Sub Class_Initialize
		Name = ""
		Metric = ""

abarnas

Function GetInternalAgents(aObjHttp, aObjAgents, aShowMonitors, aShowProcesses)
	Dim objAgents, xmlAgents
	Set objAgents = CreateObject("Scripting.Dictionary")
	
	'Retrieve the list of agents
	url = "http://www.monitis.com/api?action=agents&apikey=" + apiKey + "&output=xml"
	aObjHttp.open "GET", url, False
	aObjHttp.send
	
	'Parse response

abarnas

Function GetGlobalMonitors(aObjHttp, oNames, aObjAgent, aShowMonitors)
	Dim oName
  
	For Each oName in oNames
	
    	If oName.NodeName <> "#text" And oName.NodeName <> "process" And _
		  SupportedMonitors.Exists(LCase(oName.NodeName)) And _
		  aShowMonitors.Exists(LCase(oName.NodeName)) Then
    
    		' Create new monitor object

abarnas

Function GetProcessMonitors(aObjHttp, oNames, aObjAgent, aShowProcesses)
				
	url = "http://www.monitis.com/api?version=2&apikey=" & apikey & "&output=xml&action=topProcessByCPUUsage&limit=50&detailedResults=true"
	
	aObjHttp.open "GET", url, False
	aObjHttp.send
	Set oRes = CreateObject("Microsoft.XMLDOM")
	oRes.async = False
	oRes.LoadXML(aObjHttp.responseText)
	

abarnas

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 = ""

abarnas

Function GetExternalMonitors(aObjHttp, aObjAgents, aShowMonitors)
	Dim objAgents, xmlAgents
	Set objAgents = CreateObject("Scripting.Dictionary")
	
	'Create the dummy Agent object
	Set Agent = New class_InternalAgent
	Agent.Id = ""
	Agent.Name = "EXTERNAL"
	
	WScript.Echo "Acquiring external monitors..."

abarnas

Function GetFullpageMonitors(aObjHttp, aObjAgent, aShowMonitors)
	Dim objAgents, xmlAgents
	Set objAgents = CreateObject("Scripting.Dictionary")
	
	'Create the dummy Agent object
	Set Agent = New class_InternalAgent
	Agent.Id = ""
	Agent.Name = "FULLPAGE"
	
	url = "http://www.monitis.com/api?version=2&apikey=" & apikey & "&output=xml&action=topFullpage&limit=50&detailedResults=true"

abarnas

namespace MonitisTop
{
    public class Agent
    {
        private string id;
        private string name;
        private int maxMonitorWidth;
        private List<Monitor> monitors;

        public string Id { get { return id; } set { id = value;} }

abarnas

namespace MonitisTop
{
    /// <summary>
    /// Base monitor class
    /// </summary>
    public class Monitor
    {
        protected Agent agent;

        protected string id;