Vbscript HP Elite 8300 SFF-更改Bios启动顺序WMI

我使用此vbscript从Windows更改Bios引导顺序设置：

function ErrCode(oReturn)
    Dim strReturn
    Select Case oReturn
        Case 0 strReturn = "Success"
        Case 1 strReturn = "Not Supported"
        Case 2 strReturn = "Unspecified Error"
        Case 3 strReturn = "Timeout"
        Case 4 strReturn = "Failed"
        Case 5 strReturn = "Invalid Parameter"
        Case 6 strReturn = "Access Denied"
        Case Else strReturn = "..."
    End Select
      ErrCode= strReturn
    end function

    Set objWMIService = GetObject("winmgmts:{impersonationlevel=impersonat​e}//./root/HP/InstrumentedBIOS")
    Set colItems = objWMIService.ExecQuery("select * from HP_BIOSSettingInterface",,48)

    For each objItem in colItems
    objItem.SetBiosSetting oReturn, "Boot Order", "Network Controller,Hard Drive,ATAPI CD-ROM Drive"  ,"<kbd/>"
    if oReturn then
        wscript.echo "Boot Order" & " Can not be set, Error="  & ErrCode(oReturn)
        wscript.quit(oReturn )
    end if
Next

函数ErrCode（oReturn）
暗色转向
选择案例或返回
案例0 strReturn=“成功”
案例1 strReturn=“不受支持”
案例2 strReturn=“未指定错误”
案例3 strReturn=“超时”
案例4 strReturn=“失败”
案例5 strReturn=“参数无效”
案例6 strReturn=“访问被拒绝”
Case Else strReturn=“…”
结束选择
ErrCode=strReturn
端函数
设置objWMIService=GetObject（“winmgmts:{impersonationlevel=impersonat​e} //。/root/HP/InstrumentedBIOS”）
Set colItems=objWMIService.ExecQuery（“从HP_BiosettingInterface中选择*”，48）
对于每个对象，在colitem中
objItem.setbiosetting oReturn，“引导顺序”，“网络控制器，硬盘驱动器，ATAPI CD-ROM驱动器”，等等
如果是这样的话
wscript.echo“启动顺序”和“无法设置，错误=”&ErrCode（oReturn）
wscript.quit（或返回）
如果结束
下一个

它给我错误消息6:访问被拒绝

此脚本适用于HP DC7900和其他HP。我是本地管理员，正在尝试使用64位Windows 7

---

有人能帮我吗？为什么访问被拒绝？

此问题通常由以下两种原因引起：

1：您的BIOS上可能有密码。如果是这样，如果您找不到密码，这可能会有所帮助

2：确保以管理员身份运行脚本。如果未禁用UAC，则Windows可能不会以管理员身份启动脚本。尝试从提升的命令提示符运行脚本。（单击开始，在搜索区域中键入“CMD”，右键单击，然后选择以管理员身份运行）。通过从提升的命令提示符启动它，您应该避免任何Windows权限问题