Reference Guide

'***
NOTE: Replace <old_password> and <new_password> in line 45 and 44 '*** (inside the quotes) with
the desired values.
'**********************************************************************
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
355