Dim oAPI
Set oAPI = CreateObject("MOM.ScriptAPI")
If Err<>0 Then
Call oAPI.LogScriptEvent("FSERealtimeScanJobDiscovery.vbs", 10221, EVENT_TYPE_ERROR, "FSERealtimeScanJobDiscovery.vbs: Error of creating oAPI object")
Quit
Else
Call oAPI.LogScriptEvent("FSERealtimeScanJobDiscovery.vbs", 10222, EVENT_TYPE_SUCCESS, "FSERealtimeScanJobDiscovery.vbs: Success of creating oAPI object")
End if
Dim oArgs
Set oArgs = WScript.Arguments
SourceId = oArgs(0)
If Err<>0 Then
Call oAPI.LogScriptEvent("FSERealtimeScanJobDiscovery.vbs", 10223, EVENT_TYPE_ERROR, "FSERealtimeScanJobDiscovery.vbs: Error of getting SourceID")
Quit
Else
Call oAPI.LogScriptEvent("FSERealtimeScanJobDiscovery.vbs", 10224, EVENT_TYPE_SUCCESS, "FSERealtimeScanJobDiscovery.vbs: Success of getting SourceID")
End if
ManagedEntityId = oArgs(1)
If Err<>0 Then
Call oAPI.LogScriptEvent("FSERealtimeScanJobDiscovery.vbs", 10225, EVENT_TYPE_ERROR, "FSERealtimeScanJobDiscovery.vbs: Error of getting ManagedEntityId")
Quit
Else
Call oAPI.LogScriptEvent("FSERealtimeScanJobDiscovery.vbs", 10226, EVENT_TYPE_SUCCESS, "FSERealtimeScanJobDiscovery.vbs: Success of getting ManagedEntityId")
End if
TargetComputer = oArgs(2)
If Err<>0 Then
Call oAPI.LogScriptEvent("FSERealtimeScanJobDiscovery.vbs", 10227, EVENT_TYPE_ERROR, "FSERealtimeScanJobDiscovery.vbs: Error of getting TargetComputer")
Quit
Else
Call oAPI.LogScriptEvent("FSERealtimeScanJobDiscovery.vbs", 10228, EVENT_TYPE_SUCCESS, "FSERealtimeScanJobDiscovery.vbs: Success of getting TargetComputer")
End if
Dim oDiscoveryData
set oDiscoveryData = oAPI.CreateDiscoveryData(0, SourceId, ManagedEntityId)
If Err<>0 Then
Call oAPI.LogScriptEvent("FSERealtimeScanJobDiscovery.vbs", 10229, EVENT_TYPE_ERROR, "FSERealtimeScanJobDiscovery.vbs: Error of creating oDiscoveryData object")
Quit
Else
Call oAPI.LogScriptEvent("FSERealtimeScanJobDiscovery.vbs", 10230, EVENT_TYPE_SUCCESS, "FSERealtimeScanJobDiscovery.vbs: Success of creating oDiscoveryData object")
End if
Dim oInstance
Set oInstance = oDiscoveryData.CreateClassInstance("$MPElement[Name='Microsoft.ForefrontProtection.FPE.RealtimeScanJobs']$")
If Err<>0 Then
Call oAPI.LogScriptEvent("FSERealtimeScanJobDiscovery.vbs", 10231, EVENT_TYPE_ERROR, "FSERealtimeScanJobDiscovery.vbs: Error of creating oInstance object")
Quit
Else
Call oAPI.LogScriptEvent("FSERealtimeScanJobDiscovery.vbs", 10232, EVENT_TYPE_SUCCESS, "FSERealtimeScanJobDiscovery.vbs: Success of creating oInstance object")
End if
Call oInstance.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$",TargetComputer)
If Err<>0 Then
Call oAPI.LogScriptEvent("FSERealtimeScanJobDiscovery.vbs", 10233, EVENT_TYPE_ERROR, "FSERealtimeScanJobDiscovery.vbs: Error of adding PrincipalName property")
Quit
Else
Call oAPI.LogScriptEvent("FSERealtimeScanJobDiscovery.vbs", 10234, EVENT_TYPE_SUCCESS, "FSERealtimeScanJobDiscovery.vbs: Success of adding PrincipalName property")
End if
Call oInstance.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$","Realtime Scan Jobs")
If Err<>0 Then
Call oAPI.LogScriptEvent("FSERealtimeScanJobDiscovery.vbs", 10235, EVENT_TYPE_ERROR, "FSERealtimeScanJobDiscovery.vbs: Error of adding DisplayName property")
Quit
Else
Call oAPI.LogScriptEvent("FSERealtimeScanJobDiscovery.vbs", 10236, EVENT_TYPE_SUCCESS, "FSERealtimeScanJobDiscovery.vbs: Success of adding DisplayName property")
End if
Call oDiscoveryData.AddInstance(oInstance)
If Err<>0 Then
Call oAPI.LogScriptEvent("FSERealtimeScanJobDiscovery.vbs", 10237, EVENT_TYPE_ERROR, "FSERealtimeScanJobDiscovery.vbs: Error of adding Instance")
Quit
Else
Call oAPI.LogScriptEvent("FSERealtimeScanJobDiscovery.vbs", 10238, EVENT_TYPE_SUCCESS, "FSERealtimeScanJobDiscovery.vbs: Success of adding Instance")
End if
Call oAPI.Return(oDiscoveryData)
If Err<>0 Then
Call oAPI.LogScriptEvent("FSERealtimeScanJobDiscovery.vbs", 10239, EVENT_TYPE_ERROR, "FSERealtimeScanJobDiscovery.vbs: Error of returning")
Quit
Else
Call oAPI.LogScriptEvent("FSERealtimeScanJobDiscovery.vbs", 10240, EVENT_TYPE_SUCCESS, "FSERealtimeScanJobDiscovery.vbs: Success of returning")
End if </Script></ScriptBody>
<TimeoutSeconds>300</TimeoutSeconds>
</DataSource>
</Discovery>