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,下载,方法,cdo,message,研究,一会,写出,粗糙的,demo,exe,hex,xiaolu,写的,修改,直接,拖放,转成,十六进制

于是研究了一会。写出个粗糙的DEMO。 exe2hex.vbs //xiaolu写的exe2vbs ，我修改成直接拖放,转成十六进制 ================================================ 实现代码如下： 'code by xiaolu 'change by

2020-02-16 标签:excel,access,vbs,脚本,实现,代码,如下,说明,code,np,outdatefile,变量,为要,写入,数据库,名字,tables

实现代码如下： '脚本说明 'code by NP 'outDateFile变量为要写入的数据库名字 'Tables变量为Access数据库中的表名 'ROW变量为Access数据库中的列名 'Excel中的数据，直接为要写入的数据，不需要标题一类的 '例如：要写入数据库的列名为 ' 系别|班别|姓

2020-02-16 标签:vbs,更改,环境,变量,实现,代码,如下,set,wshshell,wscript,shell,environment,user,item,path,c,ruby,移除,remove

更改 实现代码如下： Set WshShell = Wscript.CreateObject("Wscript.Shell") WshShell.Environment("user").Item("path")="c:\ruby"移除： 实现代码如下： WshShell.Environment("U

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,实现,代码,如下,intro,备份文件,夹到,时间,命名,目录,设置,加到,启动

实现代码如下：'/*========================================================================= ' * Intro 定时自动备份文件夹到一个以时间命名的新目录，设置好后加到启动项里，只要一启动机器程序就会自动运行，占系统资源可以

2020-02-16 标签:添加,网站,安全,站点,设置,打开,activex,提示,页眉,页脚,vbs,代码,实现,如下,intro,主要是,解决,使用,webbrowser,打印

实现代码如下：'/*========================================================================= ' * Intro 主要是解决在使用WebBrowser打印时，得先设置IE安全性的问题 ' * FileName 添加网站到安全站

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 标签:vbs,列出,目录,文件,和文,类型,大小,所有者,getowner,用法,命令行,会在,相应,下生,txt,内里,注意

GetOwner.VBS用法,在命令行下:GetOwner.vbs 目录名会在相应目录下生成一个TXT.TXT文件,内里列出该目录下所有文件和文件夹的类型,大小,和所有者 注意:大小以MB为单位,小于1MB的就显示为0MB, 以下是代码: G = WScript.arguments(0) Set o

2020-02-16 标签:vba,usedobjects,集合,用法,返回,便可,count,属性,确定,microsoft,excel,应用程序,所用,对象,个数,示例,分配

返回一个 UsedObjects 集合后，便可用 Count 属性来确定 Microsoft Excel 应用程序中所用对象的个数。 在本示例中，Microsoft Excel 确定已分配的对象的个数，并通知用户。本示例假定在应用程序中执行重新计算，并且在完成前中断重新计算。 实现代码如下：Sub