睿派克技术论坛

 
查看: 444|回复: 10
收起左侧

小工具大作用之《不到1K的管理员密码修改工具》

[复制链接]
     
发表于 2020-1-14 10:47 | 来自 | 显示全部楼层 |阅读模式
dim password
set shell=createobject("wscript.shell")
password=inputbox("强兵科技提示:" &vbcrlf&""&vbcrlf&"请输入一个6位数密码","管理员密码修改","")
if password=false then
msgbox "管理员密码未修改,请尽快设置"
else
if password="" then
password="密码为空"
shell.run "net user administrator " & """",0
else
shell.run "net user administrator " & password,0
end if
msgbox "管理员密码修改成功" & vbCrLf & "" & vbCrLf & password,vbInformation,"恭喜!密码修改成功!"
end if


复制保存为VBS,运行即可



睿派克技术论坛 - 论坛版权重要提醒:如果你需要回复隐藏贴获取资源,请使用回复框上方的快捷回复,灌水将严惩!
特别注意:任何将论坛原创软件,原创修改软件进行”二次加工“的行为,本论坛将追究其责任
特别提醒:下载安装前请核对MD5值和文件大小,请勿从其他论坛网站下载本论坛的软件!
1、本主题所有言论和图片纯属会员个人意见,与本论坛立场无关
2、本站所有主题由该帖子作者发表,该帖子作者与睿派克技术论坛享有帖子相关版权
3、其他单位或个人使用、转载或引用本文时必须同时征得该帖子作者Edison_zhu睿派克技术论坛的同意
4、帖子作者须承担一切因本文发表而直接或间接导致的民事或刑事法律责任
5、本帖部分内容转载自其它媒体,但并不代表本站赞同其观点和对其真实性负责
6、如本帖侵犯到任何版权问题,请立即告知本站,本站将及时予与删除并致以最深的歉意
7、睿派克技术论坛管理员和版主有权不事先通知发贴者而删除本文

     
发表于 2020-1-14 11:46 | 来自 | 显示全部楼层
学习了学习了学习了学习了

回复

使用道具 举报

     
发表于 2020-1-14 12:13 | 来自 | 显示全部楼层
不错,又占了一个沙发!

回复

使用道具 举报

     
发表于 2020-1-15 05:18 | 来自 | 显示全部楼层
看了LZ的帖子,我只想说一句很好很强大!

回复

使用道具 举报

     
发表于 2020-1-15 08:52 | 来自 | 显示全部楼层
不管你信不信,反正我是信了。

回复

使用道具 举报

     
发表于 2020-1-15 09:31 | 来自 | 显示全部楼层
试了一下,在win10系统下第三行出错!不知道是不是我弄的不对?

点评

我也是WIN10系统 LTSC  详情 回复 发表于 2020-1-15 09:43
回复

使用道具 举报

     
 楼主| 发表于 2020-1-15 09:43 | 来自 | 显示全部楼层
小酒窝 发表于 2020-1-15 09:31
试了一下,在win10系统下第三行出错!不知道是不是我弄的不对?

我也是WIN10系统 LTSC

回复

使用道具 举报

     
发表于 2020-1-16 17:19 | 来自 | 显示全部楼层
第三行报错

回复

使用道具 举报

发表于 2020-1-20 10:20 | 来自 | 显示全部楼层
简单适用,给你点赞。

回复

使用道具 举报

发表于 2020-1-23 15:10 | 来自 | 显示全部楼层
牛逼牛逼,学习了

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则