Methods

The MIIS_ManagementAgent class defines the following methods:

• Execute
• GetServerStatus
• NumConnectors
• NumCSObjects
• NumDisconnectors
• NumExplicitConnectors
• NumExplicitDisconnectors
• NumExportAdd
• NumExportDelete
• NumExportUpdate
• NumFilteredDisconnectors
• NumImportAdd
• NumImportDelete
• NumImportNoChange
• NumImportUpdate
• NumPlaceHolders
• NumTotalConnectors
• NumTotalDisconnectors
• RunDetails
• RunEndTime
• RunNumber
• RunProfile
• RunStartTime
• RunStatus
• Stop

The following example shows how you can use Visual Basic Scripting Edition (VBScript) to get the counter return values of all management agents that are installed on the server:

Option Explicit

On Error Resume Next

Dim Service
Dim ManagementAgents
Dim ManagementAgent

Set Service= GetObject("winmgmts:root\MicrosoftIdentityIntegrationServer")
Set ManagementAgents = Service.ExecQuery("Select * from MIIS_ManagementAgent" )

For Each ManagementAgent in ManagementAgents
	Dim MAStatistics


	' Management Agent Statistics
	MAStatistics = ManagementAgent.Name _
						& "Management Agent Run Statistics" & vbcrlf

	MAStatistics = MAStatistics & "	Run Profile Name: " _
						& ManagementAgent.RunProfile() & vbcrlf

	MAStatistics = MAStatistics & "	Start Time	: " _
						& ManagementAgent.RunStartTime() & vbcrlf
					
	MAStatistics = MAStatistics & "	End Time		: " _
						& ManagementAgent.RunEndTime() & vbcrlf
					

	' Object Counter Statistics
	MAStatistics = MAStatistics & vbcrlf _
						& "Connector Space Object Counters" & vbcrlf
					
	MAStatistics = MAStatistics _
						& "   Total Connector Space Objects: " _
							& ManagementAgent.numCSObjects() & vbcrlf

	MAStatistics = MAStatistics _
						& "   Total Connector Objects	: " _
							& ManagementAgent.numConnectors() & vbcrlf

	MAStatistics = MAStatistics _
						& "   Explicit Connector Objects   : " _
							& ManagementAgent.numExplicitConnectors() & vbcrlf
						
	MAStatistics = MAStatistics _
						& "   Total Connector Objects	: " _
							& ManagementAgent.numTotalConnectors() & vbcrlf

	MAStatistics = MAStatistics _
						& "   Total Disconnector Objects   : " _
							& ManagementAgent.numTotalDisconnectors() & vbcrlf

	MAStatistics = MAStatistics _
						& "   Disconnectors Objects		: " _
							& ManagementAgent.numDisconnectors() & vbcrlf

	MAStatistics = MAStatistics _
						& "   Explicit Disconnector Objects: " _
							& ManagementAgent.numExplicitDisconnectors() & vbcrlf

	MAStatistics = MAStatistics _
						& "   Filtered Disconnectors	 : " _
							& ManagementAgent.numFilteredDisconnectors() & vbcrlf

	MAStatistics = MAStatistics _
						& "   Placeholder Objects		: " _
							& ManagementAgent.numPlaceholders() & vbcrlf

	 
	' Pending Import Statistics
	MAStatistics = MAStatistics & vbcrlf & "Pending Imports" & vbcrlf

	MAStatistics = MAStatistics _
						& "   Import Add Objects	: " _
							& ManagementAgent.numImportAdd() & vbcrlf

	MAStatistics = MAStatistics _
						& "   Import Update Objects   : " _
							& ManagementAgent.numImportUpdate() & vbcrlf

	MAStatistics = MAStatistics _
						& "   Import Delete Objects   : " _
							& ManagementAgent.numImportDelete() & vbcrlf

	MAStatistics = MAStatistics _
						& "   Import No Change Objects: " _
							& ManagementAgent.numImportNoChange() & vbcrlf


	' Pending Export Statistics
	MAStatistics = MAStatistics & vbcrlf & "Pending Exports" & vbcrlf

	MAStatistics = MAStatistics _
						& "   Export Add Objects   : " _
							& ManagementAgent.numExportAdd() & vbcrlf
					
	MAStatistics = MAStatistics _
						& "   Export Update Objects: " _
							& ManagementAgent.numExportUpdate() & vbcrlf
					
	MAStatistics = MAStatistics _
						& "   Export Delete Objects: " _
							& ManagementAgent.numExportDelete() & vbcrlf

	WScript.Echo MAStatistics
Next

Sub ErrorHandler (ErrorMessage)
  WScript.Echo ErrorMessage
  WScript.Quit(1)
End Sub