Dell Command | Monitor Version 9.1 Reference Guide

'**********************************************************************

'*** Name: SampleGetRAIDStatus.vbs

'*** Purpose: To get the current list of BIOS Settings on a Dell OMCI 8.2.1 client.

'*** Usage: cscript.exe /nologo SampleGetRAIDStatus.vbs <systemname>

'*** This sample script is provided as an example only, and has not been

'*** tested, nor is warranted in any way by Dell; Dell disclaims any

'*** liability in connection therewith. Dell provides no technical

'*** support with regard to such scripting. For more information on WMI

'*** scripting, refer to applicable Microsoft documentation.

'**********************************************************************

'***Declare variables

Dim objWMIService

Dim strComputerName 

Dim strNameSpace 

Dim strClassName

Dim ColSystem 

Dim fso 

Dim txtfile

Dim outString

Dim iTKVal 

Dim ArrayItem 

Dim objInstance

'*** Check that the right executable was used to run the script and that all parameters were passed

If (LCase(Right(WScript.FullName, 11)) = "wscript.exe" ) Or _

(Wscript.Arguments.Count < 1) Then

Call Usage() 

WScript.Quit 

End If

'*** Initialize variables

Set fso = CreateObject("Scripting.FileSystemObject")

strComputerName = WScript.Arguments(0) 

outString = "" 

strNameSpace = "root/dcim/sysman" 

strClassName = "DCIM_VirtualDiskView" 

iTKVal = -1

ArrayItem = 0 

'*** Establish a connection to the dcim/sysman namespace

'*** Retrieve the instance of DCIM_ControllerView class

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate,"&_

"AuthenticationLevel=pktprivacy}\\" & strComputerName & "\"  &_

strNameSpace) 

'*** Set up the output file

Set ColSystem=objWMIService.execquery ("Select * from " & strClassName) 

outString = "RAID Status = " 

For Each objItem in ColSystem

For Each p in objItem.Properties_ 

If p.Name = "RAIDStatus" Then 

Select Case p.Value

Case 0 

outString = outString & "Unknown" & VbCrLf 

Case 1

outString = outString & "Ready" & VbCrLf 

Case 2

outString = outString & "Online" & VbCrLf

Case 3 

outString = outString & "Foreign" & VbCrLf 

Case 4 

outString = outString & "Offline" & VbCrLf 

Case 5

outString = outString & "Blocked" & VbCrLf

Case 6

outString = outString & "Failed" & VbCrLf 

Case 7 

outString = outString & "Degraded" & VbCrLf 

Case 8 

outString = outString & "Rebuilding" & VbCrLf 

End Select 

End If 

Next

Next

Wscript.StdOut.WriteLine outString 

'*** If any errors occurred, let the user know

If Err.Number <> 0 Then

WScript.Echo "Enabling Trusted Platform Module failed." 

End If 

'*** Sub used to display the correct usage of the script

Sub Usage() 

Dim strMessage 

strMessage = "incorrect syntax. You should run: " & vbCRLF & _

"cscript.exe /nologo SampleGetRAIDStatus.vbs <systemname>"

WScript.Echo strMessage

End Sub

'==========================================================================

' End

'==========================================================================