Dell Command | Monitor Version 9.1 Reference Guide

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

'*** Name: SampleSetAdminPassword.vbs

'*** Purpose: To Set/Change the BIOS Admin password on a Dell OMCI client.

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

Dim strAttributeName(2)

Dim strAttributeValue(2)

Dim strAuthorizationToken

Dim returnValue 

Dim objWMIService

Dim ColSystem

Dim oInParams

'*** 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) = "AdminPwd"

strAttributeValue(0) = "<new_password>"

strAuthorizationToken = "<old_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 "Change admin password 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 SampleSetAdminPassword.vbs <systemname>"

WScript.Echo strMessage 

End Sub

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

' End

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