Dell Command | Monitor Version 9.1 Reference Guide

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

'*** Name: SampleGetRAIDType.vbs

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

'*** Usage: cscript.exe /nologo SampleGetRAIDType.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 Type = "

For Each objItem in ColSystem

For Each p in objItem.Properties_ 

If p.Name = "RAIDTypes" Then 

Select Case p.Value 

Case 1 

outString = outString & "No RAID" & VbCrLf

Case 2 

outString = outString & "RAID0" & VbCrLf

Case 4

outString = outString & "RAID1" & VbCrLf 

Case 64 

outString = outString & "RAID5" & VbCrLf 

Case 128 

outString = outString & "RAID6" & VbCrLf 

Case 2048

outString = outString & "RAID10" & VbCrLf 

Case 8192

outString = outString & "RAID50" & VbCrLf

Case 16384

outString = outString & "RAID60" & VbCrLf 

Case Else 

outString = outString & "UNSUPPORTED" & 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 SampleGetRAIDType.vbs <systemname>" 

WScript.Echo strMessage

End Sub

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

' End

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