Dim oAPI
Set oAPI = CreateObject("MOM.ScriptAPI")
If Err<>0 Then
Call oAPI.LogScriptEvent("FSSPScanJobsDiscovery.vbs", 10141, EVENT_TYPE_ERROR, "FSSPScanJobsDiscovery.vbs: Error of creating oAPI object")
Quit
Else
Call oAPI.LogScriptEvent("FSSPScanJobsDiscovery.vbs", 10142, EVENT_TYPE_SUCCESS, "FSSPScanJobsDiscovery.vbs: Success of creating oAPI object")
End if
Dim oArgs
Set oArgs = WScript.Arguments
SourceId = oArgs(0)
If Err<>0 Then
Call oAPI.LogScriptEvent("FSSPScanJobsDiscovery.vbs", 10143, EVENT_TYPE_ERROR, "FSSPScanJobsDiscovery.vbs: Error of getting SourceID")
Quit
Else
Call oAPI.LogScriptEvent("FSSPScanJobsDiscovery.vbs", 10144, EVENT_TYPE_SUCCESS, "FSSPScanJobsDiscovery.vbs: Success of getting SourceID")
End if
ManagedEntityId = oArgs(1)
If Err<>0 Then
Call oAPI.LogScriptEvent("FSSPScanJobsDiscovery.vbs", 10145, EVENT_TYPE_ERROR, "FSSPScanJobsDiscovery.vbs: Error of getting ManagedEntityId")
Quit
Else
Call oAPI.LogScriptEvent("FSSPScanJobsDiscovery.vbs", 10146, EVENT_TYPE_SUCCESS, "FSSPScanJobsDiscovery.vbs: Success of getting ManagedEntityId")
End if
TargetComputer = oArgs(2)
If Err<>0 Then
Call oAPI.LogScriptEvent("FSSPScanJobsDiscovery.vbs", 10147, EVENT_TYPE_ERROR, "FSSPScanJobsDiscovery.vbs: Error of getting TargetComputer")
Quit
Else
Call oAPI.LogScriptEvent("FSSPScanJobsDiscovery.vbs", 10148, EVENT_TYPE_SUCCESS, "FSSPScanJobsDiscovery.vbs: Success of getting TargetComputer")
End if
Dim oDiscoveryData
set oDiscoveryData = oAPI.CreateDiscoveryData(0, SourceId, ManagedEntityId)
If Err<>0 Then
Call oAPI.LogScriptEvent("FSSPScanJobsDiscovery.vbs", 10149, EVENT_TYPE_ERROR, "FSSPScanJobsDiscovery.vbs: Error of creating oDiscoveryData object")
Quit
Else
Call oAPI.LogScriptEvent("FSSPScanJobsDiscovery.vbs", 10150, EVENT_TYPE_SUCCESS, "FSSPScanJobsDiscovery.vbs: Success of creating oDiscoveryData object")
End if
Dim oInstance
Set oInstance = oDiscoveryData.CreateClassInstance("$MPElement[Name='Microsoft.ForefrontProtection.FPSP.ScanJobs']$")
If Err<>0 Then
Call oAPI.LogScriptEvent("FSSPScanJobsDiscovery.vbs", 10151, EVENT_TYPE_ERROR, "FSSPScanJobsDiscovery.vbs: Error of creating oInstance object")
Quit
Else
Call oAPI.LogScriptEvent("FSSPScanJobsDiscovery.vbs", 10152, EVENT_TYPE_SUCCESS, "FSSPScanJobsDiscovery.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("FSSPScanJobsDiscovery.vbs", 10153, EVENT_TYPE_ERROR, "FSSPScanJobsDiscovery.vbs: Error of adding PrincipalName property")
Quit
Else
Call oAPI.LogScriptEvent("FSSPScanJobsDiscovery.vbs", 10154, EVENT_TYPE_SUCCESS, "FSSPScanJobsDiscovery.vbs: Success of adding PrincipalName property")
End if
Call oInstance.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$","Scan Jobs")
If Err<>0 Then
Call oAPI.LogScriptEvent("FSSPScanJobsDiscovery.vbs", 10155, EVENT_TYPE_ERROR, "FSSPScanJobsDiscovery.vbs: Error of adding DisplayName property")
Quit
Else
Call oAPI.LogScriptEvent("FSSPScanJobsDiscovery.vbs", 10156, EVENT_TYPE_SUCCESS, "FSSPScanJobsDiscovery.vbs: Success of adding DisplayName property")
End if
Call oDiscoveryData.AddInstance(oInstance)
If Err<>0 Then
Call oAPI.LogScriptEvent("FSSPScanJobsDiscovery.vbs", 10157, EVENT_TYPE_ERROR, "FSSPScanJobsDiscovery.vbs: Error of adding Instance")
Quit
Else
Call oAPI.LogScriptEvent("FSSPScanJobsDiscovery.vbs", 10158, EVENT_TYPE_SUCCESS, "FSSPScanJobsDiscovery.vbs: Success of adding Instance")
End if
Call oAPI.Return(oDiscoveryData)
If Err<>0 Then
Call oAPI.LogScriptEvent("FSSPScanJobsDiscovery.vbs", 10159, EVENT_TYPE_ERROR, "FSSPScanJobsDiscovery.vbs: Error of returning")
Quit
Else
Call oAPI.LogScriptEvent("FSSPScanJobsDiscovery.vbs", 10160, EVENT_TYPE_SUCCESS, "FSSPScanJobsDiscovery.vbs: Success of returning")
End if</Script></ScriptBody>
<TimeoutSeconds>300</TimeoutSeconds>
</DataSource>
</Discovery>