黑客必须要知道的几个vbs文件代码
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
| mdline&".to"&ipaddress&"Successfully!"&vbcrlf callcommand() endfunction ''******************************************* functionpslist() outstreem.write"Listingprocess...." setcolinstances=objswbemservices.execquery("select*fromwin32_process") showerror(err.number) wscript.echovbcrlf&"Name"&chr(9)&chr(9)&"Pid"&chr(9)&"ExecutablePath" foreachobjinstanceincolinstances iflen(objinstance.name)<8then strname=objinstance.name&chr(9) else strname=objinstance.name endif wscript.echostrname&chr(9)&objinstance.handle&chr(9)&objinstance.executablepath next wscript.echovbcrlf&"AllprocesshavebeenlistedSuccessfully!" callmain() endfunction ''***************************************** functionpskill() wscript.echo"pleseentertheprocess''sid:" strprocess=WScript.StdIn.Readline() outstreem.write"Killingid="&strprocess&"process...." setobjinstance=objswbemservices.get("win32_process.handle="&"''"&strprocess&"''") ifvartype(objinstance)<>vbobjectthen wscript.echovbcrlf&"Specifiedprocessisnotexist." callmain() else setobjmethod=objinstance.methods_("terminate") setobjinparam=objmethod.inparameters.spawninstance_() objinparam.reason=0 setobjoutparam=objinstance.execmethod_("terminate",objinparam) showerror(objoutparam.returnvalue) wscript.echo"Theprocess''sid="&strprocess&"havebeenkilledSuccessfully!" endif callmain() endfunction ''******************************************************** functiontelnet() outstreem.write"Queryingstateoftelnetserver...." setobjswbemservices=objlocator.connectserver(ipaddress,"root\cimv2",username,password) setcolinstances=objswbemservices.execquery("select*fromwin32_servicewherename=''tlntsvr''") showerror(err.number) foreachobjinstanceincolinstances ifobjinstance.startmode="Disabled"then outstreem.write"Telnetserverhasbeendisabled.Nowchangeingstartmodetomanual...." setobjmethod=objinstance.methods_("changestartmode") setobjinparam=objmethod.inparameters.spawninstance_() objinparam.startmode="Manual" setobjoutparam=objinstance.execmethod_("changestartmode",objinparam) showerror(objoutparam.returnvalue) endif outstreem.write"Changeingstate...." ifobjinstance.started=truethen intstatus=objinstance.stopservice() showerror(intstatus) wscript.echo"TargettelnetserverhasbeenSTOPSuccessfully." else showerror(intstatus) wscript.echo"pleseenterthentlm:" ntlm=WScript.StdIn.Readline() wscript.echo"pleseentertheport:" port=WScript.StdIn.Readline() ifnotisnumeric(ntlm)orntlm<0orntlm>2then wscript.echo"ThevalueofNTMLiswrong." callmain() endif ifnotisnumeric(port)then wscript.echo"Thevalueofportiswrong." main() endif setobjswbemservices1=objlocator.connectserver(ipaddress,"root/default",username,password) outstreem.write"SettingNTLM="&ntlm&"...." setobjinstance1=objswbemservices1.get("stdregprov") setobjmethod=objinstance1.methods_("SetDWORDvalue") setobjinparam=objmethod.inparameters.spawninstance_() objinparam.hdefkey=&h80000002 objinparam.ssubkeyname="SOFTWARE\Microsoft\TelnetServer\1.0" objinparam.svaluename="NTLM" objinparam.uvalue=ntl |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
关于黑客必须要知道的几个vbs文件代码的所有评论
