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对象

 Option Explicit
 '@author :yinzhengjie
 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 'EMAIL:y1053419035@qq.com

 '提供对 Windows 脚本宿主对象模型根对象的访问。

 '说明
 'WScript 对象是 Windows 脚本宿主对象模型层次结构的根对象。它从不需要在调用其属性和方法之前进行实例化，并且始终可在任何脚本文件中使用。WScript 对象提供对以下信息的访问： 

 '命令行参数，
 '脚本文件的名称，
 '宿主文件名，
 '宿主版本信息。
 'WScript 对象可用来： 

 '创建对象，
 '连接对象，
 '与对象断开连接，
 '同步事件，
 '以编程方式停止脚本的执行，
 '将信息输出到默认输出设备（Windows 对话框或命令控制台）。
 'WScript 对象可用来设置脚本运行的模式（交互模式或批处理模式）。

 '属性：
 'WScript对象具有下列属性：
 '● Arguments
 '● FullName
 '● Interactive
 '● Name
 '● Path
 '● ScriptFullName
 '● ScriptName
 '● StdErr
 '● StdIn
 '● StdOut
 '● Version 

 '方法：
 'WScript的方法
 'WScript对象具有下列方法：
 '● CreateObject
 '● ConnectObject
 '● DisconnectObject
 '● Echo
 '● GetObject
 '● Quit
 '● Sleep 

WScript属性详解：

 Option Explicit
 '@author :yinzhengjie
 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 'EMAIL:y1053419035@qq.com

 Dim  objArgs,i

 Set objArgs = WScript.Arguments '将命令行整体看作一个参数

 For i =  To objArgs.Count - 'objArgs.Count表示统计在cmd中调用cscript宿主脚本执行当前脚本时候跟的参数，如果有三个参数是就是数字3，但是由于我们变了是从“0”开始计数的，所以到下表“2”的时候就已经是三个参数了，如果不减去“1”的话就会报错“运行时错误: 下标越界”
     WScript.Echo "i = "& i & ";Item = "& objArgs.Item(i)
 Next 

 '以上代码在cmd窗口调用cscript宿主脚本执行结果如下：
 'C:\Users\尹正杰>cscript C:\Users\尹正杰\Desktop\test.vbs dir /a /b
 'Microsoft (R) Windows Script Host Version 5.8
 '版权所有(C) Microsoft Corporation 1996-2001。保留所有权利。

 'i = 0;Item = dir
 'i = 1;Item = /a
 'i = 2;Item = /b

 'C:\Users\尹正杰>

Arguments用法展示

 Option Explicit
 '@author :yinzhengjie
 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 'EMAIL:y1053419035@qq.com

 Dim  objArgs,i,sum,s1,s2

 Set objArgs = WScript.Arguments '将命令行整体看作一个参数

 s1 = objArgs.Item()
 s2 = objArgs.Item()
 sum =
 For i = s1 To s2'objArgs.Count表示统计在cmd中调用cscript宿主脚本执行当前脚本时候跟的参数，如果有三个参数是就是数字3，但是由于我们变了是从“0”开始计数的，所以到下表“2”的时候就已经是三个参数了，如果不减去“1”的话就会报错“运行时错误: 下标越界”
     sum = sum + i
 Next
 WScript.Echo "从"& s1 & "到" & s2 & "之间的整数之和为:" & sum

 '以上代码在cmd窗口调用cscript宿主脚本执行结果如下：
 'C:\Users\尹正杰>cscript  /nologo  C:\Users\尹正杰\Desktop\test.vbs 1 100
 '从1到100之间的整数之和为:5050

 'C:\Users\尹正杰>

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

 Option Explicit
 '@author :yinzhengjie
 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 'EMAIL:y1053419035@qq.com

 Dim  objArgs,i

 Set objArgs = WScript.Arguments '将命令行整体看作一个参数

 For i =  To objArgs.Count - 'objArgs.Count表示统计在cmd中调用cscript宿主脚本执行当前脚本时候跟的参数，如果有三个参数是就是数字3，但是由于我们变了是从“0”开始计数的，所以到下表“2”的时候就已经是三个参数了，如果不减去“1”的话就会报错“运行时错误: 下标越界”
     WScript.Echo objArgs.Item(i)
 Next 

 '这个脚本双击的时候不会报错，用法是需要你讲任意一个独享移动到这个脚本身上，然后会返回一个对话框，内容是你拖动的那个文件或目录的绝对路径

Arguments返回文件的绝对路径

 Option Explicit
 '@author :yinzhengjie
 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 'EMAIL:y1053419035@qq.com

 WScript.Echo WScript.FullName '返回主机可执行文件（CScript.exe 或 WScript.exe）的完全限定路径。

 '以上代码在cmd窗口调用cscript宿主脚本执行结果如下[cscript  /nologo,其中//Nologo表示不显示徽标：执行时不显示标志]：
 'C:\Users\尹正杰>cscript  /nologo  C:\Users\尹正杰\Desktop\test.vbs
 'C:\Windows\system32\cscript.exe

 'C:\Users\尹正杰>

FullName用法展示

 Option Explicit
 '@author :yinzhengjie
 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 'EMAIL:y1053419035@qq.com

 WScript.Echo WScript.Interactive 'Interactive 属性返回一个布尔值即“0”或者“1”
 '说明
 'Interactive 属性返回一个布尔值。

 '有批处理和交互两种模式。在交互模式（默认模式）下，该脚本为用户提供交互功能。启用对 Windows 脚本宿主的输入和输出。该脚本可以将信息显示在对话框中并等待用户提供反馈。在批处理模式下，不支持这种类型的用户交互 — 所有对 WSH 的输入和输出被禁用。还可以使用 Windows 脚本宿主命令行开关 //I（对于交互式）和 //B（对于批处理模式）来设置脚本模式。

 '示例
 '下面的 JScript 代码显示脚本模式。

 'WScript.Echo WScript.Interactive;
 '下面的 JScript 代码将脚本模式设置为批处理。

 'WScript.Interactive = false;

Interactive用法展示

 Option Explicit
 '@author :yinzhengjie
 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 'EMAIL:y1053419035@qq.com

 WScript.Echo WScript.Name '返回 WScript 对象（主机可执行文件）的名称。

 '以上代码在cmd窗口调用cscript宿主脚本执行结果如下：
 'C:\Users\尹正杰>cscript  /nologo  C:\Users\尹正杰\Desktop\test.vbs
 'Windows Script Host

 'C:\Users\尹正杰>

Name 用法展示

 Option Explicit
 '@author :yinzhengjie
 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 'EMAIL:y1053419035@qq.com

 WScript.Echo WScript.Path '返回包含主机可执行文件（CScript.exe 或 WScript.exe）的路径名称。

 '以上代码在cmd窗口调用cscript宿主脚本执行结果如下：
 'C:\Users\尹正杰>cscript  /nologo  C:\Users\尹正杰\Desktop\test.vbs
 'C:\Windows\system32

 'C:\Users\尹正杰>

Path 用法展示

 Option Explicit
 '@author :yinzhengjie
 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 'EMAIL:y1053419035@qq.com

 WScript.Echo WScript.ScriptFullName '返回当前运行脚本的完整路径。

 '以上代码在cmd窗口调用cscript宿主脚本执行结果如下：
 'C:\Users\尹正杰>cscript  /nologo  C:\Users\尹正杰\Desktop\test.vbs
 'C:\Users\尹正杰\Desktop\test.vbs

 'C:\Users\尹正杰>

ScriptFullName 用法展示

 Option Explicit
 '@author :yinzhengjie
 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 'EMAIL:y1053419035@qq.com

 WScript.Echo WScript.ScriptName '返回当前运行脚本的文件名。

 '以上代码在cmd窗口调用cscript宿主脚本执行结果如下：
 'C:\Users\尹正杰>cscript  /nologo  C:\Users\尹正杰\Desktop\test.vbs
 'test.vbs

 'C:\Users\尹正杰>

ScriptName 用法展示

 Option Explicit
 '@author :yinzhengjie
 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 'EMAIL:y1053419035@qq.com

 Dim row_input
 row_input = "您输入一些字符串是>>>：" '定义输出的值

 WScript.Echo "请输入一些字符串：“
 Do While Not WScript.StdIn.AtEndOfLine
     row_input = row_input & WScript.StdIn.Read() 'WScript.StdIn.Read(1)表示每次循环读取一个字符。
 Loop
 WScript.Echo  row_input '打印拼接后的字符

 '注意：
 'StdIn 属性返回一个表示标准输入流的对象。只可在使用 CScript.exe 时访问 StdIn、StdOut 和 StdErr 流。如果试图在使用 WScript.exe 时访问这些流，则会出错。

 '以上代码在cmd窗口调用cscript宿主脚本执行结果如下：
 'C:\Users\尹正杰>cscript  /nologo  C:\Users\尹正杰\Desktop\test.vbs
 '请输入一些字符串：
 '您好
 '您输入一些字符串是>>>：您好

 'C:\Users\尹正杰>cscript  /nologo  C:\Users\尹正杰\Desktop\test.vbs
 '请输入一些字符串：
 '尹正杰
 '您输入一些字符串是>>>：尹正杰

 'C:\Users\尹正杰>

StdIn与AtEndOfLine用法展示

 Option Explicit
 '@author :yinzhengjie
 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 'EMAIL:y1053419035@qq.com

 WScript.Echo WScript.Version '返回 Windows 脚本宿主的版本。

 '以上代码在cmd窗口调用cscript宿主脚本执行结果如下：
 'C:\Users\尹正杰>cscript  /nologo  C:\Users\尹正杰\Desktop\test.vbs
 '5.8

 'C:\Users\尹正杰>

Version 用法展示

WScript方法详解：

 Option Explicit
 '@author :yinzhengjie
 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 'EMAIL:y1053419035@qq.com

 WScript.Echo "当前的时间为：" & Time  '打印当前时间

 WScript.Sleep *   '睡眠3秒钟

 WScript.Echo "当前的时间为：" & Time

 '以上代码在cmd窗口调用cscript宿主脚本执行结果如下：
 'C:\Users\尹正杰>cscript  /nologo  C:\Users\尹正杰\Desktop\test.vbs
 '当前的时间为：23:03:25
 '当前的时间为：23:03:28

 'C:\Users\尹正杰>
  

Echo与Sleep 的用法展示

 Option Explicit
 '@author :yinzhengjie
 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 'EMAIL:y1053419035@qq.com

 WScript.Echo "当前的时间为：" & Time  '打印当前时间

 WScript.Quit  '退出程序

 WScript.Echo "quit后面的语句：" & Time

 '以上代码在cmd窗口调用cscript宿主脚本执行结果如下：
 'C:\Users\尹正杰>cscript  /nologo  C:\Users\尹正杰\Desktop\test.vbs
 '当前的时间为：23:05:54

 'C:\Users\尹正杰>

Quit 用法展示

五.WshShortcut对象

 Option Explicit
 '@author :yinzhengjie
 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 'EMAIL:y1053419035@qq.com

 Dim windows_shell,desktop,object_link

 Set windows_shell = CreateObject("WScript.Shell") '创建一个对象（实例化）
 desktop = windows_shell.SpecialFolders("Desktop") '使用SpecialFolders方法获取桌面的路径
 'MsgBox desktop
 Set object_link = windows_shell.CreateShortcut(desktop & "\yinzhengjie_cmd.lnk") '定义链接文件路径并且给他起了一个名字叫“yinzhengjie_cmd”，注意以“.lnk”结尾标志着链接文件哟

 object_link.TargetPath = "C:\Windows\System32\cmd.exe" '源文件链接的绝对路径

 object_link.WorkingDirectory = "C:\Windows\System32" '源文件的工作路径，也就是他的所在目录（父目录）

 object_link.Hotkey = "" '可以不写这个参数

 object_link.save '保存以上的配置，因为以上代码只是将数据加入到缓存中，并没有将数据写入磁盘中去，所以这个步骤是必须的！

 Set windows_shell = Nothing '以上代码执行完毕后，需要释放掉内存地址。
 Set desktop = Nothing
 Set object_link = Nothing 

CreateShortcut用于创建一个快捷方式

六.WshEnvironment 对象

 Option Explicit
 '@author :yinzhengjie
 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 'EMAIL:y1053419035@qq.com

 '说明
 'WshEnvironment 对象是由 WshShell 对象的 Environment 属性返回的环境变量集。该变量集包含整个环境变量集（有名称和没有名称的）。若要在此集合中检索个别环境变量（和它们的值），请将环境变量名用作索引。

 '示例
 '下面代码显示一个环境变量。

 '[VBScript]
 Dim  WshShell,WshSysEnv
 Set WshShell = WScript.CreateObject("WScript.Shell")
 Set WshSysEnv = WshShell.Environment("SYSTEM")
 WScript.Echo WshSysEnv("NUMBER_OF_PROCESSORS")
 Set WshShell = Nothing
 Set WshSysEnv = Nothing 

七.WshNetwork 对象

 Option Explicit
 '@author :yinzhengjie
 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 'EMAIL:y1053419035@qq.com

 '提供对计算机所连接的网络上共享资源的访问。

 '说明
 '如果需要连接网络共享和网络打印机、断开网络共享和网络打印机、映射或删除网络共享，或访问有关网络上用户的信息，请创建 WshNetwork 对象。

 '示例
 '下面的示例演示对域名、计算机名、使用WshNetwork 对象的当前计算机系统的用户名的显示。

 Dim WshNetwork
 Set WshNetwork = WScript.CreateObject("WScript.Network")
 WScript.Echo "Domain = " & WshNetwork.UserDomain
 WScript.Echo "Computer Name = " & WshNetwork.ComputerName
 WScript.Echo "User Name = " & WshNetwork.UserName