使用腳本重命名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，如需轉載請自行聯系原作者