FPE Antispam Engine Discovery
Microsoft.ForefrontProtection.FPE.ASEngines.Discovery (Discovery)
Discovery of a Microsoft Forefront Protection 2010 for Exchange Server antispam engine
Knowledge Base article: Element properties: Object Discovery Details: Member Modules:
Source Code: <Discovery ID="Microsoft.ForefrontProtection.FPE.ASEngines.Discovery" Enabled="true" Target="Microsoft.ForefrontProtection.FPE.Engines" ConfirmDelivery="false" Remotable="true" Priority="Normal">
<Category>Discovery</Category>
<DiscoveryTypes>
<DiscoveryClass TypeID="Microsoft.ForefrontProtection.FPE.ASEngines">
<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>FSEASEnginesDiscovery.vbs</ScriptName>
<Arguments>$MPElement$ $Target/Id$ $Target/Host/Host/Property[Type="Windows!Microsoft.Windows.Computer"]/NetworkName$</Arguments>
<ScriptBody><Script>
SetLocale("en-us")
Dim oAPI
Set oAPI = CreateObject("MOM.ScriptAPI")
Dim oArgs
Set oArgs = WScript.Arguments
SourceId = oArgs(0)
ManagedEntityId = oArgs(1)
TargetComputer = oArgs(2)
Dim oDiscoveryData
set oDiscoveryData = oAPI.CreateDiscoveryData(0, SourceId, ManagedEntityId)
Dim oInstance
Set oInstance = oDiscoveryData.CreateClassInstance("$MPElement[Name='Microsoft.ForefrontProtection.FPE.ASEngines']$")
Call oInstance.AddProperty("$MPElement[Name='FSS!Microsoft.ForefrontProtection.Library.Server']/ServerName$",TargetComputer)
Call oInstance.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$",TargetComputer)
Call oInstance.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$","Antispam Engines")
Call oInstance.AddProperty("$MPElement[Name='Microsoft.ForefrontProtection.FPE.ASEngines']/EngineName$","FSE ASEngines")
Call oDiscoveryData.AddInstance(oInstance)
Call oAPI.Return(oDiscoveryData)
If Err<>0 Then
Call oAPI.LogScriptEvent("FSEASEnginesDiscovery.vbs", 10601, EVENT_TYPE_ERROR, "FSEASEnginesDiscovery.vbs: Error of returning")
Quit
Else
Call oAPI.LogScriptEvent("FSEASEnginesDiscovery.vbs", 10602, EVENT_TYPE_SUCCESS, "FSEASEnginesDiscovery.vbs: Success of returning")
End if
</Script> </ScriptBody>
<TimeoutSeconds>300</TimeoutSeconds>
</DataSource>
</Discovery>