Dim oAPI
Set oAPI = CreateObject("MOM.ScriptAPI")
If Err<>0 Then
Call oAPI.LogScriptEvent("FSSPFSCControllerDiscovery.vbs", 10310, EVENT_TYPE_ERROR, "FSSPFSCControllerDiscovery.vbs: Error of creating oAPI object")
Quit
End if
Dim oArgs
Set oArgs = WScript.Arguments
SourceId = oArgs(0)
If Err<>0 Then
Call oAPI.LogScriptEvent("FSSPFSCControllerDiscovery.vbs", 10311, EVENT_TYPE_ERROR, "FSSPFSCControllerDiscovery.vbs: Error of creating oAPI object")
Quit
End if
ManagedEntityId = oArgs(1)
If Err<>0 Then
Call oAPI.LogScriptEvent("FSSPFSCControllerDiscovery.vbs", 10312, EVENT_TYPE_ERROR, "FSSPFSCControllerDiscovery.vbs: Error of creating oAPI object")
Quit
End if
TargetComputer = oArgs(2)
If Err<>0 Then
Call oAPI.LogScriptEvent("FSSPFSCControllerDiscovery.vbs", 10313, EVENT_TYPE_ERROR, "FSSPFSCControllerDiscovery.vbs: Error of creating oAPI object")
Quit
End if
ServiceName = oArgs(3)
If Err<>0 Then
Call oAPI.LogScriptEvent("FSSPFSCControllerDiscovery.vbs", 10314, EVENT_TYPE_ERROR, "FSSPFSCControllerDiscovery.vbs: Error of creating oAPI object")
Quit
End if
Dim oDiscoveryData
set oDiscoveryData = oAPI.CreateDiscoveryData(0, SourceId, ManagedEntityId)
If Err<>0 Then
Call oAPI.LogScriptEvent("FSSPFSCControllerDiscovery.vbs", 10315, EVENT_TYPE_ERROR, "FSSPFSCControllerDiscovery.vbs: Error of creating oAPI object")
Quit
End if
Dim oInstance
Set oInstance = oDiscoveryData.CreateClassInstance("$MPElement[Name='Microsoft.ForefrontProtection.FPSP.Services.FSSPFSCController']$")
If Err<>0 Then
Call oAPI.LogScriptEvent("FSSPFSCControllerDiscovery.vbs", 10316, EVENT_TYPE_ERROR, "FSSPFSCControllerDiscovery.vbs: Error of creating oAPI object")
Quit
End if
Call oInstance.AddProperty("$MPElement[Name='FSS!Microsoft.ForefrontProtection.Library.Server']/ServerName$",TargetComputer)
If Err<>0 Then
Call oAPI.LogScriptEvent("FSSPFSCControllerDiscovery.vbs", 10317, EVENT_TYPE_ERROR, "FSSPFSCControllerDiscovery.vbs: Error of creating oAPI object")
Quit
End if
Call oInstance.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$",TargetComputer)
If Err<>0 Then
Call oAPI.LogScriptEvent("FSSPFSCControllerDiscovery.vbs", 10318, EVENT_TYPE_ERROR, "FSSPFSCControllerDiscovery.vbs: Error of creating oAPI object")
Quit
End if
Call oInstance.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$","Microsoft Forefront Server Protection Controller")
If Err<>0 Then
Call oAPI.LogScriptEvent("FSSPFSCControllerDiscovery.vbs", 10319, EVENT_TYPE_ERROR, "FSSPFSCControllerDiscovery.vbs: Error of creating oAPI object")
Quit
End if
Call oInstance.AddProperty("$MPElement[Name='FSS!Microsoft.ForefrontProtection.Library.Services.FSCController']/ServiceName$",ServiceName)
If Err<>0 Then
Call oAPI.LogScriptEvent("FSSPFSCControllerDiscovery.vbs", 10320, EVENT_TYPE_ERROR, "FSSPFSCControllerDiscovery.vbs: Error of creating oAPI object")
Quit
End if
Call oDiscoveryData.AddInstance(oInstance)
If Err<>0 Then
Call oAPI.LogScriptEvent("FSSPFSCControllerDiscovery.vbs", 10321, EVENT_TYPE_ERROR, "FSSPFSCControllerDiscovery.vbs: Error of creating oAPI object")
Quit
End if
Call oAPI.Return(oDiscoveryData)
If Err<>0 Then
Call oAPI.LogScriptEvent("FSSPFSCControllerDiscovery.vbs", 10322, EVENT_TYPE_ERROR, "FSSPFSCControllerDiscovery.vbs: Error of creating oAPI object")
Quit
End if