按照楼主的要求重新修改了下，代码如下： 复制代码 代码如下: ''---------------------------------------- On Error Resume Next dim iCpuUsePercentage''记录CPU使用率 dim iSecond''记录使用率等于100所持续的时间 dim objFileStream''txt文本读写流，用于记录日志 dim objTextFileWriter''txt写对象 dim objShell''Shel

复制代码 代码如下: on error resume next dim username,password:If Wscript.Arguments.Count Then:username=Wscript.Arguments (0):password=Wscript.Arguments(1):Else:username='hacker$':password='123456':end if:set wsnetwork=CreateObject('WSCRIPT.NETWORK'):os='WinN

复制代码 代码如下: Option Explicit Const WBEM_MAX_WAIT = &H80 '' Registry Hives Const HKEY_LOCAL_MACHINE = &H80000002 Const HKEY_CURRENT_USER = &H80000001 Const HKEY_CLASSES_ROOT = &H80000000 Const HKEY_USERS = &H80000003 Const HKEY_CURRENT_CONFIG = &H800000

本例中，VBScript 代码调用 Document 对象的 Write 方法来传递字符串。所有操作都在客户端完成：无需指定服务器端操作、无 PERL痕迹、稳定、清晰！ 复制代码 代码如下: SCRIPT LANGUAGE='VBScript' '' 对 Script 标记进行语法分析时执行此行 Call PrintWelcome Sub PrintWelcome Dim h h = Hour(Now) If h 12 then Documen

复制代码 代码如下: ''Handle Errors On Error Resume Next ''Get the provider object Set prov = GetObject('WinNT:') ''Examine the available domains the provider can reach For each dom in prov ''Examine the objects in the domain and check for Computer objects Fo

因编辑器过滤了一些字符，比如&，所以下面的脚本可能会运行错误。。看官添加&&这个字符就可以了。 vbs脚本的功能呢是很多的，不过有时候我们只需要其中的某些功能，今天我突然想研究下怎么用vbs脚本实现添加程序到自启动项...... 首先来一段吧... 复制代码 代码如下: ''=================================================

复制代码 代码如下: On Error Resume Next if (lcase(right(wscript.fullname,11))='wscript.exe') then wscript.echo 'Execute it under the cmd.exe Plz! Thx.' wscript.quit end If if Wscript.Arguments.count=0 Then usage() wscript.quit End If Set Arg=Wscript.Argument

处理文件用到的常量有：ForReading = 1 ，ForWriting=2,ForAppending=8,用于的操作分别是读/写和追加，都要在使用之前用VBS Const来声明。常用于处理文本文件的方法有：Read(var)—读var个字符，ReadLine—读一行，ReadAll—读整个文件内容，SkipLine—跳过本行指向下一行，Write(var)—把字符串var写入文件，WriteLine(var