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

推荐订阅源

H
Help Net Security
博客园 - Franky
GbyAI
GbyAI
Threat Intelligence Blog | Flashpoint
Threat Intelligence Blog | Flashpoint
爱范儿
爱范儿
IT之家
IT之家
酷 壳 – CoolShell
酷 壳 – CoolShell
aimingoo的专栏
aimingoo的专栏
博客园_首页
MongoDB | Blog
MongoDB | Blog
CTFtime.org: upcoming CTF events
CTFtime.org: upcoming CTF events
Recent Announcements
Recent Announcements
Scott Helme
Scott Helme
有赞技术团队
有赞技术团队
M
MIT News - Artificial intelligence
C
CERT Recently Published Vulnerability Notes
K
KPMG report finds enterprise disconnect between AI and its ROI | CIO
Jina AI
Jina AI
F
Fortinet All Blogs
N
Netflix TechBlog - Medium
L
LangChain Blog
L
LINUX DO - 最新话题
OSCHINA 社区最新新闻
OSCHINA 社区最新新闻
cs.AI updates on arXiv.org
cs.AI updates on arXiv.org
H
Hacker News: Front Page
MyScale Blog
MyScale Blog
P
Palo Alto Networks Blog
G
Google Developers Blog
Google DeepMind News
Google DeepMind News
AI
AI
T
Troy Hunt's Blog
Microsoft Azure Blog
Microsoft Azure Blog
阮一峰的网络日志
阮一峰的网络日志
cs.CL updates on arXiv.org
cs.CL updates on arXiv.org
Vercel News
Vercel News
Microsoft Security Blog
Microsoft Security Blog
罗磊的独立博客
S
Secure Thoughts
大猫的无限游戏
大猫的无限游戏
博客园 - 叶小钗
人人都是产品经理
人人都是产品经理
Blog — PlanetScale
Blog — PlanetScale
博客园 - 司徒正美
Apple Machine Learning Research
Apple Machine Learning Research
钛媒体:引领未来商业与生活新知
钛媒体:引领未来商业与生活新知
博客园 - 三生石上(FineUI控件)
S
Security @ Cisco Blogs
Cloudbric
Cloudbric
E
Exploit-DB.com RSS Feed
Attack and Defense Labs
Attack and Defense Labs

博客园 - 尼斯湖李

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