让XP和2003自动登录 之 vbs脚本篇

    刚才了解到可以通过修改注册表达到 XP和2003自动登录的目的，对于自己的机器当然没有问题，但对于AD管理下的客户端这种方法却不太现实，所以根据需要编写了如下vbs脚本，通过脚本来实现注册表的自动修改，以方便网络管理之用。
现将脚本分享，至于您如何利用它，那就看您发挥了。

'该脚本需要参数 ，格式依次是： 域名 用户名 密码 ，密码若为空可以不输
Set  WSHShell=WScript.CreateObject("WScript.Shell")  

Dim strDomainName 
Dim strUserName
Dim strPassword

'判断参数数量,不足两个不处理
if Wscript.Arguments.Count<2 then
Wscript.Quit()
End if

'接收参数
strDomainName=Wscript.Arguments(0)
strUserName=Wscript.Arguments(1)

'若第三个参数不提供，则密码默认为空
if Wscript.Arguments.Count = 2 then
strPassword=""
else
strPassword=Wscript.Arguments(2)
End if

'定义与操作注册表相关的参数
RegPath="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\" 
DataType="REG_SZ" 

'定义一个在注册表中添加各项参数的功能函数
Function ValueAdd(KeyName,KeyData)
WSHShell.RegWrite  RegPath&KeyName,KeyData,DataType 
End Function 

Call ValueAdd("AutoAdminLogon","1")
Call ValueAdd("AltDefaultDomainName",strDomainName )
Call ValueAdd("DefaultDomainName",strDomainName )
Call ValueAdd("AltDefaultUserName",strUserName )
Call ValueAdd("DefaultUserName",strUserName)
Call ValueAdd("DefaultPassword",strPassword)

Wscript.Quit()  

  您要是比我还懒，那就直接下载吧AutoLogon.rar