''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' "check_dell_amcli.wsf"
'
' This script was initially developed by Anstat Pty Ltd for internal use,
' and has kindly been made available to the Open Source community for
' redistribution and further development under the terms of the
' GNU General Public License: http://www.gnu.org/licenses/gpl.html
' 
' This script is supplied 'as-is', in the hope that it will be useful, but
' neither Anstat Pty Ltd nor the authors make any warranties or guarantees
' as to its correct operation, including its intended function.
' 
' Or in other words:
'         Test it yourself, and make sure it works for YOU.
' 
' Authors: George Hansper, Richard Balaganeshan
'                                   e-mail:  Name.Surname@anstat.com.au
'
' 16.07.2004 ver 1.0
' Check status of Dell RAID array using the Array Manager utility amcli.exe
'
'

<job>
<runtime>
  <description>
Check status of Dell RAID array using the Array Manager utility amcli.exe

Example NRPE_NT Usage:
	command[check_dell_amcli]=c:\winnt\system32\cscript.exe //NoLogo //T:10 c:\nrpe_nt\check_dell_amcli.wsf

Requires the Dell Array Manager to be installed
  </description>
  </runtime>
<script language="VBScript">
Dim strPattern, strLine, splitres, ndrv_ok, ndrv_resync, ndrv, Array()
Dim logical_drive, redundant, drive_status, status_msg
Const intOK = 0
Const intWarning = 1
Const intCritical = 2

strPattern = "^\S+\s+(.*\d{1,2})\s+RAID\s\d{1,2}\s+([^\s]+)\s+(.*\S)\s*$"

Set objRegexp = New RegExp
With objRegexp
.Global = False
.IgnoreCase = True
.Pattern = strPattern
End With

Set objShell = WScript.CreateObject("WScript.Shell")
Set objExecObject = objShell.Exec("C:\PROGRAM Files\Dell\OpenManage\Array Manager\amcli.exe /dv")

ndrv_ok = 0
ndrv_resync = 0
ndrv = 0
REDIM Array(0)
Array(0) = "No RAID Disk found"

Do Until objExecObject.StdOut.AtEndOfStream
  strLine = objExecObject.StdOut.ReadLine()
    
  If objRegexp.Test(strLine) = True Then
     logical_drive = objRegexp.Replace(strLine, "$1")
     redundant     = objRegexp.Replace(strLine, "$2")
     drv_state     = objRegexp.Replace(strLine, "$3")

     If((redundant = "Yes") AND (drv_state = "READY")) Then
       ndrv_ok = ndrv_ok + 1
     elseif ( InStr(drive_status, "Resync") = 1 ) Then
       ndrv_resync = ndrv_resync + 1
     End If

     REDIM PRESERVE Array(ndrv)
     Array(ndrv) = logical_drive & " - Redundant: " & redundant & ", State: " & drv_state
     ndrv = ndrv + 1

  End If
Loop

status_msg = Join(Array, "; ")
WScript.Echo status_msg

if( ndrv_ok <> ndrv) Then
  WScript.Quit(intCritical)
elseif( ndrv = 0 ) Then
  WScript.Quit(intWarning)
Else
  WScript.Quit(intOK)
End If

Set objRegexp = Nothing
Set objShell = Nothing
Set objExecObject = Nothing
Set Array() = Nothing

</script>
</job>