Reference Guide

'*** 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)

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

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

407