家园
个人
文集
http://
www
.
5x54
.
com
用VBS脚本删除Administrators除Administrator以外的用户
作者：
网上收集
点击：
读取中...
次
引用代码：
strComputer = "."
版权保护
版权保护，请不要随意复制^%#$32342)98sa。^_^
，请不要随意复制^%#$32342)98sa。^_^
Set colGroups = GetObject("WinNT://" & strComputer & "/Administrators")
版权保护
版权保护，请不要随意复制^%#$32342)98sa。^_^
，请不要随意复制^%#$32342)98sa。^_^
Set WshShell = WScript.CreateObject("WScript.Shell")
版权保护
版权保护，请不要随意复制^%#$32342)98sa。^_^
，请不要随意复制^%#$32342)98sa。^_^
For Each objUser In colGroups.Members
版权保护
版权保护，请不要随意复制^%#$32342)98sa。^_^
，请不要随意复制^%#$32342)98sa。^_^
IF objUser.Name<>"Administrator" Then
版权保护
版权保护，请不要随意复制^%#$32342)98sa。^_^
，请不要随意复制^%#$32342)98sa。^_^
WshShell.Run "net user " & objUser.Name & " /delete"
版权保护
版权保护，请不要随意复制^%#$32342)98sa。^_^
，请不要随意复制^%#$32342)98sa。^_^
Wscript.Echo "已删除用户" & objUser.Name
版权保护
版权保护，请不要随意复制^%#$32342)98sa。^_^
，请不要随意复制^%#$32342)98sa。^_^
END IF
版权保护
版权保护，请不要随意复制^%#$32342)98sa。^_^
，请不要随意复制^%#$32342)98sa。^_^
Next
版权保护
版权保护，请不要随意复制^%#$32342)98sa。^_^
，请不要随意复制^%#$32342)98sa。^_^
把上面的代码粘贴到记事本
版权保护，请不要随意复制^%#$32342)98sa。^_^
，保存为DELUser.VBS
版权保护，请不要随意复制^%#$32342)98sa。^_^
，双击运行
收藏此文章
打印
更新
编辑此文章
『关闭窗口』
