每次设置系统用户自动登陆都要去翻注册表，比较麻烦，所以今天就花了点时间写了一个小脚本，功能很单一，有需要的朋友可以下载试试。代码如下：
[ Last edited by 112183883 on 2007-1-6 at 02:04 PM ]
on error resume next
dim welcomeinfo
welcomeinfo=msgbox("本工具将帮助你设置Windows自动登陆用户，是否继续？",1,"提示信息")
if welcomeinfo<>1 then wscript.quit
dim wshshell
dim rootkey
dim userkey
dim passwordkey
dim logonkey
dim username
dim password
dim tsinfo
do
username=inputbox("请输入你的用户账号：","提示信息")
if username="" then
tsinfo=msgbox("用户账号不能为空，要重新输入吗？",1,"提示信息")
if tsinfo<>1 then wscript.quit
end if
loop until username<>""
password=inputbox("请输入你的用户密码：","提示信息")
set wshshell=createobject("wscript.shell")
rootkey="HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\"
userkey=rootkey & "\DefaultUserName"
passwordkey=rootkey & "\DefaultPassWord"
logonkey=rootkey & "\AutoAdminLogon"
wshshell.regwrite userkey,username
wshshell.regwrite passwordkey,password
wshshell.regwrite logonkey,"1"
if err then
msgbox "设置失败，请重试！",,"提示信息"
err.clear
else
msgbox "设置成功！",,"提示信息"
end if
set wshshell=nothing
[ Last edited by 112183883 on 2007-1-6 at 02:04 PM ]
附件
AutoAdminLogon.rar (665 bytes, 下载附件所需积分 1 点, 下载次数: 141)
