Monitored Host Discovery

Acer.Server.OOB.PRO.Discovery (Discovery)

Knowledge Base article:

Element properties:

Object Discovery Details:

Member Modules:

Source Code:

<Discovery ID="Acer.Server.OOB.PRO.Discovery" Enabled="true" Target="MicrosoftSystemCenterNetworkDeviceLibrary!Microsoft.SystemCenter.NetworkDevice" ConfirmDelivery="false" Remotable="true" Priority="Normal">

  <Category>Discovery</Category>

  <DiscoveryTypes>

    <DiscoveryClass TypeID="Acer.Server.OOB.PRO.MonitoredHost">

      <Property TypeID="Acer.Server.OOB.PRO.MonitoredHost" PropertyID="BMCIP"/>

    </DiscoveryClass>

  </DiscoveryTypes>

  <DataSource ID="DS" TypeID="Windows!Microsoft.Windows.TimedScript.DiscoveryProvider">

    <IntervalSeconds>14400</IntervalSeconds>

    <SyncTime/>

    <ScriptName>MonitoredHostDiscovery.vbs</ScriptName>

    <Arguments>$MPElement$ $Target/Id$ $Target/Property[Type="MicrosoftSystemCenterNetworkDeviceLibrary!Microsoft.SystemCenter.NetworkDevice"]/IPAddress$ $Target/Property[Type="MicrosoftSystemCenterNetworkDeviceLibrary!Microsoft.SystemCenter.NetworkDevice"]/SystemContact$ $Target/Property[Type="MicrosoftSystemCenterNetworkDeviceLibrary!Microsoft.SystemCenter.NetworkDevice"]/SystemDescription$ $Target/Property[Type="MicrosoftSystemCenterNetworkDeviceLibrary!Microsoft.SystemCenter.NetworkDevice"]/SystemLocation$</Arguments>

    <ScriptBody><Script>

Option Explicit

SetLocale("en-us")



Dim oArgs

Set oArgs = WScript.Arguments

if oArgs.Count &lt; 6 Then

   Wscript.Quit -1

End If







Dim SourceID, ManagedEntityId, IPAddress, SystemContact, Description, HostIP



SourceId = oArgs(0)

ManagedEntityId = oArgs(1)

IPAddress= oArgs(2)

SystemContact = oArgs(3)

Description = oArgs(4)

HostIP = oArgs(5)



If (StrComp(SystemContact, "Acer") = 0) then



If (InStr(Description, "\") = 0) then

	Wscript.Quit -1

End if



Dim Str

Str = Split(Description, "\")



Dim RootMgtSvr, Hostname

RootMgtSvr = Str(0)

Hostname = Str(1)



Dim oAPI, oDiscoveryData, oInst

Set oAPI = CreateObject("MOM.ScriptAPI")

set oDiscoveryData = oAPI.CreateDiscoveryData(0, SourceId, ManagedEntityId)



set oInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='Acer.Server.OOB.PRO.MonitoredHost']$")

call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", RootMgtSvr)

Call oInst.AddProperty("$MPElement[Name='Acer.Server.OOB.PRO.MonitoredHost']/BMCIP$", IPAddress)

Call oInst.AddProperty("$MPElement[Name='Acer.Server.OOB.PRO.MonitoredHost']/HostIP$", HostIP)

call oInst.AddProperty("$MPElement[Name='VirtualMachineManagerPro2008Library!Microsoft.SystemCenter.VirtualMachineManager.Pro.2008.Base']/Name$", Hostname)

Call oInst.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$", Hostname)



call oDiscoveryData.AddInstance(oInst)

Call oAPI.Return(oDiscoveryData)

End if











</Script></ScriptBody>

    <TimeoutSeconds>300</TimeoutSeconds>

  </DataSource>

</Discovery>