FPSP Workload Integration Status Discovery

Microsoft.ForefrontProtection.FPSP.WorkloadIntegration.Discovery (Discovery)

Discovery of the Microsoft Forefront Protection 2010 for SharePoint workload integration status

Knowledge Base article:

Element properties:

Object Discovery Details:

Member Modules:

Source Code:

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

  <Category>Discovery</Category>

  <DiscoveryTypes>

    <DiscoveryClass TypeID="Microsoft.ForefrontProtection.FPSP.WorkloadIntegration">

      <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>FSSPWorkloadsIntegration.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("FSSPWorkloadIntegrationDiscovery.vbs", 10101, EVENT_TYPE_ERROR, "FSSPWorkloadIntegrationDiscovery.vbs: Error of creating oAPI object")

Quit

Else

Call oAPI.LogScriptEvent("FSSPWorkloadIntegrationDiscovery.vbs", 10102, EVENT_TYPE_SUCCESS, "FSSPWorkloadIntegrationDiscovery.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("FSSPWorkloadIntegrationDiscovery.vbs", 10103, EVENT_TYPE_ERROR, "FSSPWorkloadIntegrationDiscovery.vbs: Error of getting SourceID")

Quit

Else

Call oAPI.LogScriptEvent("FSSPWorkloadIntegrationDiscovery.vbs", 10104, EVENT_TYPE_SUCCESS, "FSSPWorkloadIntegrationDiscovery.vbs: Success of getting SourceID")

End if



ManagedEntityId = oArgs(1)

If Err&lt;&gt;0 Then

Call oAPI.LogScriptEvent("FSSPWorkloadIntegrationDiscovery.vbs", 10105, EVENT_TYPE_ERROR, "FSSPWorkloadIntegrationDiscovery.vbs: Error of getting ManagedEntityId")

Quit

Else

Call oAPI.LogScriptEvent("FSSPWorkloadIntegrationDiscovery.vbs", 10106, EVENT_TYPE_SUCCESS, "FSSPWorkloadIntegrationDiscovery.vbs: Success of getting ManagedEntityId")

End if



TargetComputer = oArgs(2)

If Err&lt;&gt;0 Then

Call oAPI.LogScriptEvent("FSSPWorkloadIntegrationDiscovery.vbs", 10107, EVENT_TYPE_ERROR, "FSSPWorkloadIntegrationDiscovery.vbs: Error of getting TargetComputer")

Quit

Else

Call oAPI.LogScriptEvent("FSSPWorkloadIntegrationDiscovery.vbs", 10108, EVENT_TYPE_SUCCESS, "FSSPWorkloadIntegrationDiscovery.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("FSSPWorkloadIntegrationDiscovery.vbs", 10109, EVENT_TYPE_ERROR, "FSSPWorkloadIntegrationDiscovery.vbs: Error of creating oDiscoveryData object")

Quit

Else

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

End if



Dim oInstance    

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

If Err&lt;&gt;0 Then

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

Quit

Else

Call oAPI.LogScriptEvent("FSSPWorkloadIntegrationDiscovery.vbs", 10112, EVENT_TYPE_SUCCESS, "FSSPWorkloadIntegrationDiscovery.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("FSSPWorkloadIntegrationDiscovery.vbs", 10113, EVENT_TYPE_ERROR, "FSSPWorkloadIntegrationDiscovery.vbs: Error of adding PrincipalName property")

Quit

Else

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

End if



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

If Err&lt;&gt;0 Then

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

Quit

Else

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

End if



Call oDiscoveryData.AddInstance(oInstance)

If Err&lt;&gt;0 Then

Call oAPI.LogScriptEvent("FSSPWorkloadIntegrationDiscovery.vbs", 10117, EVENT_TYPE_ERROR, "FSSPWorkloadIntegrationDiscovery.vbs: Error of adding Instance")

Quit

Else

Call oAPI.LogScriptEvent("FSSPWorkloadIntegrationDiscovery.vbs", 10118, EVENT_TYPE_SUCCESS, "FSSPWorkloadIntegrationDiscovery.vbs: Success of adding Instance")

End if



Call oAPI.Return(oDiscoveryData)

If Err&lt;&gt;0 Then

Call oAPI.LogScriptEvent("FSSPWorkloadIntegrationDiscovery.vbs", 10119, EVENT_TYPE_ERROR, "FSSPWorkloadIntegrationDiscovery.vbs: Error of returning")

Quit

Else

Call oAPI.LogScriptEvent("FSSPWorkloadIntegrationDiscovery.vbs", 10120, EVENT_TYPE_SUCCESS, "FSSPWorkloadIntegrationDiscovery.vbs: Success of returning")

End if</Script></ScriptBody>

    <TimeoutSeconds>300</TimeoutSeconds>

  </DataSource>

</Discovery>