使用脚本重命名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命令：

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