Reference Guide

The Reference Guide contains the
file:///T|/htdocs/SOFTWARE/smcliins/cli81/en/refgd/index.html[10/19/2012 10:01:19 AM]
Set ColSystem=objWMIService.execquery ("Select * from " & strClassNameBIOS)
For each objInstance in ColSystem
strMessage = strMessage & vbCRLF & "BIOS Version: "
strMessage = strMessage & objInstance.Properties_.Item("Version").Value
Next
'*** Display the results
WScript.Echo strMessage
'*** Sub used to display the correct usage of the script
Sub Usage()
Dim strMessage
strMessage = "incorrect syntax. You should run: " & vbCRLF & _
"cscript.exe //nologo SampleSystemSummary.vbs <systemname>"
WScript.Echo strMessage
End Sub
'==========================================================================
' End
'==========================================================================
Sample Get RAID Type
Below is a sample VBScript that contains details of the sample GetRAID type.
'**********************************************************************
'*** Name: SampleGetRAIDType.vbs
'*** Purpose: To get the current list of BIOS Settings on a Dell OMCI 8.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