Acer.Server.OOB.PRO12.Monitored Host Discovery

Acer.Server.OOB.PRO12.Discovery (Discovery)

Knowledge Base article:

Element properties:

Object Discovery Details:

Member Modules:

Source Code:

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

  <Category>Discovery</Category>

  <DiscoveryTypes>

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

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

    </DiscoveryClass>

  </DiscoveryTypes>

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

    <IntervalSeconds>14400</IntervalSeconds>

    <SyncTime/>

    <ScriptName>DiscoveraSimpleProMP.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><![CDATA['############################################################################

' Filename:    DiscoveraSimplePROMP.vbs

' Description: OpsMgr discovery script for aSimpleProMP.NewClass.

'############################################################################



'#############################################################################

' DISCLAIMER:

' Copyright (c) Microsoft Corporation. All rights reserved. This 

' script is made available to you without any express, implied or 

' statutory warranty, not even the implied warranty of 

' merchantability or fitness for a particular purpose, or the 

' warranty of title or non-infringement. The entire risk of the 

' use or the results from the use of this script remains with you.

'#############################################################################



Option Explicit





SetLocale("en-us")



Dim oArgs

Set oArgs = WScript.Arguments

if oArgs.Count < 6 Then

   Wscript.Quit -1

End If



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

Dim Str

Dim RootMgtSvr, Hostname



SourceId = oArgs(0)

ManagedEntityId = oArgs(1)

IPAddress= oArgs(2)

SystemContact = oArgs(3)

Description = oArgs(4)

HostIP = oArgs(5)







If ( (len(SystemContact) = 4) and (InStr(SystemContact ,"Acer")= 1) ) then



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

	Wscript.Quit -1

End if



Str = Split(Description, "\")



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.PRO12.MonitoredHost']$")



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



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

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

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



call oInst.AddProperty("$MPElement[Name='PRO!Microsoft.SystemCenter.VirtualMachineManager.PRO.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>120</TimeoutSeconds>

  </DataSource>

</Discovery>