Dim SourceID : SourceId = WScript.Arguments(0)
Dim ManagedEntityId : ManagedEntityId = WScript.Arguments(1)
Dim ComputerIdentity : ComputerIdentity = WScript.Arguments(2)
Dim oAPI : Set oAPI = CreateObject("MOM.ScriptAPI")
Dim oDiscoveryData : Set oDiscoveryData = oAPI.CreateDiscoveryData(0, SourceId, ManagedEntityId)
if IsServiceEnabled() Then
Dim oInst : Set oInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='Microsoft.SystemCenter.Apm.ActivatedApmAgent']$")
Call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", ComputerIdentity)
Call oInst.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$", ComputerIdentity)
Call oDiscoveryData.AddInstance(oInst)
End If
Call oAPI.Return(oDiscoveryData)
Function IsServiceEnabled()
IsServiceEnabled = false
Dim WShell : Set WShell = CreateObject("wscript.shell")
Dim s : s = WShell.RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\System Center Management APM\Start")
if 4 <> s Then 'Service disabled state = 4
IsServiceEnabled = true
End If
End Function