' Echo the parameters so we can see what has been passed in
WScript.Echo("LagWarningThreshold = " & LagWarningThreshold)
WScript.Echo("LagCriticalThreshold = " & LagCriticalThreshold)
WScript.Echo("ManagementServer = " & ManagementServer)
Dim oNetAppSCOMAPI
Set oNetAppSCOMAPI = CreateObject("NetApp.OM.Server.SnapMirror.SnapMirror")
If Err Then
errorMessage = "Failed to create NetAppSCOM SnapMirror object" & vbNewLine & _
"Err.description = """ & Err.description & """" & vbNewLine & _
"Err.helpcontext = """ & Err.helpcontext & """" & vbNewLine & _
"Err.helpfile = """ & Err.helpfile & """" & vbNewLine & _
"Err.number = """ & Err & """ (&H" & hex(Err) & ")" & vbNewLine & _
"Err.source = """ & Err.source & """" & vbNewLine
Dim boolDiscoverySucceeded
boolDiscoverySucceeded = oNetAppSCOMAPI.GetAllControllerSnapMirrorStatus(ManagementServer, LagWarningThreshold, LagCriticalThreshold)
If Err Then
errorMessage = "Failed to get controller snapmirror status" & vbNewLine & _
"Err.description = """ & Err.description & """" & vbNewLine & _
"Err.helpcontext = """ & Err.helpcontext & """" & vbNewLine & _
"Err.helpfile = """ & Err.helpfile & """" & vbNewLine & _
"Err.number = """ & Err & """ (&H" & hex(Err) & ")" & vbNewLine & _
"Err.source = """ & Err.source & """" & vbNewLine & _
"Server = """ & ManagementServer