Dell Command | Monitor Version 9.1 Reference Guide

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

'*** Name: SampleGetRAIDSettings.vbs

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

'*** Usage: cscript.exe /nologo SampleGetRAIDSettings.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 

Dim SupportedListCV(5) 

SupportedListCV(0) = "InstanceID"

SupportedListCV(1) = "PrimaryStatus"

SupportedListCV(2) = "ControllerFirmwareVersion"

SupportedListCV(3) = "BusType" 

SupportedListCV(4) = "Device"

SupportedListCV(5) = "ProductName" 

'*** 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_ControllerView" 

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 txtfile = fso.Createtextfile("RAID_Output.csv", true) 

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

outString = "" 

For Each objItem in ColSystem 

For Each p in objItem.Properties_

For Each obj in SupportedListCV 

If p.Name = obj Then

' Display the values of the Name and Value properties of the SWbemProperty object 

outString = outString & p.Name & "," & p.Value & VbCrLf 

End If 

Next

Next 

Next 

txtfile.WriteLine outString

'*** Close the file

txtfile.close 

'*** 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 SampleGetRAIDSettings.vbs <systemname>"

WScript.Echo strMessage 

End Sub

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

' End

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