Below is a sample VBScript that contains details of the
sample GetRAID settings.
'**********************************************************************
'*** 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
'==========================================================================