修改2k自动登陆的脚本

--  修改2k自动登陆的脚本

main

sub main()
dim Auto,domain,user,paswword,auto1,domain1,user1,paswword1,reg,nl
reg="HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Winlogon\\"
nl=chr(10)+chr(13)
auto1=rg(reg & "AutoAdminLogon")
domain1=rg(reg & "DefaultdomainName")
user1=rg(reg & "Defaultusername")
password1=rg(reg & "DefaultPassword")

str="启动:"+auto1+nl+"缺省域(或计算机)名:"+domain1+nl+"缺省用户名:"+user1+nl+"缺省口令:"+password1+nl+nl

if msgbox("当前自动登录信息如下:"+nl+nl+str & "要进行修改吗?",36,"Aboutnt.com[中文NT资源网]")<>6 then exit sub

auto=inputbox("要启动自动登录功能吗?"+nl+"0:不启动"+nl+"1:启动","Aboutnt.com[中文NT资源网]",auto1)
if auto="" then
msgbox ("输入数据非法,程序中止!")
exit sub
end if

domain=inputbox("请输入域名:","Aboutnt.com[中文NT资源网]",domain1)
if domain="" then
msgbox ("没有输入域名,程序中止!")
exit sub
end if

user=inputbox("请输入用户名:","Aboutnt.com[中文NT资源网]",user1)
if user="" then
msgbox ("没有输入用户名,程序中止!")
exit sub
end if

password=inputbox("请输入口令:","Aboutnt.com[中文NT资源网]",password1)
if password="" then
msgbox ("没有输入口令,自动登录功能将只执行一次!")
end if

str="启动:"+auto+nl+"缺省域(或计算机)名:"+domain+nl+"缺省用户名:"+user+nl+"缺省口令:"+password+nl+nl

if msgbox("修改后的自动登录信息如下:"+nl+nl+str & "一定要修改自动登录信息吗?",36,"Aboutnt.com[中文NT资源网]")=6 then
rw reg & "AutoAdminLogon",auto
rw reg & "DefaultdomainName",domain
rw reg & "DefaultuserName",user
rw reg & "DefaultPassword",password
msgbox "设置完毕!详细信息如下:"+nl+nl+str
end if
end sub

Sub Rw(k, v)
Dim R
On Error Resume Next
Set R = CreateObject("WScript.Shell")
R.RegWrite k, v
End Sub

Function Rg(v)
Dim R
On Error Resume Next
Set R = CreateObject("WScript.Shell")
Rg = R.RegRead(v)
End Function