案例分析
除了IT肯定还有行政的吗
那IT肯定跟行政玩的好打好关系才可以顺风顺水啊！
那行政肯定有些东西打开需要权限的啊！
例如IT 帮别人解锁账号的工具。。。
自己忙嘛，，小事情肯定你懂的哈哈哈 偷个懒
不废话 上代码！顺便代码解析
其实就是通过send key的方式
Dim wshShell
Set wshShell = CreateObject("Wscript.Shell")
Set vbs=CreateObject("Wscript.Shell")
Set objShell = CreateObject("Wscript.Shell")
vbs.Run "cmd"
wscript.sleep 1000
vbs.SendKeys "C:\Windows\System32\runas.exe /user:sharedservices\u287154 /savecred C:\Windows\System32\cmd.exe{enter}"
wscript.sleep 2000
vbs.SendKeys "dsa.msc"
wscript.sleep 1500
wshShell.SendKeys "{ENTER}"
wscript.sleep 2500
objShell.Run("%comspec% /k TASKKILL /F /IM cmd.exe")
这段代码不能直接食用，需要前奏。
第一步 你打开cmd 输入
C:\Windows\System32\runas.exe /user:域名\域管理员账号 /savecred C:\Windows\System32\cmd.exe
然后输入密码保存打开cmd之后就可以 退出了
第二次run as就不需要输入账号密码可以直接运行了
然后输入程序名 dsa.msc
最后把开出来的CMD窗口删除掉。
此代码缺点：
密码明文，不过可以通过第三方管道传输密码，目前可以不用第三方就不第三方
开的时候不能乱动
优点：
偷懒
目前懂得技术不太多，
设想如下：
通过C,或者C++,JAVA,PY
构建起一个Agent端跟Server
用户只要通过我开发的小工具把被锁的ID 发过来
然后我Server段接收到了ID ，自动化操作解锁掉。
目前水。。没做出来，需后续学习高深代码解决。。。 很羡慕开发很厉害，会基础架构，会英文，会网络的 IT工程师。。。
附看到的一个运维工具的网站。。。 感觉很好。。
https://www.manageengine.cn/active-directory-360/