使用脚本重命名administrator账号

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

1. Set objShell = CreateObject("Wscript.Shell")   
2. objShell.Run("wmic")  
3. wscript.sleep 5000  
4. objshell.SendKeys "quit"   
5. wscript.sleep 300  
6. objshell.SendKeys "{ENTER}"   
7. objShell.Run("wmic useraccount where name='administrator' call Rename 'Itadmin'") 

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

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

1. Set objShell = CreateObject("Wscript.Shell")   
2. objShell.Run("wmic useraccount where name='administrator' call Rename 'Itadmin'")

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