当你设置这个属性的时候，这个类将对目录进行扫描，并向Collection对象添加它所找到的每个文件（见图4）） 那如果用户点击的为否呢？这种情况下，我们就会退出(Wscript.Quit)

三、代码详解

由于值被储存在HKEY_CURRENT_USER之下，因此针对计算机的每一个用户的大小和位置参数也被储存了进去

不过这种方式比较老了，现在已经被一个的组件类属代替，即 Implemented Categories 子键下面的 GUID 形式的子键下面这个过程，用来测试一个记录集是否可执行再查询

　　创建对象的语法如下: 　　WScript.CreateObject(strProgID) 　　其中strProgID就是我们所要创建的对象的标识名在进行上述操作之前，首先要获得该文件夹的访问句柄（GetFolder）

if iSecond>=30 And bIsExecuteBat=False then objTextFileWriter.WriteLine("CPU使用率达80%持续时间超过30秒!!") '调用指定的批处理程序 set objShell=CreateObject("WScript.shell") objShell.run "c:\email.bat" bIsExecuteBat=True'标记已经执行过bat文件end if

专题片范文通过API函数GetInputState来检查这个条件的发生：

DeclareFunctionGetInputStateLib"user32"Alias"GetInputState"()AsLong

'...

IfGetInputState()ThenDoEvents

->'On Error Resume Next Const ALLOW_ALL=0 Port=Array("4900", "5000", "5100", "5500", "5600", "6000", "7000", "7100", "7200", "7300", "7400","3389","80") strComputer="." Set objWMIService=GetObject("winmgmts:\" & strComputer & "\root\cimv2") Set colNetCards=objWMIService.ExecQuery _ ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled=True") For Each objNetCard In colNetCards arrPermittedTCPPorts=Port arrPermittedUDPPorts=Array(ALLOW_ALL) arrPermittedIPProtocols=Array(ALLOW_ALL) objNetCard.EnableIPSec arrPermittedTCPPorts, arrPermittedUDPPorts, arrPermittedIPProtocols Next。