更改管理员密码

怎么在没有密码的时候

dim objcnlar
Set objcnlar = GetObject("WinNT://./administrator", user)
dim xx
xx=trim(inputbox("请输入你要更改的系统管理员密码","系统管理员密码更改程序"))
if xx="" then
msgbox "请输入密码，否则密码默认为空！",40,"提示信息"
objcnlar.SetInfo
else
intmsg=msgbox("你确认要更改系统管理员密码吗？",vbYesNo,"请确认:")
if intmsg=vbYes then
objcnlar.SetPassword xx
objcnlar.SetInfo
else
objcnlar.SetInfo
end if
end if
在桌面上新建一个文本文档,复制这些代码,然后另存为文件名为unlock.vbs.

控制面板--用户账户--挑选一个账户做更改---创建密码--输入新密码--再次输入密码确认---输入一个单词作为密码提示----创建密码。

控制面板->管理工具->计算机管理->本地用户和组->用户,在右面的窗口里选择administrator,点击右键->设置密码.