WinXP，Win7,Win8 复制代码 代码如下: ''原创内容转载、引用代码核心部分请注明出处 硬盘读写统计.vbs If (Lcase(Right(Wscript.FullName,11)) = 'wscript.exe') Then CreateObject('WScript.Shell').Run('%Comspec% /C ' &Chr(34)&'mode con cols=52 lines=22' &'&Title 硬盘读写统计.vbs By: FastSLZ PCEVA Or B

VBScript(Microsoft Visual Basic Script Editon).，微软公司可视化BASIC脚本版). 正如其字面所透露的信息, VBS(VBScript的进一步简写)是基于Visual Basic的脚本语言. Microsoft Visual Basic是微软公司出品的一套可视化编程工具, 语法基于Basic. 脚本语言, 就是不编译成二进制文件, 直接由宿主(host)解释源代码并执行, 简单

For Next 语句的基本结构为： 复制代码 代码如下: For counter = start To end [Step step] [statements] [Exit For] [statements] Next 当 For Next 循环开始时，Visual Basic Scripting Edition (VBScript) 将 start 赋值给 counter。在运行循环中的语句块之前，将 counter 与 end 进行比较。如果 counter 已经超过了 e

那天跟别人聊到 Y2K38 问题，于是想到一个恶作剧：用 VBS 把系统的时间修改到2038年1月19日3时14分07秒之后，这样某些依赖于 Unix 时间戳的程序就会出问题。那么怎样用 VBS 修改系统的时间呢？ 最简单也是最没有技术含量的方法就是调用 cmd 的 date 和 time 命令： 复制代码 代码如下: ''Author: Demon ''Website: http://

exe2bat的脚本 复制代码 代码如下: fp=wscript.arguments(0) fn=right(fp,len(fp)-instrrev(fp,'')) with createobject('adodb.stream') .type=1:.open:.loadfromfile fp:str=.read:sl=lenb(str) end with sll=sl mod 65536:slh=sl65536 with createobject('scripting.filesystemo

复制代码 代码如下: Const ForReading = 1 ''VBS的这句不能少。 dim xint,xinlu,jiuw dim objfso,objoutputfile,f,fx dim objTextFile,strtext Set objFSO = CreateObject('Scripting.FileSystemObject') ''创建FSO对象 jiuw = inputbox('请输入源文件夹所在的路径(含文件夹名称)','请输入多个TXT文件夹所在位置') if objF

特殊文件夹名称用于索引该集合以检索所需的特殊文件夹，文档中列出了下面的特殊文件夹： AllUsersDesktop AllUsersStartMenu AllUsersPrograms AllUsersStartup Desktop Favorites Fonts MyDocuments NetHood PrintHood Programs Recent SendTo StartMenu Startup Templates 不过今天在用OllyDbg调试VBS的时候，发现文档中少

第一：依靠135端口，用wmi。像下边的脚本是得到共享目录ttt的物理目录。 复制代码 代码如下: strPath ='\\192.168.1.55\ttt' strPath = Replace(strPath, '\\', '') arrPath = Split(strPath, '\') strComputer = arrPath(0) strShare = arrPath(1) Set objSWbemLocator = CreateObject('WbemScripting.SWbem