<Rule ID="DataONTAP.Performance.Rule.LunLatency" Enabled="true" Target="DataONTAP.ManagementServer" ConfirmDelivery="true" Remotable="true" Priority="Normal" DiscardLevel="100">
<Category>PerformanceCollection</Category>
<DataSources>
<DataSource ID="DS" TypeID="System!System.SimpleScheduler">
<IntervalSeconds>3600</IntervalSeconds>
<SyncTime>06:30</SyncTime>
</DataSource>
</DataSources>
<WriteActions>
<WriteAction ID="GetLunLatencyScript" TypeID="Windows!Microsoft.Windows.ScriptWriteAction">
<ScriptName>GetLunLatency.vbs</ScriptName>
<Arguments>$Target/Property[Type="DataONTAP.ManagementServer"]/Fqdn$</Arguments>
<ScriptBody><Script>
'**********************************************************************************
' Script Name - GetLunLatency.vbs
'
' Description:
' Gets LUN latency performance values and insert them into the database
'
' (c) Copyright NetApp Inc. 2011 - All rights reserved
'**********************************************************************************
Option Explicit
Dim oAPI
Set oAPI = CreateObject("MOM.ScriptAPI")
Dim oArgs
Set oArgs = WScript.Arguments
Dim errorMessage
if oArgs.Count < 1 Then
errorMessage = "GetLunLatency.vbs was called with the incorrect # of parameters (param count = " & oArgs.Count & ")."
'WScript.Echo(errorMessage)
Call oAPI.LogScriptEvent("GetLunLatency.vbs",1201,0,errorMessage)
Wscript.Quit -1
End If
Dim ManagementServer
ManagementServer = oArgs(0)
Dim oNetAppSCOMAPI
Set oNetAppSCOMAPI = CreateObject("NetApp.OM.Server.Monitoring.StorageMonitoring")
If Err Then
errorMessage = "Failed to create NetAppSCOM 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
'WScript.Echo(errorMessage)
Call oAPI.LogScriptEvent("GetLunLatency.vbs",1202,0,errorMessage)
WScript.Quit -1
End If
Dim result
result = oNetAppSCOMAPI.GetLUNLatency(ManagementServer)
If Err Then
errorMessage = "Failed to call GetLUNLatency" & 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
'WScript.Echo(errorMessage)
Call oAPI.LogScriptEvent("GetLunLatency.vbs",1203,0,errorMessage)
WScript.Quit -1
End If
Call oAPI.LogScriptEvent("GetLunLatency.vbs",1204,0,"Event collection succeeded for " & ManagementServer & ".")