Reference Guide

Dell OpenManage Client Instrumentation Reference Guide
file:///T|/htdocs/SOFTWARE/smcliins/cli80/EN/refgd/index.htm[10/19/2012 9:56:27 AM]
'*** 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
strNameSpace = "root/dcim/sysman"
strComputerName = WScript.Arguments(0)
strClassName = "DCIM_BIOSService"
strAttributeName(0) = "Force PXE on Next Boot"
'*** All possible values for Force PXE on Next Boot are as follows:
'*** 1 = Disable
'*** 2 = Enable
strAttributeValue(0) = "2"
strAuthorizationToken = "<Password>"
returnValue = 0
'*** Retrieve the instance of DCIM_BIOSService class
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate," &_
"AuthenticationLevel=pktprivacy}\\" & strComputerName & "\" &_
strNameSpace)
Set ColSystem=objWMIService.execquery ("Select * from " & strClassName)
For each objInstance in ColSystem
Set oInParams= objInstance.Methods_("SetBIOSAttributes").InParameters.SpawnInstance_
oInParams.AttributeName = strAttributeName
oInParams.AttributeValue = strAttributeValue
oInParams.AuthorizationToken = strAuthorizationToken
Set returnValue = objInstance.ExecMethod_("SetBIOSAttributes", oInParams)
Next
'*** If any errors occurred, let the user know
If Err.Number <> 0 Then
WScript.Echo "Enabling Force PXE on Next Boot 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 SampleForcePXE.vbs <systemname>"
WScript.Echo strMessage
End Sub
System Summary
Below is a sample VBScript that contains details of the system summary.
'**********************************************************************
'*** Name: SampleSystemSummary.vbs
'*** Purpose: To check for BIOS Admin/Boot Password on a Dell OMCI client.
'*** Usage: cscript.exe //nologo SampleSystemSummary.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.
'**********************************************************************
Option Explicit
'*** Declare variables
Dim strNameSpace
Dim strComputerName
Dim strClassName
Dim strClassNameBIOS
Dim strKeyValueChassis
Dim objInstance
Dim ColSystem
Dim objWMIService
Dim strMessage
'*** 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
strNameSpace = "root/dcim/sysman"
strComputerName = WScript.Arguments(0)
strClassName = "DCIM_Chassis"
strClassNameBIOS = "DCIM_BIOSElement"
strKeyValueChassis = "DCIM_Chassis"
'*** Retrieve the instance of DCIM_Chassis class (there should
'*** only be 1 instance).
'*** Establish a connection to the dcim\sysman namespace
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate," &_
"AuthenticationLevel=pktprivacy}\\" & strComputerName & "\" &_
strNameSpace)
Set ColSystem=objWMIService.execquery ("Select * from " & strClassName)
For each objInstance in ColSystem
if (objInstance.CreationClassName = strKeyValueChassis) Then
strMessage = "Asset Tag: "
strMessage = strMessage & objInstance.Properties_.Item("Tag").Value
strMessage = strMessage & vbCRLF & "Service Tag: "
strMessage = strMessage & objInstance.Properties_.Item("ElementName").Value
End if
Next
'*** Retrieve all instances of DCIM_BIOSElement (there should
'*** only be 1 instance).