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

推荐订阅源

博客园 - Franky
奇客Solidot–传递最新科技情报
奇客Solidot–传递最新科技情报
美团技术团队
The Cloudflare Blog
量子位
酷 壳 – CoolShell
酷 壳 – CoolShell
博客园_首页
F
Fortinet All Blogs
J
Java Code Geeks
人人都是产品经理
人人都是产品经理
N
Netflix TechBlog - Medium
Cyber Security Advisories - MS-ISAC
Cyber Security Advisories - MS-ISAC
爱范儿
爱范儿
Apple Machine Learning Research
Apple Machine Learning Research
B
Blog RSS Feed
博客园 - 聂微东
Hugging Face - Blog
Hugging Face - Blog
WordPress大学
WordPress大学
小众软件
小众软件
Y
Y Combinator Blog
OSCHINA 社区最新新闻
OSCHINA 社区最新新闻
Vercel News
Vercel News
S
SegmentFault 最新的问题
有赞技术团队
有赞技术团队

博客园 - 尼斯湖李

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