Properties

The following example shows you how to use Visual Basic Scripting Edition (VBScript) to get the properties of all management agents 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
	WScript.Echo "ManagementAgent: " + ManagementAgent.Name
	WScript.Echo "   GUID:					 " & ManagementAgent.GUID
	WScript.Echo "   type:					 " & ManagementAgent.type

Next

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