使用脚本重命名administrator账号

复制下面的代码另存为chg-admin-acc.vbs，通过组策略下发即可实现全域统一修改管理员账号及密码。

Set objShell = CreateObject("Wscript.Shell")   

objShell.Run("wmic")  

wscript.sleep 5000  

objshell.SendKeys "quit"   

wscript.sleep 300  

objshell.SendKeys "{ENTER}"   

objShell.Run("wmic useraccount where name='administrator' call Rename 'Itadmin'") 

首次使用wmic需要安装，所以下面暂停了5000毫秒就是为了等待wmic安装完毕，然后调用sendkey来退出wmic控制界面，最后再使用wimc重命名管理员。

建议在封装系统时将wmic运行一次，以后就不必写那么长的代码了，代码则简化为2行，其实就是一个cmd命令：

objShell.Run("wmic useraccount where name='administrator' call Rename 'Itadmin'")

本文转自yangye1985 51CTO博客，原文链接：http://blog.51cto.com/yangye/552643，如需转载请自行联系原作者