Audiocodes Trunks on Analog Module Initial Discovery

Audiocodes.GW.Management.Pack.Trunk.AnalogModule.Discovery.Initial (Discovery)

Element properties:

Object Discovery Details:

Member Modules:

Source Code:

<Discovery ID="Audiocodes.GW.Management.Pack.Trunk.AnalogModule.Discovery.Initial" Enabled="true" Target="Audiocodes.GW.Management.Pack.Module.IFAnalogModule" ConfirmDelivery="false" Remotable="true" Priority="Normal">

  <Category>Discovery</Category>

  <DiscoveryTypes>

    <DiscoveryClass TypeID="Audiocodes.GW.Management.Pack.Trunk.Analog">

      <Property TypeID="Audiocodes.GW.Management.Pack.Trunk" PropertyID="KeyOID"/>

      <Property TypeID="Audiocodes.GW.Management.Pack.Trunk" PropertyID="GatewayIP"/>

      <Property TypeID="Audiocodes.GW.Management.Pack.Trunk" PropertyID="Index"/>

      <Property TypeID="System!System.Entity" PropertyID="DisplayName"/>

    </DiscoveryClass>

    <DiscoveryRelationship TypeID="Audiocodes.GW.Management.Pack.SystemModule.Hosts.Trunk"/>

  </DiscoveryTypes>

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

    <IntervalSeconds>3600</IntervalSeconds>

    <SyncTime/>

    <ScriptName>TrunkOnAnalogModuleInitialDiscovery.vbs</ScriptName>

    <Arguments>$MPElement$ $Target/Id$ $Target/Property[Type="Audiocodes.GW.Management.Pack.Module"]/IPAddress$ $Target/Property[Type="Audiocodes.GW.Management.Pack.Module"]/KeyOID$ "$Target/Property[Type="Audiocodes.GW.Management.Pack.Module.SystemModule"]/FirstPortNum$" "$Target/Property[Type="Audiocodes.GW.Management.Pack.Module.SystemModule"]/NumOfPorts$" "$Target/Property[Type="System!System.Entity"]/DisplayName$" "$Target/Host/Property[Type="NetworkLibrary!System.NetworkManagement.Node"]/DeviceKey$"</Arguments>

    <ScriptBody><Script>

		Option Explicit



		Dim oArgs

		Set oArgs = WScript.Arguments

		if oArgs.Count &lt; 7 Then

		Wscript.Quit -1

		End If



		Dim oAPI, oDiscoveryData

		Set oAPI = CreateObject("MOM.ScriptAPI")



		Dim SourceID, ManagedEntityId

		SourceId = oArgs(0)

		ManagedEntityId = oArgs(1)



		Dim moduleIP, moduleID, firstPortNum, numOfPorts, geographicalPosition, oInst

		Dim i



		moduleIP = oArgs(2)

		moduleID = oArgs(3)

		firstPortNum = oArgs(4)

		numOfPorts = oArgs(5)

		geographicalPosition = oArgs(6)



    if firstPortNum = vbNullString then

      firstPortNum = 0

    end if 

    

    if numOfPorts = vbNullString then

      numOfPorts = 0

    end if 

    

    if geographicalPosition = vbNullString then

      geographicalPosition = 0

    end if 



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



		If numOfPorts &gt; 0 Then

		For i = 0 To numOfPorts - 1

		Set oInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='Audiocodes.GW.Management.Pack.Trunk.Analog']$")

		Call oInst.AddProperty("$MPElement[Name='NetworkLibrary!System.NetworkManagement.Node']/DeviceKey$", oArgs(7))

		Call oInst.AddProperty("$MPElement[Name='Audiocodes.GW.Management.Pack.Module']/IPAddress$", moduleIP)

		Call oInst.AddProperty("$MPElement[Name='Audiocodes.GW.Management.Pack.Module']/KeyOID$", moduleID)

		Call oInst.AddProperty("$MPElement[Name='Audiocodes.GW.Management.Pack.Trunk']/GatewayIP$", moduleIP)

		Call oInst.AddProperty("$MPElement[Name='Audiocodes.GW.Management.Pack.Trunk']/Index$", CStr(firstPortNum + i))

		Call oInst.AddProperty("$MPElement[Name='Audiocodes.GW.Management.Pack.Trunk']/KeyOID$", "1.3.6.1.4.1.5003.9.10.8.2.20.1.1.2." &amp; CStr(firstPortNum + i))

		Call oInst.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$", geographicalPosition &amp; ": Analog Trunk #" &amp; CStr(firstPortNum + i + 1))

		Call oDiscoveryData.AddInstance(oInst)

		Next

		End If



		Call oAPI.Return(oDiscoveryData)

	</Script></ScriptBody>

    <TimeoutSeconds>3600</TimeoutSeconds>

  </DataSource>

</Discovery>