Dim oAPI
Set oAPI = CreateObject("MOM.ScriptAPI")
If Err<>0 Then
Call oAPI.LogScriptEvent("FSSPServicesDiscovery.vbs", 10101, EVENT_TYPE_ERROR, "FSSPServicesDiscovery.vbs: Error of creating oAPI object")
Quit
Else
Call oAPI.LogScriptEvent("FSSPServicesDiscovery.vbs", 10102, EVENT_TYPE_SUCCESS, "FSSPServicesDiscovery.vbs: Success of creating oAPI object")
End if
Dim oArgs
Set oArgs = WScript.Arguments
SourceId = oArgs(0)
If Err<>0 Then
Call oAPI.LogScriptEvent("FSSPServicesDiscovery.vbs", 10103, EVENT_TYPE_ERROR, "FSSPServicesDiscovery.vbs: Error of getting SourceID")
Quit
Else
Call oAPI.LogScriptEvent("FSSPServicesDiscovery.vbs", 10104, EVENT_TYPE_SUCCESS, "FSSPServicesDiscovery.vbs: Success of getting SourceID")
End if
ManagedEntityId = oArgs(1)
If Err<>0 Then
Call oAPI.LogScriptEvent("FSSPServicesDiscovery.vbs", 10105, EVENT_TYPE_ERROR, "FSSPServicesDiscovery.vbs: Error of getting ManagedEntityId")
Quit
Else
Call oAPI.LogScriptEvent("FSSPServicesDiscovery.vbs", 10106, EVENT_TYPE_SUCCESS, "FSSPServicesDiscovery.vbs: Success of getting ManagedEntityId")
End if
TargetComputer = oArgs(2)
If Err<>0 Then
Call oAPI.LogScriptEvent("FSSPServicesDiscovery.vbs", 10107, EVENT_TYPE_ERROR, "FSSPServicesDiscovery.vbs: Error of getting TargetComputer")
Quit
Else
Call oAPI.LogScriptEvent("FSSPServicesDiscovery.vbs", 10108, EVENT_TYPE_SUCCESS, "FSSPServicesDiscovery.vbs: Success of getting TargetComputer")
End if
Dim oDiscoveryData
set oDiscoveryData = oAPI.CreateDiscoveryData(0, SourceId, ManagedEntityId)
If Err<>0 Then
Call oAPI.LogScriptEvent("FSSPServicesDiscovery.vbs", 10109, EVENT_TYPE_ERROR, "FSSPServicesDiscovery.vbs: Error of creating oDiscoveryData object")
Quit
Else
Call oAPI.LogScriptEvent("FSSPServicesDiscovery.vbs", 10110, EVENT_TYPE_SUCCESS, "FSSPServicesDiscovery.vbs: Success of creating oDiscoveryData object")
End if
Dim oInstance
Set oInstance = oDiscoveryData.CreateClassInstance("$MPElement[Name='Microsoft.ForefrontProtection.FPSP.Services']$")
If Err<>0 Then
Call oAPI.LogScriptEvent("FSSPServicesDiscovery.vbs", 10111, EVENT_TYPE_ERROR, "FSSPServicesDiscovery.vbs: Error of creating oInstance object")
Quit
Else
Call oAPI.LogScriptEvent("FSSPServicesDiscovery.vbs", 10112, EVENT_TYPE_SUCCESS, "FSSPServicesDiscovery.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("FSSPServicesDiscovery.vbs", 10113, EVENT_TYPE_ERROR, "FSSPServicesDiscovery.vbs: Error of adding PrincipalName property")
Quit
Else
Call oAPI.LogScriptEvent("FSSPServicesDiscovery.vbs", 10114, EVENT_TYPE_SUCCESS, "FSSPServicesDiscovery.vbs: Success of adding PrincipalName property")
End if
Call oInstance.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$","Services")
If Err<>0 Then
Call oAPI.LogScriptEvent("FSSPServicesDiscovery.vbs", 10115, EVENT_TYPE_ERROR, "FSSPServicesDiscovery.vbs: Error of adding DisplayName property")
Quit
Else
Call oAPI.LogScriptEvent("FSSPServicesDiscovery.vbs", 10116, EVENT_TYPE_SUCCESS, "FSSPServicesDiscovery.vbs: Success of adding DisplayName property")
End if
Call oDiscoveryData.AddInstance(oInstance)
If Err<>0 Then
Call oAPI.LogScriptEvent("FSSPServicesDiscovery.vbs", 10117, EVENT_TYPE_ERROR, "FSSPServicesDiscovery.vbs: Error of adding Instance")
Quit
Else
Call oAPI.LogScriptEvent("FSSPServicesDiscovery.vbs", 10118, EVENT_TYPE_SUCCESS, "FSSPServicesDiscovery.vbs: Success of adding Instance")
End if
Call oAPI.Return(oDiscoveryData)
If Err<>0 Then
Call oAPI.LogScriptEvent("FSSPServicesDiscovery.vbs", 10119, EVENT_TYPE_ERROR, "FSSPServicesDiscovery.vbs: Error of returning")
Quit
Else
Call oAPI.LogScriptEvent("FSSPServicesDiscovery.vbs", 10120, EVENT_TYPE_SUCCESS, "FSSPServicesDiscovery.vbs: Success of returning")
End if</Script></ScriptBody>
<TimeoutSeconds>300</TimeoutSeconds>
</DataSource>
</Discovery>