VBS脚本编程入门指南：提升工作效率的利器

VBScript脚本编程

需积分: 50 161 浏览量更新于2024-07-29 收藏 1.32MB PDF 举报

身份认证购VIP最低享 7 折!

30元优惠券

资源详情

资源推荐

一、文件属性：

在 windows 中，文件的属性一般用数字来表示：

0代表normal，即普通文件未设置任何属性。 1 代表只读文件。

2 代表隐藏文件。 4 代表系统文件。 16 代表文件夹或目录。

32 代表存档文件。 1024 代表链接或快捷方式。例如：

set fs=wscript.createobject(“scripting.filesystemobject”)

set f=fs.getfile(“d:\index.txt”)

msgbox f.Attributes ‘attributes 函数的作用是显示文件属性

需要说明的是：msgbox 显示的结果往往不是上面说明的数字，而是有关属性代表数字的和

二、创建文件：object.createtextfile 方法，注意创建前一般需要检查文件是否存在。

例如：set fso=wscript.createobject(“scripting.filesystemobject”)

if fso.fileexists(“c:\kk.txt”) then

msgbox “文件已存在”

else

set f=fso.createtextfile(“c:\kk.txt”)

end if

如需要强制覆盖已存在的文件，则在文件名后加 true 参数。

三、复制、移动、删除文件：使用 copyfile 方法、movefile 方法、deletefile 方法。例如：

set fso=wscript.createobject(“scripting.filesystemobject”)

fso.copyfile “c:\kk.txt”,”d:\1\kk.txt”,true //如上文说述，true 代表强制覆盖

fso.movefile “c:\kk.txt”, “d:\” //移动文件

fso.deletefile “c:\kk.txt” //删除文件

四、文件的读写：

1、打开文件：使用 opentextfile 方法

如：set ts=fso.opentextfile(“c:\kk.txt”,1,true)

说明：第二个参数为访问模式 1 为只读、2 写入、8 为追加

第三个参数指定如文件不存在则创建。

2、读取文件：read(x)读 x 个字符；readline 读一行；readall 全部读取

如：set ffile=fso.opentextfile(“c:\kk.txt”,1,true)

value=ffile.read(20)

line=ffile.readline

contents=ffile.readall

3、常见的指针变量：

atendofstream 属性：当处于文件结尾的时候这个属性返回 true。一般用循环检测是否到达文件末尾。

例如：

do while ffile.atendofstream<>true

ffile.read(10)

loop

atendofline 属性：如果已经到了行末尾，这个属性返回 true。

Column 属性(当前字符位置的列号)和 line 属性(文件当前行号)：在打开一个文件后，行和列指针都被设

置为 1。

4、在文件中跳行：skip(x) 跳过 x 个字符；skipline 跳过一行

5、在文件中写入字符：可以用 2－写入和 8－追加的方式来写入

其方法有：write(x)写入 x 字符串；writeline(x)写入 x 代表的一行

writeblanklines(n) 写入 n个空行

注意：最后一定要使用 close 方法关闭文件,读文件后一定要关闭，才能以写的方式打开。

Vbs

脚本编程简明教程之十二

使用系统对话框

在 VBS 脚本设计中，如果能使用 windows 提供的系统对话框，可以简化脚本的使用难度，使脚本人性化

许多，很少有人使用，但 VBS 并非不能实现这样的功能，方法当然还是利用 COM 对象。

1、SAFRCFileDlg.FileSave 对象：属性有：FileName — 指定默认文件名；FileType — 指定文件扩展名；

OpenFileSaveDlg — 显示文件保存框体方法。

2、SAFRCFileDlg.FileOpen 对象：FileName — 默认文件名属性；OpenFileOpenDlg — 显示打开文件框体

方法。

3、UserAccounts.CommonDialog对象：Filter — 扩展名属性（"vbs File|*.vbs|All Files|*.*"）；

FilterIndex — 指定

InitialDir — 指定默认的文件夹

FileName — 指定的文件名

Flags — 对话框的类型

Showopen 方法：

很简单，ok，让我们来举两个简单的例子：

例一：保存文件

Set objDialog = CreateObject("SAFRCFileDlg.FileSave")

Set objFSO = CreateObject("Scripting.FileSystemObject")

objDialog.FileName = "test"

objDialog.FileType = ".txt"

intReturn = objDialog.OpenFileSaveDlg

If intReturn Then

objFSO.CreateTextFile(objDialog.FileName & objdialog.filetype)

Else

Wscript.Quit

End If

注意：1、SAFRCFileDlg.FileSave 对象仅仅是提供了一个方便用户选择的界面，本身并没有保存文件的功

能，保存文件还需要使用 FSO 对象来完成。2、用 FileType 属性来指定默认的文件类型。3、在调用

OpenFileSaveDlg 方法时，最好把返回值保存到一变量中，用它可以判断用户按下的是确定还是取消。

例二：.打开文件

set objFile = CreateObject("SAFRCFileDlg.FileOpen")

intRet = objFile.OpenFileOpenDlg

if intret then

msgbox “文件打开成功！文件名为：” & objFile.filename

else

wscript.quit

end if

例三：比较复杂的打开文件对话框

Set objDialog = CreateObject("UserAccounts.CommonDialog")

objDialog.Filter = "vbs File|*.vbs"

objDialog.InitialDir = "c:\"

tfile=objDialog.ShowOpen

if tfile then

strLoadFile = objDialog.FileName

msgbox strLoadFile

else

wscript.quit

end if

说明：在脚本中加入 objDialog.Flags = &H020 看看会出现什么结果

Vbs

脚本编程简明教程之十三——1

WMI 基础之一

WMI 即 Windows 管理规范，是用户管理本地和远程计算机的一种模型。通过它可以访问、配置、管理和

监视几乎所有的 Windows 资源。WMI的语法十分简单，基本上常见的命名空间、对象等用几乎一模一

样。它对应的是 Windows 里的 WMI 服务（winmgmt）。

一、WMI 的起源

几年前，几家资深的计算机公司由于系统管理领域缺少标准，委托 DMTF 启动了 CIM（通用信息模型）项

目，理想的 CIM 是一种不受限制于任何特定实现环境的管理工具。WMI 是 CIM的微软实现，它有很多类

是从 CIM 中派生出来的。

二、WMI 的命名空间

那么命名空间是做什么作用的呢？我简单这样说，在同一段代码中，如果有两个变量或函数的名字完全相

同，就会出现冲突。命名空间就是为解决变量、函数的命名冲突而服务的。解决的办法就是将你的变量定

义在一个不同名字的命名空间中。就好像财政局有个张三，公安局也有个张三，但我们清楚，就是因为他

们分属不同的单位。有些地方可能不太准确，但大致意思就是这样了。

WMI 的命名空间创建了一个层次结构，有点类似于我们的目录文件结构。

1、 root-作为所有其他名字的占位符；

2、 root\default-与注册表操作有关的类；

3、 root\security-与系统安全有关的类；

4、 root\cimv2-从 CIM 派生的类，代表我们最常用的工作环境。

三、WMI 的对象路径

WMI 的对象路径用来在 CIM库中定位类和它的事例，对象路径用两个反斜杠\\开头，第一个元素是目标

计算机的名字，第二个元素是相应的 WMI 命名空间，第三个元素是相应的类名，并用：将它与命名空间

分隔开来。例如：\\..\root\cimv2:win32_service

其中那个 . 代表是本地系统。

四、WMI 的查询语言——WQL 仅仅是 ANSI SQL 的一个子集，只能用于数据的提取。

数据、事件查询的基本语法为：

Select pro1 , pro2 , pro3 from myclass（myclassevent）

例如：Select name , path from Win32_share 说明：列出所有共享的名称和路径

也可以使用通配符 * ，例如：Select * from Win32_share

关键字 Where 用于限定查询的范围。

例如：Select * from Win32_share where name=”Admin”

五、WMI 脚本中使用的三个步骤

步骤 1：连接到 WMI 服务

在任何 WMI 脚本中，第一个步骤都是建立一个到目标计算机上的 Windows 管理服务的连接。方法是调

用 VBScript 的 Getobject 函数并将 WMI 脚本库的名字对象的名称（即“winmgmts:”，后跟目标计算机的

名称）传递到 Getobject，并返回一个对象的引用，此时，您就可以调用其提供的方法如：InstancesOf，

正如方法名所示，InstancesOf 返回由资源的类名标识的托管资源的所有实例。

步骤 2：检索 WMI 托管资源的实例

一般采用 WQL 来实现。

步骤 3：显示 WMI 托管资源的属性

最后一个步骤是枚举检索得到集合的内容。一般采用

For each enum in myclass

……

Next 结构来实现。

六、WMI 测试器 (wbemtest.exe)验证脚本执行结果

现在，您对可用于浏览和查看 CIM 的工具已经有了一些认识，让我们使用 WMI 测试器 (wbemtest.exe)

来检查 Win32_Process 类定义，以便从在您的本地计算机上运行的进程检索一些属性。

1.打开一个命令提示，键入 C:\>wbemtest.exe，按下 Enter 来开始 WMI 测试器工具。请注意，大部分按

钮在主 WMI 测试器窗口上是被禁用的，这说明此时您没有连接到 WMI。

2.单击 “连接”按钮连接到本地或远程计算机上的 WMI 服务。显示“连接”对话框，它提供一个标记为名称

空间的文本输入区域，该区域默认值为 root\default。将名称空间区域的值更改为 root\cimv2，单击“连

接”对话框的连接按钮返回到主 WMI 测试器窗口。

3.主窗口中左上角的命名空间标识符应该显示为 root\cimv2。请注意，所有的按钮现在都已启用，这说明

在当前凭据环境下，您已经成功连接到本地主机上的 WMI。单击枚举类别打开“超类信息”对话框。

4.在“超类信息”对话框中，不要填写输入超类别名称区域，单击递归选项，单击确定以枚举

root\cimv2 名称空间中定义的所有 CIM 类。

请注意，列于“查询结果”对话框顶部的类是以两个下划线为开头的。这些是系统类。系统类是预定义的

CIM 类，支持内部 WMI 配置与操作，例如提供程序注册、命名空间安全性及事件通知等。现在，忽略系

统类，向下滚动“查询结果”对话框直至看到以 CIM_ 开头的类。名称以 CIM_ 开头的类是由 DMTF 维护的

核心与公共基类。继续向下滚动直至到达以 Win32_ 开头的类。名称以 Win32_ 开头的类是 Microsoft 扩

展类，表示 Windows 特定的托管资源。如果这是您第一次检查 root\cimv2

命名空间，您可能希望熟悉

root\cimv2 命名空间中的类的完整集合，尤其是有 Win32_ 前缀的类。

5.向下滚动“查询结果”对话框直至到达 Win32_Process 类，双击该类名打开 Win32_Process 对话框的对

象编辑器。

剩余77页未读，继续阅读

雨滴测试

粉丝: 953
资源: 10

VBS脚本编程入门指南：提升工作效率的利器

VB简明教程 第二版

vb 简明教程

大学物理、VB简明教程

vb winform教程国内网站网站

vb winform教程网站

vb6 教程 -- 从入门到精通

vb6.0 菜鸟教程

vb6.0程序设计教程

vb.net 实例教程

vb教程6.0从入门到精通

vb activex dll视频教程

CodeSMART for VB6 使用教程

vb6.0下载教程win10

vb.net编程案例教程pdf

VB60CHS安装教程

vb.net高级教程

vb6cli.exe 怎么用使用教程

vb.net chart控件教程

vb.net 项目 实例教程

vb6 mshflexgrid控件教程

最新资源

VB简明教程第二版

vb.net 项目实例教程