2020-02-16 标签:vbs,脚本,bat,批处理,删除,自身,方法,自杀,下面,保存为,selfkill,vbe,实现,代码,如下,set,fso,scripting

VBS脚本和BAT批处理自身删除的方法（自杀） 删除自身之：VBS 把下面的脚本保存为selfkill.vbs或selfkill.vbe： 实现代码如下： Set fso = CreateObject("Scripting.FileSystemObject") f = fso.DeleteFile(

2020-02-16 标签:vbs,字符串,内部,实现,最近,chr,截断,讨论,比较,看来,有必要,介绍,demon,友情,提示,本文,需要,c

最近对 VBS 字符串 Chr(0) 注①截断讨论得比较多，看来有必要介绍一下 VBS 字符串的内部实现。Demon 友情提示：本文需要一些 C 语言和 Windows 编程的知识，VBScript 初学者慎入。 VBS 是基于微软的 ActiveX/COM 技术实现的，而 COM 对象为了做到支持

2020-02-16 标签:vbs,正则,表达式,对象,multiline,属性,regular,expressions,简介,一章,向后,引用,一节,实现,代码,如下,使用,上面

在 Introduction to Regular Expressions（正则表达式简介） 一章中的 Backreferences（向后引用）一节：实现代码如下： '使用上面所示的正则表达式，下面的 JScript 代码可以使用子匹配信息，在一个文字字符串中将连续出现两次的相同单词替换为一个相同的

2020-02-16 标签:vbs,创建,正则,表达式,对象,两种,方法,一直以来,new,regexp,set,regex,然而,最新,发现,也可以,vbscript,貌似,我看

一直以来，我都是用 New RegExp 来创建正则表达式对象的： Set regex = New RegExp然而最新才发现 VBS 的正则表达式对象也可以这样创建： Set regex = CreateObject("VBScript.RegExp")貌似我看过的 VBScript 书籍没有一本

2020-02-16 标签:vbscript,实现,压缩,目录,文件,zip,代码,如下,error,resume,next,dim,objfso,sourcepath,targetpath,targetfile,function,path,file

实现代码如下：On Error Resume Next Dim objFSO,sourcepath,targetpath,targetfile Function GetSourceFile(path) Dim file,folder,sfolder,subfolder,files If Not ob

2020-02-16 标签:vbscript,实现,解压缩,目录,文件,zip,代码,如下,error,resume,next,dim,objfso,sourcepath,targetpath,function,getzipfile,path,file,folder

实现代码如下： On Error Resume Next Dim objFSO,sourcepath,targetpath Function GetZipFile(path) Dim file,folder,sfolder,subfolder,files If Not objFSO.FolderEx

2020-02-16 标签:vbscript,压缩,单个,文件,zip,格式,实现,代码,如下,error,resume,next,dim,fso,fp,oapp,targetfile,set,scripting

实现代码如下： On Error Resume Next Dim fso,fp,oApp,targetfile Set fso=CreateObject("Scripting.FileSystemObject") targetfile="D:\tmp.zip" Set fp=fso.OpenText

2020-02-16 标签:iis,ftp,pasv,模式,更改,端口,范围,方法,指定,属性,验证,有效,5001,65535,限制,这片,超大,管理,实用

如果指定了该属性，则 FTP 将验证的有效范围从 5001 到 65535。 要限制这片超大端口的范围,可以用IIS管理实用程序Adsutil.vbs. cd c:\Inetpub\AdminScripts adsutil.vbs set /MSFTPSVC/PassivePortRange "89

2020-02-16 标签:asp,运行,出错,缺少,对象,xmldoc,错误,解决方法,原本,正常的,页面,今天,突然,提示,实现,代码,如下,microsoft,vbscript

原本运行正常的ASP页面，今天突然提示： 实现代码如下： Microsoft VBScript 运行时错误 错误 '800a01a8' 缺少对象: 'xmlDoc.documentElement' /work/Menu.asp，行 80找到相关代码如下： 实现代码如下： Set xmlDoc=Ser