''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' "check_adaptecraid.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.
'
' 16.07.2004 ver 1.0
' Check status of Adaptec 2400A RAID array
'
' --------------------------------------------------------------
' This pluging will return the status of the Adaptec 2400A RAID Array
'

<job>
<runtime>
  <description>
Nagios Adaptec 2400A RAID Monitoring

Requires the Adaptec Storage Manager Pro to be installed

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

  </description>
  </runtime>
<script language="VBScript">
Dim strPattern, strLine, splitres, optimal, reconst, ndrv, Array()
Dim logical_drive, raid_level, drive_status, status_msg
Const intOK = 0
Const intWarning = 1
Const intCritical = 2

strPattern = "^(d.b.t.d.)\s+RAID\s+.\s+.*(RAID-.)\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\Adaptec\StorageManagerPro\Raidutil.exe -L logical")

optimal = 0
reconst = 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")
     raid_level    = objRegexp.Replace(strLine, "$2")
     drive_status  = objRegexp.Replace(strLine, "$3")

      If( drive_status = "Optimal") Then
       optimal = optimal + 1
      elseif ( InStr(drive_status, "Reconst") = 1 ) Then
       reconst = reconst + 1
      End If

     REDIM PRESERVE Array(ndrv)
     Array(ndrv) = logical_drive & " " & raid_level & ", State: " & drive_status
     ndrv = ndrv + 1

  End If
Loop

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

if( optimal + reconst <> ndrv) Then
  WScript.Quit(intCritical)
elseif( ndrv = 0 OR optimal <> ndrv )  then
  WScript.Quit(intWarning)
Else
  WScript.Quit(intOK)
End If

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

</script>
</job>