VBScript进阶篇一

　　　　　　　　　　　　　　　　　　　　　　　　　　　　VBScript进阶篇一

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　     　　　　　　　　　　　　　　　　  　作者：尹正杰　　　　　　

版权声明：原创作品，谢绝转载！否则将追究法律责任。

 

 

一.编译型与解释型的区别

其实我们通过一张图就可以大致了解一下，他们运行机制。

想要了解更多，请猛戳：http://www.cnblogs.com/yinzhengjie/p/6229931.html

 

二.WSH的介绍

　　WSH是一个Windows管理工具。WSH创建了一个脚本运行的主环境，当脚本到达一台计算机时，WSH扮演主人的角色。WSH使脚本能够使用对象和服务，并提供脚本执行的准则。此外，WSH还负责安全管理以及调用适当的脚本引擎。WScript不属于脚本语言，他只属于脚本宿主提供的一个接口。其实cmd窗口也可以理解成一个脚本宿主而已，它是一个批处理宿主。

　　独立的脚本有多种不同类型，每种类型都有其各自的扩展名。下表列出了一些常见类型：

扩展名	脚本类型	说明
.bat	MS-DOS 批处理文件	MS-DOS 操作系统的批处理文件
.asp	ASP 页	Active Server Page 文件
.html	HTML 文件	Web 页
.js	JScript 文件	Windows 脚本
.vbs	VBScript 文件	Windows 脚本
.wsf	Windows 脚本宿主文件	Windows 脚本的容器或项目文件；由 WSH 2.0 或更高版本支持。
.wsh	Windows 脚本宿主文件	脚本文件的属性文件；由 WSH 1.0 或更高版本支持。

　　每种脚本类型都适于不同应用程序的需要，并且各有利弊。您所选择的脚本类型取决于您的需要。但在某些情况下，可以将整个问题分成几个小部分，为每个部分单独编写脚本，每个脚本都使用最适当的脚本语言。

这时，Windows 脚本宿主文件（WSF 文件）非常有用。WSF 文件可以将其他脚本文件作为脚本的一部分包括在其中。因此，多个 WSF 文件可以引用有用的函数库，它们是在一个位置创建和存储的。

 

三.WSH在命令行执行VBS

WSH提供了两个用于执行脚本的接口，一个用于命令行，一个用于Windows环境。这两个接口各使用不同的宿主程序作为VBScript引擎：

　　1>● cscript.exe：用于在命令行中(cmd窗口)运行脚本【在执行脚本时候打印的内容会在命令行中显示】;

　　2>● wscript.exe：用于在Windows环境中运行脚本(指得是你用鼠标双击运行一个"*.vsb"脚本，会出现一个对话框)【在执行脚本时候打印的内容会弹出一个脚本宿主对话框的形式显示】;

　　之所以有两个宿主程序，是因为cscript.exe被设计为从控制台窗口启动(一般来说是Windows中的MS-DOS窗口)其实就是我们工作中常用的cmd窗口，而wscript.exe则用于直接与Windows GUI进行交互。这两者就功能来讲几乎没有区别。

 

四.WScript对象

 1 Option Explicit
 2 '@author :yinzhengjie
 3 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 4 'EMAIL:[email protected]
 5 
 6 
 7 '提供对 Windows 脚本宿主对象模型根对象的访问。
 8 
 9 '说明
10 'WScript 对象是 Windows 脚本宿主对象模型层次结构的根对象。它从不需要在调用其属性和方法之前进行实例化，并且始终可在任何脚本文件中使用。WScript 对象提供对以下信息的访问： 
11 
12 '命令行参数， 
13 '脚本文件的名称， 
14 '宿主文件名， 
15 '宿主版本信息。 
16 'WScript 对象可用来： 
17 
18 '创建对象， 
19 '连接对象， 
20 '与对象断开连接， 
21 '同步事件， 
22 '以编程方式停止脚本的执行， 
23 '将信息输出到默认输出设备（Windows 对话框或命令控制台）。 
24 'WScript 对象可用来设置脚本运行的模式（交互模式或批处理模式）。
25 
26 '属性：
27 'WScript对象具有下列属性： 
28 '● Arguments 
29 '● FullName 
30 '● Interactive 
31 '● Name 
32 '● Path 
33 '● ScriptFullName 
34 '● ScriptName 
35 '● StdErr 
36 '● StdIn 
37 '● StdOut 
38 '● Version 
39 
40 
41 '方法：
42 'WScript的方法 
43 'WScript对象具有下列方法： 
44 '● CreateObject 
45 '● ConnectObject 
46 '● DisconnectObject 
47 '● Echo 
48 '● GetObject 
49 '● Quit 
50 '● Sleep 

 

 

WScript属性详解：

 1 Option Explicit
 2 '@author :yinzhengjie
 3 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 4 'EMAIL:[email protected]
 5 
 6 
 7 Dim  objArgs,i
 8 
 9 Set objArgs = WScript.Arguments '将命令行整体看作一个参数
10 
11 For i = 0 To objArgs.Count -1 'objArgs.Count表示统计在cmd中调用cscript宿主脚本执行当前脚本时候跟的参数，如果有三个参数是就是数字3，但是由于我们变了是从“0”开始计数的，所以到下表“2”的时候就已经是三个参数了，如果不减去“1”的话就会报错“运行时错误: 下标越界”
12     WScript.Echo "i = "& i & ";Item = "& objArgs.Item(i)
13 Next 
14 
15 
16 '以上代码在cmd窗口调用cscript宿主脚本执行结果如下：
17 'C:\Users\尹正杰>cscript C:\Users\尹正杰\Desktop\test.vbs dir /a /b
18 'Microsoft (R) Windows Script Host Version 5.8
19 '版权所有(C) Microsoft Corporation 1996-2001。保留所有权利。
20 
21 'i = 0;Item = dir
22 'i = 1;Item = /a
23 'i = 2;Item = /b
24 
25 'C:\Users\尹正杰>

Arguments用法展示

 1 Option Explicit
 2 '@author :yinzhengjie
 3 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 4 'EMAIL:[email protected]
 5 
 6 
 7 Dim  objArgs,i,sum,s1,s2
 8 
 9 Set objArgs = WScript.Arguments '将命令行整体看作一个参数
10 
11 s1 = objArgs.Item(0)
12 s2 = objArgs.Item(1)
13 sum = 0
14 For i = s1 To s2'objArgs.Count表示统计在cmd中调用cscript宿主脚本执行当前脚本时候跟的参数，如果有三个参数是就是数字3，但是由于我们变了是从“0”开始计数的，所以到下表“2”的时候就已经是三个参数了，如果不减去“1”的话就会报错“运行时错误: 下标越界”
15     sum = sum + i
16 Next 
17 WScript.Echo "从"& s1 & "到" & s2 & "之间的整数之和为:" & sum
18 
19 
20 '以上代码在cmd窗口调用cscript宿主脚本执行结果如下：
21 'C:\Users\尹正杰>cscript  /nologo  C:\Users\尹正杰\Desktop\test.vbs 1 100
22 '从1到100之间的整数之和为:5050
23 
24 'C:\Users\尹正杰>

利用Arguments计算2个数字之间的和

 1 Option Explicit
 2 '@author :yinzhengjie
 3 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 4 'EMAIL:[email protected]
 5 
 6 Dim  objArgs,i
 7 
 8 Set objArgs = WScript.Arguments '将命令行整体看作一个参数
 9 
10 For i = 0 To objArgs.Count -1 'objArgs.Count表示统计在cmd中调用cscript宿主脚本执行当前脚本时候跟的参数，如果有三个参数是就是数字3，但是由于我们变了是从“0”开始计数的，所以到下表“2”的时候就已经是三个参数了，如果不减去“1”的话就会报错“运行时错误: 下标越界”
11     WScript.Echo objArgs.Item(i) 
12 Next 
13 
14 '这个脚本双击的时候不会报错，用法是需要你讲任意一个独享移动到这个脚本身上，然后会返回一个对话框，内容是你拖动的那个文件或目录的绝对路径

Arguments返回文件的绝对路径

 1 Option Explicit
 2 '@author :yinzhengjie
 3 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 4 'EMAIL:[email protected]
 5 
 6 
 7 WScript.Echo WScript.FullName '返回主机可执行文件（CScript.exe 或 WScript.exe）的完全限定路径。
 8 
 9 
10 '以上代码在cmd窗口调用cscript宿主脚本执行结果如下[cscript  /nologo,其中//Nologo表示不显示徽标：执行时不显示标志]：
11 'C:\Users\尹正杰>cscript  /nologo  C:\Users\尹正杰\Desktop\test.vbs
12 'C:\Windows\system32\cscript.exe
13 
14 'C:\Users\尹正杰>

FullName用法展示

 1 Option Explicit
 2 '@author :yinzhengjie
 3 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 4 'EMAIL:[email protected]
 5 
 6 WScript.Echo WScript.Interactive 'Interactive 属性返回一个布尔值即“0”或者“1”
 7 '说明
 8 'Interactive 属性返回一个布尔值。
 9 
10 '有批处理和交互两种模式。在交互模式（默认模式）下，该脚本为用户提供交互功能。启用对 Windows 脚本宿主的输入和输出。该脚本可以将信息显示在对话框中并等待用户提供反馈。在批处理模式下，不支持这种类型的用户交互 — 所有对 WSH 的输入和输出被禁用。还可以使用 Windows 脚本宿主命令行开关 //I（对于交互式）和 //B（对于批处理模式）来设置脚本模式。
11 
12 '示例
13 '下面的 JScript 代码显示脚本模式。
14 
15 'WScript.Echo WScript.Interactive;
16 '下面的 JScript 代码将脚本模式设置为批处理。
17 
18 'WScript.Interactive = false;

Interactive用法展示

 1 Option Explicit
 2 '@author :yinzhengjie
 3 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 4 'EMAIL:[email protected]
 5 
 6 
 7 
 8 WScript.Echo WScript.Name '返回 WScript 对象（主机可执行文件）的名称。
 9 
10 
11 '以上代码在cmd窗口调用cscript宿主脚本执行结果如下：
12 'C:\Users\尹正杰>cscript  /nologo  C:\Users\尹正杰\Desktop\test.vbs
13 'Windows Script Host
14 
15 'C:\Users\尹正杰>

Name 用法展示

 1 Option Explicit
 2 '@author :yinzhengjie
 3 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 4 'EMAIL:[email protected]
 5 
 6 
 7 
 8 WScript.Echo WScript.Path '返回包含主机可执行文件（CScript.exe 或 WScript.exe）的路径名称。
 9 
10 
11 '以上代码在cmd窗口调用cscript宿主脚本执行结果如下：
12 'C:\Users\尹正杰>cscript  /nologo  C:\Users\尹正杰\Desktop\test.vbs
13 'C:\Windows\system32
14 
15 'C:\Users\尹正杰>

Path 用法展示

 1 Option Explicit
 2 '@author :yinzhengjie
 3 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 4 'EMAIL:[email protected]
 5 
 6 
 7 
 8 WScript.Echo WScript.ScriptFullName '返回当前运行脚本的完整路径。
 9 
10 '以上代码在cmd窗口调用cscript宿主脚本执行结果如下：
11 'C:\Users\尹正杰>cscript  /nologo  C:\Users\尹正杰\Desktop\test.vbs
12 'C:\Users\尹正杰\Desktop\test.vbs
13 
14 'C:\Users\尹正杰>

ScriptFullName 用法展示

 1 Option Explicit
 2 '@author :yinzhengjie
 3 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 4 'EMAIL:[email protected]
 5 
 6 
 7 
 8 WScript.Echo WScript.ScriptName '返回当前运行脚本的文件名。
 9 
10 
11 
12 '以上代码在cmd窗口调用cscript宿主脚本执行结果如下：
13 'C:\Users\尹正杰>cscript  /nologo  C:\Users\尹正杰\Desktop\test.vbs
14 'test.vbs
15 
16 'C:\Users\尹正杰>

ScriptName 用法展示

 1 Option Explicit
 2 '@author :yinzhengjie
 3 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 4 'EMAIL:[email protected]
 5 
 6 
 7 Dim row_input
 8 row_input = "您输入一些字符串是>>>：" '定义输出的值
 9 
10 WScript.Echo "请输入一些字符串：“  
11 Do While Not WScript.StdIn.AtEndOfLine
12     row_input = row_input & WScript.StdIn.Read(1) 'WScript.StdIn.Read(1)表示每次循环读取一个字符。
13 Loop
14 WScript.Echo  row_input '打印拼接后的字符
15 
16 
17 '注意：
18 'StdIn 属性返回一个表示标准输入流的对象。只可在使用 CScript.exe 时访问 StdIn、StdOut 和 StdErr 流。如果试图在使用 WScript.exe 时访问这些流，则会出错。
19 
20 
21 '以上代码在cmd窗口调用cscript宿主脚本执行结果如下：
22 'C:\Users\尹正杰>cscript  /nologo  C:\Users\尹正杰\Desktop\test.vbs
23 '请输入一些字符串：
24 '您好
25 '您输入一些字符串是>>>：您好
26 
27 'C:\Users\尹正杰>cscript  /nologo  C:\Users\尹正杰\Desktop\test.vbs
28 '请输入一些字符串：
29 '尹正杰
30 '您输入一些字符串是>>>：尹正杰
31 
32 'C:\Users\尹正杰>

StdIn与AtEndOfLine用法展示

 1 Option Explicit
 2 '@author :yinzhengjie
 3 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 4 'EMAIL:[email protected]
 5 
 6 
 7 WScript.Echo WScript.Version '返回 Windows 脚本宿主的版本。
 8 
 9 
10 '以上代码在cmd窗口调用cscript宿主脚本执行结果如下：
11 'C:\Users\尹正杰>cscript  /nologo  C:\Users\尹正杰\Desktop\test.vbs
12 '5.8
13 
14 'C:\Users\尹正杰>

Version 用法展示

 

WScript方法详解：

 1 Option Explicit
 2 '@author :yinzhengjie
 3 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 4 'EMAIL:[email protected]
 5 
 6 
 7 WScript.Echo "当前的时间为：" & Time  '打印当前时间
 8 
 9 WScript.Sleep 3*1000   '睡眠3秒钟
10 
11 WScript.Echo "当前的时间为：" & Time
12 
13 
14 
15 '以上代码在cmd窗口调用cscript宿主脚本执行结果如下：
16 'C:\Users\尹正杰>cscript  /nologo  C:\Users\尹正杰\Desktop\test.vbs
17 '当前的时间为：23:03:25
18 '当前的时间为：23:03:28
19 
20 'C:\Users\尹正杰>
21  

Echo与Sleep 的用法展示

 1 Option Explicit
 2 '@author :yinzhengjie
 3 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 4 'EMAIL:[email protected]
 5 
 6 
 7 WScript.Echo "当前的时间为：" & Time  '打印当前时间
 8 
 9 WScript.Quit  '退出程序
10 
11 WScript.Echo "quit后面的语句：" & Time
12 
13 
14 
15 '以上代码在cmd窗口调用cscript宿主脚本执行结果如下：
16 'C:\Users\尹正杰>cscript  /nologo  C:\Users\尹正杰\Desktop\test.vbs
17 '当前的时间为：23:05:54
18 
19 'C:\Users\尹正杰>

Quit 用法展示

 

五.WshShortcut对象

 1 Option Explicit
 2 '@author :yinzhengjie
 3 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 4 'EMAIL:[email protected]
 5 
 6 
 7 Dim windows_shell,desktop,object_link
 8 
 9 Set windows_shell = CreateObject("WScript.Shell") '创建一个对象（实例化）
10 desktop = windows_shell.SpecialFolders("Desktop") '使用SpecialFolders方法获取桌面的路径
11 'MsgBox desktop
12 Set object_link = windows_shell.CreateShortcut(desktop & "\yinzhengjie_cmd.lnk") '定义链接文件路径并且给他起了一个名字叫“yinzhengjie_cmd”，注意以“.lnk”结尾标志着链接文件哟
13 
14 object_link.TargetPath = "C:\Windows\System32\cmd.exe" '源文件链接的绝对路径
15 
16 object_link.WorkingDirectory = "C:\Windows\System32" '源文件的工作路径，也就是他的所在目录（父目录）
17 
18 object_link.Hotkey = "" '可以不写这个参数
19 
20 
21 object_link.save '保存以上的配置，因为以上代码只是将数据加入到缓存中，并没有将数据写入磁盘中去，所以这个步骤是必须的！
22 
23 Set windows_shell = Nothing '以上代码执行完毕后，需要释放掉内存地址。
24 Set desktop = Nothing
25 Set object_link = Nothing 

CreateShortcut用于创建一个快捷方式

 

六.WshEnvironment 对象

 1 Option Explicit
 2 '@author :yinzhengjie
 3 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 4 'EMAIL:[email protected]
 5 
 6 
 7 '说明
 8 'WshEnvironment 对象是由 WshShell 对象的 Environment 属性返回的环境变量集。该变量集包含整个环境变量集（有名称和没有名称的）。若要在此集合中检索个别环境变量（和它们的值），请将环境变量名用作索引。
 9 
10 '示例
11 '下面代码显示一个环境变量。
12 
13 '[VBScript]  
14 Dim  WshShell,WshSysEnv
15 Set WshShell = WScript.CreateObject("WScript.Shell")
16 Set WshSysEnv = WshShell.Environment("SYSTEM")
17 WScript.Echo WshSysEnv("NUMBER_OF_PROCESSORS")
18 Set WshShell = Nothing
19 Set WshSysEnv = Nothing 

 

七.WshNetwork 对象

 1 Option Explicit
 2 '@author :yinzhengjie
 3 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 4 'EMAIL:[email protected]
 5 
 6 '提供对计算机所连接的网络上共享资源的访问。
 7 
 8 '说明
 9 '如果需要连接网络共享和网络打印机、断开网络共享和网络打印机、映射或删除网络共享，或访问有关网络上用户的信息，请创建 WshNetwork 对象。
10 
11 '示例
12 '下面的示例演示对域名、计算机名、使用WshNetwork 对象的当前计算机系统的用户名的显示。
13 
14 
15 Dim WshNetwork
16 Set WshNetwork = WScript.CreateObject("WScript.Network")
17 WScript.Echo "Domain = " & WshNetwork.UserDomain
18 WScript.Echo "Computer Name = " & WshNetwork.ComputerName
19 WScript.Echo "User Name = " & WshNetwork.UserName