VBScript进阶篇一

 1 Option Explicit
 2 '@author :yinzhengjie
 3 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 4 'EMAIL:y1053419035@qq.com
 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	est.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尹正杰>

 1 Option Explicit
 2 '@author :yinzhengjie
 3 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 4 'EMAIL:y1053419035@qq.com
 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	est.vbs 1 100
22 '从1到100之间的整数之和为:5050
23 
24 'C:Users尹正杰>

 1 Option Explicit
 2 '@author :yinzhengjie
 3 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 4 'EMAIL:y1053419035@qq.com
 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	est.vbs
12 'C:Windowssystem32cscript.exe
13 
14 'C:Users尹正杰>

 1 Option Explicit
 2 '@author :yinzhengjie
 3 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 4 'EMAIL:y1053419035@qq.com
 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;

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

 1 Option Explicit
 2 '@author :yinzhengjie
 3 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 4 'EMAIL:y1053419035@qq.com
 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	est.vbs
13 'C:Windowssystem32
14 
15 'C:Users尹正杰>

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

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

 1 Option Explicit
 2 '@author :yinzhengjie
 3 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 4 'EMAIL:y1053419035@qq.com
 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	est.vbs
23 '请输入一些字符串：
24 '您好
25 '您输入一些字符串是>>>：您好
26 
27 'C:Users尹正杰>cscript  /nologo  C:Users尹正杰Desktop	est.vbs
28 '请输入一些字符串：
29 '尹正杰
30 '您输入一些字符串是>>>：尹正杰
31 
32 'C:Users尹正杰>

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

 1 Option Explicit
 2 '@author :yinzhengjie
 3 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 4 'EMAIL:y1053419035@qq.com
 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	est.vbs
17 '当前的时间为：23:03:25
18 '当前的时间为：23:03:28
19 
20 'C:Users尹正杰>
21  

 1 Option Explicit
 2 '@author :yinzhengjie
 3 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 4 'EMAIL:y1053419035@qq.com
 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	est.vbs
17 '当前的时间为：23:05:54
18 
19 'C:Users尹正杰>

 1 Option Explicit
 2 '@author :yinzhengjie
 3 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 4 'EMAIL:y1053419035@qq.com
 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:WindowsSystem32cmd.exe" '源文件链接的绝对路径
15 
16 object_link.WorkingDirectory = "C:WindowsSystem32" '源文件的工作路径，也就是他的所在目录（父目录）
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