--??修改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

轉載于:https://www.cnblogs.com/todd/archive/2005/02/16/104741.html

總結

以上是生活随笔為你收集整理的修改2k自动登陆的脚本的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。