当前位置:DOS资源站资料中心VBS脚本 → 用VBS脚本删除Administrators除Administrator以外的用户

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

减小字体 增大字体 作者:佚名  来源:本站整理  发布时间:2008-4-8 21:43:39

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,双击运行