惯性聚合 高效追踪和阅读你感兴趣的博客、新闻、科技资讯
阅读原文 在惯性聚合中打开

推荐订阅源

Apple Machine Learning Research
Apple Machine Learning Research
博客园 - 三生石上(FineUI控件)
雷峰网
雷峰网
WordPress大学
WordPress大学
S
SegmentFault 最新的问题
博客园 - 叶小钗
The Cloudflare Blog
T
Tailwind CSS Blog
Hugging Face - Blog
Hugging Face - Blog
让小产品的独立变现更简单 - ezindie.com
让小产品的独立变现更简单 - ezindie.com
freeCodeCamp Programming Tutorials: Python, JavaScript, Git & More
月光博客
月光博客
小众软件
小众软件
罗磊的独立博客
酷 壳 – CoolShell
酷 壳 – CoolShell
大猫的无限游戏
大猫的无限游戏
阮一峰的网络日志
阮一峰的网络日志
V
V2EX
美团技术团队
钛媒体:引领未来商业与生活新知
钛媒体:引领未来商业与生活新知
博客园 - 聂微东
量子位
OSCHINA 社区最新新闻
OSCHINA 社区最新新闻
宝玉的分享
宝玉的分享

博客园 - 尼斯湖李

traceback 6个Google Wave邀请,有要的快来!! 好用js城市联动下拉框 好久不来园子了 好想念大家 危机意识[reproduce] 人月神话:微软开发模式和原则[转] 博客园 Gmail邀请大放送 一些常用的javascript函数(方法) 到底什么是Upnp?[转载] Windows XP 网络共享问题--开启高级共享 免费电话时代已经到来,而且话音超清晰,比globe7强多了。 IBM系列笔记本删除Access IBM隐藏分区 让XP和2003自动登录 之 注册表篇 让XP和2003自动登录 心灵箴言,领悟后豁然开朗[转载] 爱迪生欺骗了世界![转载] vbs脚本(管理本地用户和组) 搜罗的几个APE的音乐网站 WiMAX vs 3G颠覆还是补充?[转载]
让XP和2003自动登录 之 vbs脚本篇
尼斯湖李 · 2006-03-10 · via 博客园 - 尼斯湖李

   

刚才了解到可以通过修改注册表达到 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