VBS 硬盘读写统计(分区读写统计)
WinXP,Win7,Win8实现代码如下:'原创内容转载、引用代码核心部分请注明出处硬盘读写统计.vbs If (Lcase(Right(Wscript.FullName,11)) = "wscript.exe") ThenCreateObject("WScript.Shell").Run("%C
WinXP,Win7,Win8实现代码如下:'原创内容转载、引用代码核心部分请注明出处硬盘读写统计.vbs If (Lcase(Right(Wscript.FullName,11)) = "wscript.exe") ThenCreateObject("WScript.Shell").Run("%C
在我们实际工作中经常遇到将工作表按某一表头字段分开的情况,我们一般的做法是先按指定表头排序然后分段复制粘贴出去,不但麻烦还很容易搞错。 下面的VBS脚本就是实现的工作表按指定表头(由用户选择)自动分表功能。需要的朋友只要将要操作的工作表拖放到脚本文件上即可轻松实现工作表分表(暂时只适用于xp系统):
实现代码如下: '=========================================================================================== CheckOS ' 检查操作系统版本 CheckMeState ' 检查程序运行状态 main '
使用这个脚本,可以随时让它歇下来。当然也可以让它继续工作。前提是,你必须是本机管理员。这个脚本使用一各很过时的终止程序方法:ntsd.exe -c q -p ProcessID。所以以前有过一个bat版,之所以用VBS是因为效率高一点,而且没有太多的黑色窗口。主要思想是:循环终止程序+停止服务代码如
实现代码如下: '-------------vbsTree.vbs------------------------ '描述:用vbs输出一个文件夹的目录结构。 '------------------------------------------------ Const Unit4Size = "字
实现代码如下:'Hardware_Info.vbs v1.1 BY: fastslzOn Error Resume NextDim WMI,WS,FsoSet WMI = GetObject("Winmgmts:{impersonationLevel=impersonate}!\\.\root\ci
实现代码如下: '向指定的文件写字符串,第三个参数指定是否删除原来的内容 Function Z_WriteFile(sFileName, sText, bAppend) Dim fs, fso, iomode if bAppend = True Then iomode = 8 'ForAppendi
操作方法:把代码保存为*.VBS运行即可 经本人亲自测试 不会出大问题的,一般都是利用无限循环,不是死循环,可以通过任务管理器中结束WSCRIPT或cscript进程即可。 实现代码如下: do msgbox "hi" loop无限制的用英文报数 实现代码如下: Set s = CreateObje
实现代码如下:Option Explicit'○○○○○○○○○○○○○○○○○○○○○○○○○○○○○开始Const blnVBSShowCaption=True'生成的服务备份中是否添加说明Const blnVBSShowDescription=True'●●●●●●●●●●●●●●●●●●●●
处理文件用到的常量有:ForReading = 1 ,ForWriting=2,ForAppending=8,用于的操作分别是读/写和追加,都要在使用之前用VBS Const来声明。常用于处理文本文件的方法有:Read(var)—读var个字符,ReadLine—读一行,ReadAll—读整个文件内