wugSpace: The WhatsUp Gold Community

Script Library

This is a public Media Gallery publicRSS

Peformance Monitor

Monitor for Dell MD3000i

Peformance Monitor posted 7/24/09 by Terry Wood

2114 Views, 11 Comments

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

Comments

posted May 5 by Ian Beyer
I can't get this to function correctly in WUG - It's throwing a script errror every time it runs, line 17, Character 4, "File not found". It doesn't appear the script is actually creating the datafile. Since there's no practical way that I can find in WUG to debug this, I'm hoping you can help figure out why this isn't working correctly. It doesn't seem to matter which data sub I use.
Reply to this Comment
Attach File
You may upload a file up to 20MB

Your file will be uploaded when you submit the form below
Cancel
- Be the first to rate this
  |
  Sign in to rate this
- posted May 5 by Terry Wood
  Do you have the MD3000i Storage Manager installed on your WhatsUp Server? Have you changed the default values (marked with **)? Can you manually fire the following (replaceing **SANNAME** with yours)?
  
  C:\Program Files\Dell\MD Storage Manager\client\smcli -n **SANNAME** -c
  
  Do you get any errors?
  Reply to this Comment
  Attach File
  You may upload a file up to 20MB
  
  Your file will be uploaded when you submit the form below
  
  Cancel
  - Be the first to rate this
    |
    Sign in to rate this
  - posted May 5 by Ian Beyer
    From the command line, it's able to communicate with the array and generate data correctly, just not from within the script.
    
    Reply to this Comment
    Attach File
    You may upload a file up to 20MB
    
    Your file will be uploaded when you submit the form below
    
    Cancel
    
    Be the first to rate this
    |
    Sign in to rate this
    
    posted May 5 by Terry Wood
    Do you have Windows Admin creds applied to the device?
    
    Reply to this Comment
    Attach File
    You may upload a file up to 20MB
    
    Your file will be uploaded when you submit the form below
    
    Cancel
    
    Be the first to rate this
    |
    Sign in to rate this
    
    posted May 5 by Ian Beyer
    If you're referring to the MD3000, I'm not aware of any way of integrating it to AD.
    
    Reply to this Comment
    Attach File
    You may upload a file up to 20MB
    
    Your file will be uploaded when you submit the form below
    
    Cancel
    
    Be the first to rate this
    |
    Sign in to rate this
    
    posted May 5 by Terry Wood
    In WUG. The Credentials for the device.
    
    Reply to this Comment
    Attach File
    You may upload a file up to 20MB
    
    Your file will be uploaded when you submit the form below
    
    Cancel
    
    Be the first to rate this
    |
    Sign in to rate this
    
    posted May 5 by Ian Beyer
    Yes, it has admin creds set.
    
    Reply to this Comment
    Attach File
    You may upload a file up to 20MB
    
    Your file will be uploaded when you submit the form below
    
    Cancel
    
    Be the first to rate this
    |
    Sign in to rate this
    
    posted May 5 by Ian Beyer
    The error it's showing in the error log is 'File not Found'---v(null)
    
    Reply to this Comment
    Attach File
    You may upload a file up to 20MB
    
    Your file will be uploaded when you submit the form below
    
    Cancel
    
    Be the first to rate this
    |
    Sign in to rate this
    
    posted May 5 by Terry Wood
    Did you manually build all of the directories needed?
    
    Reply to this Comment
    Attach File
    You may upload a file up to 20MB
    
    Your file will be uploaded when you submit the form below
    
    Cancel
    
    Be the first to rate this
    |
    Sign in to rate this
    
    posted May 5 by Ian Beyer
    Are there any others beside the one mentioned? That's the only one I created.
    
    Reply to this Comment
    Attach File
    You may upload a file up to 20MB
    
    Your file will be uploaded when you submit the form below
    
    Cancel
    
    Be the first to rate this
    |
    Sign in to rate this
posted Jun 16 by Peter Groll
The Script miss the IP or DNS-Name of the San

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\"";"""

This is my line:

strCommand = "D:\Programme\Dell\MD Storage Manager\client\smcli 192.168.1.15 -n MD3000i -c ""set session performanceMonitorInterval=5 performanceMonitorIterations=10; save storageArray performanceStats file=\""c:\\MD3000i_PerfMons\\md3000i" & filename & ".csv\"";"""

and it works.
Reply to this Comment
Attach File
You may upload a file up to 20MB

Your file will be uploaded when you submit the form below
Cancel
- Be the first to rate this
  |
  Sign in to rate this