开机自动设置新密码VBS脚本
本脚本由愚工编写，为方便windows密码保护的用户使用，将本脚本复制到
WINDOWS\system32\GroupPolicy\Machine\Scripts\Startup”目录下，并“C:\
在组策略中的计算机配置-windows设置-脚本中启动本程序，本程序将在每次开机时根据您设定的规律修改用户密码。起到每日都自动修改密码的作用。即使你在系统中重新设置了密码，在重启系统时，也会自动设置新的密码。 On Error Resume Next
Dim WSH
Set WSH=WSCRIPT.CreateObject("Wscript.Shell")
yy=Year(Now())
mm=right("0"&Month(Now()),2) dd=right("0"&Day(Now()),2)
ww=Right("0"&Weekday(Now()),2) tt=Time()
rr=int(Rnd(10)*10000000000) ttt=Left(tt,2)&"点"&Left(Right(tt,5),2)&"分"
week=chnweek(ww)
下面一行的psw值是自己定义的密码组合方式，本例中的组合是“用户名.年月
。 日周”
psw="."&yy&mm&dd&ww
msg="????????????????????"&chr(10)&chr(13)&"??
欢迎使用愚工计算机口令保护系统
??"&chr(10)&chr(13)&"????????????????????"&Chr(
10)&Chr(13)&Chr(13)&" 今天是公历:"&yy&"年"&mm&"月"&dd&"日 "&week&chr(10)&chr(13)&Chr(13)&" 现在时间是:
"&ttt&Chr(10)&Chr(13)&Chr(13)&" 密码生成序列号:"&rr MsgBox msg
strComputer = "."
下面的用户名换成自己使用的用户名。
username="用户名"
psw=username&psw
'MsgBox psw
'修改本地用户密码
Set objUser = GetObject("WinNT://" & strComputer & "/"&us使用， ername)
objUser.SetPassword(psw)
' *************************************************
Function chnweek(wek)
Select Case wek
Case 1 chnweek="星期日"
Case 2 chnweek="星期一"
Case 3 chnweek="星期二"
Case 4 chnweek="星期三"
Case 5 chnweek="星期四"
Case 6 chnweek="星期五"
Case 7 chnweek="星期六"
End Select End Function
本文档为【开机自动设置新密码VBS脚本】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。
该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。
[版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
浙公网安备 33021202002483