Hello and thanks for your time,


I am using the script found here: http://media.community.dell.com/en/dtc/attach/samplesetadminpassword.vbs.txt (I will also post it at the bottom.)

Here is what happens then I execute it.

C:\Users\*ME*>cscript.exe //nologo SampleSetAdminPassword.vbs VP-HR
C:\Users\*ME*\SampleSetAdminPassword.vbs(48, 1) (null): 0x8004100E

What I believe the issue might be, is on line 48 "strNameSpace" is not getting a value back from when it should be set in line 40. So my guess is that "root/dcim/sysman" is not valid on a Dell 7010.

If I can provide any further information to help solve this I will and thanks for trying to help.

'*** 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.
'*** 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()
End If '*** Initialize variables
strNameSpace = "root/dcim/sysman"
strComputerName = WScript.Arguments(0)
strClassName = "DCIM_BIOSService"
strAttributeName(0) = "AdminPwd"
strAttributeValue(0) = "password123"
strAuthorizationToken = ""
returnValue = 0
'*** Retrieve the instance of DCIM_BIOSService class
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate," &_
"AuthenticationLevel=pktprivacy}\\" & strComputerName & "\" &_
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



0 Comments   [ - ] Hide Comments


Please log in to comment

There are no answers at this time
Answer this question or Comment on this question for clarity