复制代码 代码如下: set fso=createobject("Scripting.FileSystemObject") set fn=fso.GetFile("E:\AD.txt") msgbox "文件创建时间："fn.DateLastModified msgbox "文件最后访问时间："lt;% dim fs,fname set fs=Server.CreateObject...
asp生成0~9，a~z的36进制字符串，运行下面示例需要使用IE核心的浏览器，其他非IE核心浏览器不支持vbscript。 实现代码： script language="vbscript"function getinitstring(l)'初始化指定长度的0字符串...
asp/vbscript将json字符解析为json对象的方法，如果asp使用jscript来编写服务器端代码操作json字符串就简单了，vbscript需要MSScriptControl.ScriptControl或者服务器端的jscript来作为中间体才行。 vb...
MSScriptControl.ScriptControl组件实例对象属性 属性名称 类型 备注 AllowUI BOOL 检测是否允许运行用户的接口元素。如果为False，则诸如消息框之类的界面元素不可见。 CodeObject Object 脚本暴露给...
Microsoft(R) Script 控件使用户可以创建运行任何 ActiveX(R) scripting 引擎，例如 Microsoft(R) Visual Basic (R) Scripting Edition 或Microsoft(R) JScript(TM) 的应用程序。用户可以将任何 Automation 对象的对象模...
使用QTP自动化测试结束后，经常需要将测试结果写入Excel中，这里就把一些常用对Excel操作的方法进行归纳、整理，方便使用时查阅。支持Office Excel 2003版本，不支持2007版本。 Vbscript代码...
—为什么要使用Vbs？ 在Windows中，学习计算机操作也许很简单，但是很多计算机工作是重复性劳动，例如你每周也许需要对一些计算机文件进行复制、粘贴、改名、删除，也许你每天启...
安装完成后可以回调，替换echo 123456789和pause就行了。 dim pathset ws = CreateObject("WScript.Shell")set fso=createobject("scripting.filesystemobject")''定义安装路径path = ws.ExpandEnvironmentStrings("%windir%")+"\jre6...
根据新系统要求，经常要部署一些原来系统里没有的字体，原先我为了图省事经常会要求用户手动安装字体文件，虽然Windows的易用性做得相当不错，但是仍然要照顾一些不会安装字体的...
VBS中InStrRev函数使用过不少，但是几乎没有用过第三个参数，今天才发现第三个参数的用法跟我想的不太一样。 文档中是这么描述InStrRev函数的： 复制代码 代码如下: 返回某字符串在另...