[转载]列举Administrators组帐号

来源：冰点

作者：蓝屏


admin.asp:
<%@codepage=936%><%Response.Expires=0
on error resume next　　　&#39;查找Administrators组帐号
Set tN=server.CreateObject("Wscript.Network")
Set objGroup=GetObject("WinNT://"&tN.ComputerName&"/Administrators,group")
For Each admin in objGroup.Members
Response.write admin.Name&"<br>"
Next
if err then
Response.write "哭吧:Wscript.Network"
end if
%>