2020-02-16 标签:vbscript,读取,xml,格式,配置文件,实现,代码,如下,class,private,rootdoc,not,null

实现代码如下：Class clsGetProfile ' ルートドキュメント Private rootDoc ' xmlファイル名とセクション名をセットする ' 引数：　「1」ファイル名 NOT NULL ' 戻り値：なし Public Sub setProfile(strFileName) Set

2020-02-16 标签:vbscript,include,办法,实现,代码,任何,真正,实用,工程,开发,必然,文件,创建,麻烦,它对,用的,支持,并不是,太好

任何真正实用的工程开发都必然是多文件的。但是VBScript创建多文件工程要麻烦一点，它对多文件工程，代码复用的支持并不是太好。在C/C++工程里，我们已经习惯了通过一个include语句，并且声明一个函数原形的方式来使用其它模块中的函数，这样一个复杂的工程可以比较容易地分解成一些小的模块，以更容易

2020-02-16 标签:vbscript,error,resume,n,ext,容错,使用,心得,错误处理,完成,如果在,代码,里加,这一句,在这,其他,出现,错误,系统

vbscript中，错误处理使用on error resume next来完成，如果在你的代码里加入这一句，在这句之后的其他代码如果出现错误，系统将忽略这些错误继续运行后面的代码，同时，我们可以使用下面的代码来捕获错误实现代码如下：If err.number<>0 then errNum

2020-02-16 标签:cmd,vbs,修改,ip,地址,dns,实现,代码,c,n,etsh,interface,set,address,ame,本地,连接,source,static

修改ＩＰ cmd /c netsh interface ip set address name=" 本地连接" source=static addr=211.82.56.253 mask=255.255.255.0 gateway=211.82.56.1 gwmetric=1 修改DNS cmd /

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

2020-02-16 标签:vbscript,loadpicture,函数,使用方法,漏洞,利用,实现,代码,如下,title,form,n,ame,frm,选择,图片,input,type,file,pic

实现代码如下： LoadPicture函数 选择图片 Sub GetPicInfor() dim objpic,iWidth,iHeight dim pictype,picpath picpath=document.frm.pic.value set objpic=Loadpicture(pi

2020-02-16 标签:vbscript,作用,简单说,有事没事,vbs,采集,别人,网站,上的,部分,全部,数据,进行,分析,写入,数据库,文本文件,有时

有事没事用VBS采集别人网站上的部分或全部数据进行分析，然后写入数据库或存到文本文件里，有时还会用VBScript做一些移动光标及输入的操作，比如批量添加远程桌面，有时还会用VBScript还管理Windows服务器，如设置IIS，还有做一些定时提醒工具，多久执行一次，然后用声音控件提醒，很好用。。

2020-02-16 标签:xorencode,vbs,实现,代码,如下,not,wscript,arguments,count,echo,请将,转换,文件,到我,身上,quit,set

实现代码如下：If Not WScript.Arguments.Count=1 Then WScript.Echo "请将要转换的vbs文件托拽到我身上！":WScript.Quit Set fso=CreateObject("Scripting.FileSystemObject") Set sel

2020-02-16 标签:利用,计划任务,vbs,脚本,实现,自动,web,共享,文件夹,里的,文件,代码,如下,option,explicit,error,resume,next,生成,列表

实现代码如下：Option Explicit On Error Resume Next '生成列表的文件类型 Const sListFileType = "wmv,rm,wma" '文件所在的相对路径 Const sShowPath="." '排序类型的常量定义 Const iOrderFieldF

2020-02-16 标签:查询,系统,用户名,sid,vbs,实现,代码,如下,set,path,wscript,shell,usera,username,n,ame,inputbox

实现代码如下：set path=wscript.createobject("wscript.shell") usera=path.ExpandEnvironmentStrings("%username%") name=inputbox("请输入你要查询的用户名","sid查询--by不追不悔",us