复制下面的代码另存为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'")