用VBS脚本删除Administrators除Administrator以外的用户

strComputer  =   " . "  
Set  colGroups  =   GetObject ( " WinNT:// "   &  strComputer  &   " /Administrators " ) 
Set  WshShell  =  WScript.CreateObject( " WScript.Shell " )
For   Each  objUser In colGroups.Members  
     IF  objUser.Name <> " Administrator "   Then
        WshShell.Run  " net user  "   &  objUser.Name  &   "  /delete "
        Wscript.Echo  " 已删除用户 "   &  objUser.Name
     END   IF
Next  

 把上面的代码粘贴到记事本，保存为DEL.VBS，双击运行