wugSpace: The WhatsUp Gold Community

Script Library

This is a public Media Gallery public RSS

Peformance Monitor

Monitor for Dell MD3000i

Peformance Monitor posted 07/24/09 by Terry Wood

1472 Views

Name:

Monitor for Dell MD3000i

Description:

This is an active script performance monitor that will let you trend;

Total IOs*
Read Percentage
Cache Hit Percentage
Current KB/second
Maximum KB/second*
Current IO/second
Maximum IO/second*

from your MD3000i. Warning: This is a little more involved than most performance monitors, and relies on additional software (from Dell), so don't just slap the script below in an hit run, it won't work. Really. *These are not setup by default, we will let WUG create that data from the polling values.

First, you will need to install the "Dell PowerVault Modular Disk Storage Manager" on your WahtsUp Gold server. This will be on a disk that came with the MD3000i, or you can download it from Dell support. We are looking specificly for the "Modular Disk Storage Manager Client". We will be using the CLI (Command Line Interface) aspects of that application to expose the data.

Second, the script below has multiple values it can monitor, but only one can be selected at a time. Just copy and comment out the active part, and then un-comment the values you want to trend.

Third, search the code for the followng an replace them with your values;

**WUGSERVER**
**SANNAME**

And create the following directory on your WUG server;

C:\MD3000i_PerfMons

Fourth, build the monitor in WUG. Run it and see what happens. There is some basic error handling for old files, and no files, etc. so be sure to check the error report if something looks wonky, or you are getting no data.

-Enjoy!

Sources (for additional info):

Language:

VB Script

Code:

'Dell MD3000i Performance Monitor
'Created by CBentkowski and TWood
'You will need to install the Modular Disk Storage Manager Client from Dell on your WhatsUp Gold server for this to work

'You can select (uncomment) only one value below to trend
'Hint: make more than one of these to get all the values

'CurrentKB() 'Gets the Current KB/second Average
CurrentIO() 'Gets the Currnet IO/second Average
'ReadPercentage() 'Gets the Read Percentage Average
'CacheHitPercentage() 'Gets the Cache Hit Percentage Average

Dim InputStr

Public Function ReadFile(ByVal filepath)
    Const ForReading = 1 'Turns on read only
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    If objFSO.FileExists(filepath) And objfso.GetFile(filepath).Size > 0 Then
        Set objTextFile = objFSO.OpenTextFile(filepath, ForReading)
        InputStr = objtextfile.ReadAll
        objtextfile.Close
        ReadFile = True
    Else
        ReadFile = False
    End If
End Function

Public Sub ExecuteCommand(ByVal filename)
        'Execute command on remote computer
        strComputer = "**WUGSERVER**" 'Computer Host or IP (. = Local)
        strCommand = "C:\Program Files\Dell\MD Storage Manager\client\smcli -n **SANNAME** -c ""set session performanceMonitorInterval=5 performanceMonitorIterations=10; save storageArray performanceStats file=\""c:\\MD3000i_PerfMons\\md3000i" & filename & ".csv\"";"""
        Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
        Set objProcess = objWMIService.Get("Win32_Process")
        errReturn = objProcess.Create(strCommand, null, null, intProcessID)
End Sub

Public Sub CurrentKB()
    Const FilePathName = "C:\MD3000i_PerfMons\md3000iCurrentKB.csv" 'File Path and Name ex. C:\InputStr.txt
    Dim blnReadFile
    
    blnReadFile = ReadFile(FilePathName)
    
If Not blnReadFile Then
    Context.SetResult 1, "File either does not exist or is 0 bytes."
    ExecuteCommand("CurrentKB")
    Exit Sub
End If

    'Set Regular Expressions
    Dim reValue, valueMatch, valueMatches

    Set reValue = New RegExp
    reValue.Global = True
    reValue.IgnoreCase = True

    'Check Date
    Dim CurDateTime, FileDateTime
    CurDateTime = Now()

    reValue.Pattern = "Date/Time: ([^""]+?M)"""
    Set valueMatches = reValue.Execute(InputStr)
    If valueMatches.Count >= 1 Then
        FileDateTime = valueMatches(0).Submatches(0)
    End If
    
    If DateDiff("n", CDate(FileDateTime), CurDateTime) > 60 Then
        ExecuteCommand("CurrentKB")
        'End monitor with Error
        Context.SetResult 1, "Error: Date outside 1 hour threshold for data"
        Exit Sub
    Else

        'Find all iterations of CurrentKB
        Dim CurrentKB
        reValue.Pattern = "STORAGE ARRAY TOTALS"",""[^""]*?"",""[^""]*?"",""[^""]*?"",""([^""]*?)"","
        Set valueMatches = reValue.Execute(InputStr)
        For Each valueMatch In valueMatches
            CurrentKB = CDbl(CurrentKB) + CDbl(valueMatch.Submatches(0))
        Next

        If valueMatches.Count >= 1 Then
            CurrentKB = CDbl(CurrentKB)/valueMatches.Count
        Else
            Context.SetResult 1, "Zero matches on CurrentKB count."
            Exit Sub
        End If
    
        ExecuteCommand("CurrentKB")
    
        'End Monitor with Value Output    
        Context.SetValue(CurrentKB)
    
    End If
End Sub

Public Sub CurrentIO()
    'Read InputStr from File
    Const FilePathName = "C:\MD3000i_PerfMons\md3000iCurrentIO.csv" 'File Path and Name ex. C:\InputStr.txt
    Dim blnReadFile
    
    blnReadFile = ReadFile(FilePathName)
    
    If Not blnReadFile Then
        Context.SetResult 1, "File either does not exist or is 0 bytes."
        ExecuteCommand("CurrentIO")
        Exit Sub
    End If

    'Set Regular Expressions
    Dim reValue, valueMatch, valueMatches

    Set reValue = New RegExp
    reValue.Global = True
    reValue.IgnoreCase = True

    'Check Date
    Dim CurDateTime, FileDateTime
    CurDateTime = Now()

    reValue.Pattern = "Date/Time: ([^""]+?M)"""
    Set valueMatches = reValue.Execute(InputStr)
    If valueMatches.Count >= 1 Then
        FileDateTime = valueMatches(0).Submatches(0)
    End If

    If DateDiff("n", CDate(FileDateTime), CurDateTime) > 60 Then
        ExecuteCommand("CurrentIO")
        'End monitor with Error
        Context.SetResult 1, "Error: Date outside 1 hour threshold for data"
        Exit Sub
    Else

        'Find all iterations of CurrentKB
        Dim CurrentIO
        reValue.Pattern = "STORAGE ARRAY TOTALS"",""[^""]*?"",""[^""]*?"",""[^""]*?"",""[^""]*?"",""[^""]*?"",""([^""]*?)"","
        Set valueMatches = reValue.Execute(InputStr)
        For Each valueMatch In valueMatches
            CurrentIO = CDbl(CurrentIO) + CDbl(valueMatch.Submatches(0))
        Next

        If valueMatches.Count >= 1 Then
            CurrentIO = CDbl(CurrentIO)/valueMatches.Count
        Else
            Context.SetResult 1, "Zero matches on CurrentIO count."
            Exit Sub
        End If
    
        ExecuteCommand("CurrentIO")
    
        'End Monitor with Value Output    
        Context.SetValue(CurrentIO)
    
    End If
End Sub

Public Sub ReadPercentage()
    'Read InputStr from File
    Const FilePathName = "C:\MD3000i_PerfMons\md3000iCurrentReadPercent.csv" 'File Path and Name ex. C:\InputStr.txt
    Dim blnReadFile
    
    blnReadFile = ReadFile(FilePathName)
    
    If Not blnReadFile Then
        Context.SetResult 1, "File either does not exist or is 0 bytes."
        ExecuteCommand("ReadPercent")
        Exit Sub
    End If

    'Set Regular Expressions
    Dim reValue, valueMatch, valueMatches

    Set reValue = New RegExp
    reValue.Global = True
    reValue.IgnoreCase = True

    'Check Date
    Dim CurDateTime, FileDateTime
    CurDateTime = Now()

    reValue.Pattern = "Date/Time: ([^""]+?M)"""
    Set valueMatches = reValue.Execute(InputStr)
    If valueMatches.Count >= 1 Then
        FileDateTime = valueMatches(0).Submatches(0)
    End If

    If DateDiff("n", CDate(FileDateTime), CurDateTime) > 60 Then
        ExecuteCommand("ReadPercent")
        'End monitor with Error
        Context.SetResult 1, "Error: Date outside 1 hour threshold for data"
        Exit Sub
    Else

        'Find all iterations of CurrentKB
        Dim ReadPercent
        reValue.Pattern = "STORAGE ARRAY TOTALS"",""[^""]*?"",""([^""]*?)"",""[^""]*?"",""[^""]*?"",""[^""]*?"",""[^""]*?"","
        Set valueMatches = reValue.Execute(InputStr)
        For Each valueMatch In valueMatches
            ReadPercent = CDbl(ReadPercent) + CDbl(valueMatch.Submatches(0))
        Next

        If valueMatches.Count >= 1 Then
            ReadPercent = CDbl(ReadPercent)/valueMatches.Count
        Else
            Context.SetResult 1, "Zero matches on ReadPercent count."
            Exit Sub
        End If
    
        ExecuteCommand("ReadPercent")
    
        'End Monitor with Value Output    
        Context.SetValue(ReadPercent)
    
    End If
End Sub

Public Sub CacheHitPercentage()
    'Read InputStr from File
    Const FilePathName = "C:\MD3000i_PerfMons\md3000iCurrentCacheHitPercent.csv" 'File Path and Name ex. C:\InputStr.txt
    Dim blnReadFile
    
    blnReadFile = ReadFile(FilePathName)
    
    If Not blnReadFile Then
        Context.SetResult 1, "File either does not exist or is 0 bytes."
        ExecuteCommand("CacheHitPercent")
        Exit Sub
    End If

    'Set Regular Expressions
    Dim reValue, valueMatch, valueMatches

    Set reValue = New RegExp
    reValue.Global = True
    reValue.IgnoreCase = True

    'Check Date
    Dim CurDateTime, FileDateTime
    CurDateTime = Now()

    reValue.Pattern = "Date/Time: ([^""]+?M)"""
    Set valueMatches = reValue.Execute(InputStr)
    If valueMatches.Count >= 1 Then
        FileDateTime = valueMatches(0).Submatches(0)
    End If

    If DateDiff("n", CDate(FileDateTime), CurDateTime) > 60 Then
        ExecuteCommand("CacheHitPercent")
        'End monitor with Error
        Context.SetResult 1, "Error: Date outside 1 hour threshold for data"
        Exit Sub
    Else

        'Find all iterations of CurrentKB
        Dim CacheHitPercent
        reValue.Pattern = "STORAGE ARRAY TOTALS"",""[^""]*?"",""[^""]*?"",""([^""]*?)"",""[^""]*?"",""[^""]*?"",""[^""]*?"","
        Set valueMatches = reValue.Execute(InputStr)
        For Each valueMatch In valueMatches
            CacheHitPercent = CDbl(CacheHitPercent) + CDbl(valueMatch.Submatches(0))
        Next

        If valueMatches.Count >= 1 Then
            CacheHitPercent = CDbl(CacheHitPercent)/valueMatches.Count
        Else
            Context.SetResult 1, "Zero matches on CacheHitPercent count."
            Exit Sub
        End If
    
        ExecuteCommand("CacheHitPercent")
    
        'End Monitor with Value Output    
        Context.SetValue(CacheHitPercent)
    
    End If
End Sub

Disclaimer:

All scripts found on wugSpace are provided as-is with no warranty or guarantee. These scripts are not supported by Ipswitch Technical Support. If you have a problem with this script, please ask any questions in the comments.

Be the first to rate this
|
Sign in to rate this