Methods
The MIIS_ManagementAgent Class defines the following methods:
The following example shows how you can use Microsoft 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