FPE Scan Job Discovery

Microsoft.ForefrontProtection.FPE.ScanJobs.Discovery (Discovery)

Discovery of a Microsoft Forefront Protection 2010 for Exchange Server scan job

Knowledge Base article:

Element properties:

Object Discovery Details:

Member Modules:

Source Code:

<Discovery ID="Microsoft.ForefrontProtection.FPE.ScanJobs.Discovery" Enabled="true" Target="Microsoft.ForefrontProtection.FPE.Server" ConfirmDelivery="false" Remotable="true" Priority="Normal">

  <Category>Discovery</Category>

  <DiscoveryTypes>

    <DiscoveryClass TypeID="Microsoft.ForefrontProtection.FPE.ScanJobs">

      <Property TypeID="FSS!Microsoft.ForefrontProtection.Library.Server" PropertyID="ServerName"/>

    </DiscoveryClass>

  </DiscoveryTypes>

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

    <IntervalSeconds>14400</IntervalSeconds>

    <SyncTime/>

    <ScriptName>FSEScanJonsDiscovery.vbs</ScriptName>

    <Arguments>$MPElement$ $Target/Id$ $Target/Host/Property[Type="Windows!Microsoft.Windows.Computer"]/NetworkName$</Arguments>

    <ScriptBody><Script>

		    SetLocale("en-us")

            Const EVENT_TYPE_ERROR=1

            Const EVENT_TYPE_WARNING=2

            Const EVENT_TYPE_SUCCESS=4



            Dim oAPI

            Set oAPI = CreateObject("MOM.ScriptAPI")

            If Err&lt;&gt;0 Then

            Call oAPI.LogScriptEvent("FSEScanJobsDiscovery.vbs", 10141, EVENT_TYPE_ERROR, "FSEScanJobsDiscovery.vbs: Error of creating oAPI object")

            Quit

            Else

            Call oAPI.LogScriptEvent("FSEScanJobsDiscovery.vbs", 10142, EVENT_TYPE_SUCCESS, "FSEScanJobsDiscovery.vbs: Success of creating oAPI object")

            End if



            Dim oArgs

            Set oArgs = WScript.Arguments

            SourceId = oArgs(0)

            If Err&lt;&gt;0 Then

            Call oAPI.LogScriptEvent("FSEScanJobsDiscovery.vbs", 10143, EVENT_TYPE_ERROR, "FSEScanJobsDiscovery.vbs: Error of getting SourceID")

            Quit

            Else

            Call oAPI.LogScriptEvent("FSEScanJobsDiscovery.vbs", 10144, EVENT_TYPE_SUCCESS, "FSEScanJobsDiscovery.vbs: Success of getting SourceID")

            End if



            ManagedEntityId = oArgs(1)

            If Err&lt;&gt;0 Then

            Call oAPI.LogScriptEvent("FSEScanJobsDiscovery.vbs", 10145, EVENT_TYPE_ERROR, "FSEScanJobsDiscovery.vbs: Error of getting ManagedEntityId")

            Quit

            Else

            Call oAPI.LogScriptEvent("FSEScanJobsDiscovery.vbs", 10146, EVENT_TYPE_SUCCESS, "FSEScanJobsDiscovery.vbs: Success of getting ManagedEntityId")

            End if



            TargetComputer = oArgs(2)

            If Err&lt;&gt;0 Then

            Call oAPI.LogScriptEvent("FSEScanJobsDiscovery.vbs", 10147, EVENT_TYPE_ERROR, "FSEScanJobsDiscovery.vbs: Error of getting TargetComputer")

            Quit

            Else

            Call oAPI.LogScriptEvent("FSEScanJobsDiscovery.vbs", 10148, EVENT_TYPE_SUCCESS, "FSEScanJobsDiscovery.vbs: Success of getting TargetComputer")

            End if



            Dim oDiscoveryData

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

            If Err&lt;&gt;0 Then

            Call oAPI.LogScriptEvent("FSEScanJobsDiscovery.vbs", 10149, EVENT_TYPE_ERROR, "FSEScanJobsDiscovery.vbs: Error of creating oDiscoveryData object")

            Quit

            Else

            Call oAPI.LogScriptEvent("FSEScanJobsDiscovery.vbs", 10150, EVENT_TYPE_SUCCESS, "FSEScanJobsDiscovery.vbs: Success of creating oDiscoveryData object")

            End if



            Dim oInstance

            Set oInstance = oDiscoveryData.CreateClassInstance("$MPElement[Name='Microsoft.ForefrontProtection.FPE.ScanJobs']$")

            If Err&lt;&gt;0 Then

            Call oAPI.LogScriptEvent("FSEScanJobsDiscovery.vbs", 10151, EVENT_TYPE_ERROR, "FSEScanJobsDiscovery.vbs: Error of creating oInstance object")

            Quit

            Else

            Call oAPI.LogScriptEvent("FSEScanJobsDiscovery.vbs", 10152, EVENT_TYPE_SUCCESS, "FSEScanJobsDiscovery.vbs: Success of creating oInstance object")

            End if



            Call oInstance.AddProperty("$MPElement[Name='FSS!Microsoft.ForefrontProtection.Library.Server']/ServerName$",TargetComputer)



            Call oInstance.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$",TargetComputer)

            If Err&lt;&gt;0 Then

            Call oAPI.LogScriptEvent("FSEScanJobsDiscovery.vbs", 10153, EVENT_TYPE_ERROR, "FSEScanJobsDiscovery.vbs: Error of adding PrincipalName property")

            Quit

            Else

            Call oAPI.LogScriptEvent("FSEScanJobsDiscovery.vbs", 10154, EVENT_TYPE_SUCCESS, "FSEScanJobsDiscovery.vbs: Success of adding PrincipalName property")

            End if



            Call oInstance.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$","Scan Jobs")

            If Err&lt;&gt;0 Then

            Call oAPI.LogScriptEvent("FSEScanJobsDiscovery.vbs", 10155, EVENT_TYPE_ERROR, "FSEScanJobsDiscovery.vbs: Error of adding DisplayName property")

            Quit

            Else

            Call oAPI.LogScriptEvent("FSEScanJobsDiscovery.vbs", 10156, EVENT_TYPE_SUCCESS, "FSEScanJobsDiscovery.vbs: Success of adding DisplayName property")

            End if



            Call oDiscoveryData.AddInstance(oInstance)

            If Err&lt;&gt;0 Then

            Call oAPI.LogScriptEvent("FSEScanJobsDiscovery.vbs", 10157, EVENT_TYPE_ERROR, "FSEScanJobsDiscovery.vbs: Error of adding Instance")

            Quit

            Else

            Call oAPI.LogScriptEvent("FSEScanJobsDiscovery.vbs", 10158, EVENT_TYPE_SUCCESS, "FSEScanJobsDiscovery.vbs: Success of adding Instance")

            End if



            Call oAPI.Return(oDiscoveryData)

            If Err&lt;&gt;0 Then

            Call oAPI.LogScriptEvent("FSEScanJobsDiscovery.vbs", 10159, EVENT_TYPE_ERROR, "FSEScanJobsDiscovery.vbs: Error of returning")

            Quit

            Else

            Call oAPI.LogScriptEvent("FSEScanJobsDiscovery.vbs", 10160, EVENT_TYPE_SUCCESS, "FSEScanJobsDiscovery.vbs: Success of returning")

            End if

          </Script></ScriptBody>

    <TimeoutSeconds>300</TimeoutSeconds>

  </DataSource>

</Discovery>