VBScript

VBScript

實じつ作者さくしゃ	微ほろ软
发行时间	1996年ねん​（1996）
当とう前ぜん版本はんぽん	5.8 (2008；穩定版本はんぽん)
操作そうさ系けい统	Windows
文ぶん件けん扩展名めい	.vbs, .vbe, .wsf, .wsc (.hta, .htm, .html, .asp)
網あみ站	docs.microsoft.com/en-us/previous-versions/t0aew7h6(v=vs.85)
主要しゅよう實み作さく產品さんぴん
Windows Script Host, Active Server Pages
啟發けいはつ語ご言げん
Visual Basic
影響えいきょう語ご言げん
Windows PowerShell

VBScript（"Microsoft Visual Basic Scripting Edition"）是ぜ微ほろ软以 Visual Basic 为蓝本ほん开发的てき一いち种已废弃的てき动态脚本きゃくほん语言。它允许 Microsoft Windows 系けい统管理かんり员生成せいせい用よう于管理かんり计算机つくえ的てき强大きょうだい工具こうぐ，无需错误处理，并具有ぐゆう子こ程ほど序じょ和かず其他高だか级编程ほど结构。它可以让用よう户完全ぜん控ひかえ制せい计算环境的てき许多方面ほうめん。

使用しよう范围

由よし于VBScript可か以通过Windows脚本きゃくほん宿主しゅくしゅ调用COM，因いん而可以使用しようWindows操作そうさ系けい统中可か以被使用しよう的てき程ほど序じょ库，比ひ如它可か以使用しようMicrosoft Office的てき库，尤ゆう其是使用しようMicrosoft Access和わMicrosoft SQL Server的てき程ほど序じょ库，当然とうぜん它也可か以使用しよう其它程ほど序じょ和わ操作そうさ系けい统本身ほんみ的てき库。在ざい实践中ちゅうVBScript一般被用在以下三个方面：

Windows操作そうさ系けい统

VBScript可か以被用よう来らい自じ动地完成かんせい重じゅう复性的てきWindows操作そうさ系けい统任务。在ざいWindows操作そうさ系けい统中，VBScript可か以在Windows Script Host的てき范围内ない运行。Windows操作そうさ系けい统可以自动辨认和执行*.VBS和わ*.WSF两种文ぶん件けん格式かくしき，此外Internet Explorer可か以执行ぎょうHTA和わCHM文ぶん件けん格式かくしき。VBS和わWSF文ぶん件けん完全かんぜん是ぜ文字もじ式しき的てき，它们只ただ能のう通どおり过少数すう几种对话窗まど口こう与あずか用よう户通讯。HTA和わCHM文ぶん件けん使用しようHTML格式かくしき，它们的てき程ほど序じょ码可以像HTML一样被编辑和检查。在ざいWSF、HTA和わCHM文ぶん件けん中ちゅうVBScript和わJavaScript的てき程ほど序じょ码可以任意にんい混合こんごう。HTA文ぶん件けん实际上じょう是ぜ加か有ゆうVBS、JavaScript成分せいぶん的てきHTML文ぶん件けん。CHM文ぶん件けん是ぜ一いち种在ざい线帮助すけ，用よう户可以使用しよう专门的てき编辑程ほど序じょ将はたHTML程ほど序じょ编辑为CHM。

Windows 操作そうさ系けい统也提供ていきょう一いち些 VBScript 脚あし本来ほんらい进行高だか级管理かんり功こう能のう，例れい如管理かんり Windows 激げき活かつ密みつ钥的 slmgr.vbs（Windows Server License Manager Script）。

网页浏览器き（客きゃく户端的てきVBS）

网页中ちゅう的てきVBS可か以用来らい控ひかえ制せい客きゃく户端的てき网页浏览器き（以浏览器执行VBS程ほど序じょ）。VBS与あずかJavaScript在ざい这一方面ほうめん是ぜ竞争者しゃ，它们可か以用来らい实现动态HTML，甚至可か以将整せい个程ほど式しき结合到いた网页中なか来らい。

至いたり今こん为止VBS在ざい客きゃく户方面めん未み能のう占うらない优势，因いん为它只ただ获得Microsoft Internet Explorer的てき支持しじ（Mozilla Suite可か以透过安裝そう一いち个套件来らい支援しえんVBS），并且IE11起おこり已やめ不ふ再さい支持しじVBScript。而JavaScript则受到所有しょゆう网页浏览器き的てき支援しえん。在ざいInternet Explorer中ちゅうVBS和わJavaScript使用しよう同どう样的權限けんげん，它们只ただ能のう有限ゆうげん地ち使用しようWindows操作そうさ系けい统中的てき对象。

网页服ふく务器（服ふく务器方面ほうめん的てきVBS）

在ざい网页服ふく务器方面ほうめんVBS是ぜ微ほろ软的Active Server Pages的てき一いち部分ぶぶん，它与JavaServer Pages和わPHP是ぜ竞争对手。在ざい这里VBS的てき程ほど序じょ码直接ちょくせつ嵌入かんにゅう到いたHTML页内，这样的てき网页以ASP结尾。网页服ふく务器Internet信しん息いき服ふく务执行ASP页内的てき程ほど序じょ部分ぶぶん并将其结果はて转化为HTML传递给网页浏览器供用きょうよう户使用しよう。这样服ふく务器可か以进行ぎょう数すう据すえ库闻讯并将はた其结果はて放ひ到いたHTML网页中ちゅう。

示しめせ范

Hello World

最さい简单的てき例れい子こ：

MsgBox "Hello World"

以.vbs文ぶん件けん保存ほぞん。再さい使用しようcscript.exe或あるwscript.exe执行。

一个更复杂的例子中，示しめせ出で了りょう使用しようMsgBox作さく为函数すう（返かえし回かい一いち个结果はて），并使用しよう了りょう三さん个参数すう，其中第だい二个参数使用的是常量。

Dim x
' These three produce the same result. However, the use of constants as in the third line 
' is considered best practice.
x = MsgBox("Hello World:Text",1+64+4096,"Hello World:Title")
x = MsgBox("Hello World:Text",4161,"Hello World:Title")
x = MsgBox("Hello World:Text", vbOKCancel+vbInformation+vbSystemModal, _
           "Hello World:Title")

' Presents the number corresponding to the button pressed. Different constants will produce 
' different behaviours. For example, vbOKCancel specifies two buttons in the dialogue box, 
' whereas vbYesNoCancel specifies three.
x = MsgBox("Hello World:Text", vbYesNoCancel+vbInformation,"Hello World:Title")
MsgBox "The result is " & x

终止任にん务

VBScript能のう访问Windows管理かんり规范 (WMI)，就像Windows任にん务管理かんり器き。以下いか的てき代だい码执行ぎょう时将会かい终止（“杀掉”）任にん何なん关于notepad.exe的てき进程。

'Terminate all processes involving the name <strProcessToKill>
Option Explicit
Dim strComputer, strProcessToKill, objWMIService, colProcess, objProcess

strComputer = "."
strProcessToKill = "notepad.exe"
Set objWMIService = GetObject("winmgmts:" _ 
   & "{impersonationLevel=impersonate}!\\" _ 
   & strComputer _ 
   & "\root\cimv2") 
Set colProcess = objWMIService.ExecQuery _
   ("Select * from Win32_Process Where Name = '" & strProcessToKill & "'")
For Each objProcess in colProcess
   MsgBox "... terminating " & objProcess.Name
   objProcess.Terminate()
Next

使用しようOption Explicit并不是ぜ必须的てき，但ただし它被认为是ぜVBScript的てき最さい佳けい实践。

创建具有ぐゆう唯ただ一的名称的十个文件

这个实例显示如何いか创建文ぶん件けん并向它添加てんか内容ないよう。它还演えんじ示しめせ了りょう字じ符ふ串くし连接。

For i = 1 to 10
	createFile( i )
Next

Public sub createFile(a)

	Dim fso,myFile
	filePath = "C:\file_name" & a & ".txt"
	Set fso=CreateObject("Scripting.FileSystemObject")
	Set MyFile= fso.CreateTextFile( filePath)
	MyFile.WriteLine("This is a separate file")
	MyFile.close

End Sub

发送按键

SendKeys方法ほうほう模も拟一个或多个按键到活动窗口（模かたぎ拟在键盘上じょう输入）。 在ざい该示例れい中ちゅう，脚本きゃくほん发送字じ符ふ串くし“Hello World！”3次じ，每次まいじ暂停2秒びょう（2000毫秒）。SendKeys巨きょ集しゅう可能かのう会かい在ざい某ぼう些程序じょ中ちゅう失效しっこう，因いん为一些软件けん（如在安あん装そう时输入にゅう许可证密钥）将はた检查是ぜ否ひ是ぜ真正しんせい的てき按键，而不是ぜ虚きょ拟的。

set shl = createobject("wscript.shell")
shl.sendkeys "Hello World!"
wscript.sleep 2000
shl.sendkeys "Hello World!"
wscript.sleep 2000
shl.sendkeys "Hello World!"
wscript.sleep 2000

执行期き间，“Hello World!”将はた显示在ざい命令めいれい提示ていじ符ふ。

Windows文ぶん件けん操作そうさ

对象FileSystemObject执行一いち些文件けん操作そうさ（例れい如测试一个文件是否存在），并且还创建けん一いち个文本文ほんぶん件けん（一いち个TextStream对象）。

myfilename = "C:\Wikipedia - VBScript - Example - Hello World.txt"
MakeHelloWorldFile myfilename

Sub MakeHelloWorldFile (FileName)
'Create a new file in C: drive or overwrite existing file
   Set FSO = CreateObject("Scripting.FileSystemObject")
   If FSO.FileExists(FileName) Then 
      Answer = MsgBox ("File " & FileName & " exists ... OK to overwrite?", vbOKCancel)
      'If button selected is not OK, then quit now
      'vbOK is a language constant
      If Answer <> vbOK Then Exit Sub
   Else
      'Confirm OK to create
      Answer = MsgBox ("File " & FileName & " ... OK to create?", vbOKCancel)
      If Answer <> vbOK Then Exit Sub
   End If
   'Create new file (or replace an existing file)
   Set FileObject = FSO.CreateTextFile (FileName)
   FileObject.WriteLine "Time ... " & Now()
   FileObject.WriteLine "Hello World"
   FileObject.Close()
   MsgBox "File " & FileName & " ... updated."
End Sub

MakeHelloWorldFile将しょう会かい在ざい按下按钮后きさき于C:\ 驱动器き根ね目め录创建けん（若わか已やめ经存在そんざい则更新こうしん）一个小文本文件。

Excel对象操作そうさ

Option Explicit '所有しょゆう变量必须显式声明せいめい

Dim app,workbook,sheet
Dim row,col

Set app = WScript.CreateObject("Excel.Application")
app.Visible = True
Set workbook = app.WorkBooks.Add

Set sheet = workbook.Worksheets(1)
'10x10 random value
For row = 1 To 10
  For col = 1 To 10
    sheet.Cells(row,col).Value = CInt(Int((100 * Rnd()) + 1))
  Next
Next

Set sheet = workbook.Worksheets(2)
'10x10 random value
sheet.Range("A1:J10").Formula = "=Int(Rand() * 100 + 1)"

语言

VBScript主要しゅよう的てき优点有ゆう：

• 由よし于VBScript由よし操作そうさ系けい统，而不是ぜ由よし网页浏览器き解かい释，它的文ぶん件けん比ひ较小。
• 易学えきがく。
• 在ざい所有しょゆう2000 / 98SE以后的てきWindows版本はんぽん都と可か直接ちょくせつ使用しよう。
• 可か以使用しよう其它程ほど序じょ和わ可か使用しよう的てき物件ぶっけん（尤ゆう其是Microsoft Office）。

缺点けってん有ゆう：

• 现在VBS无法作さく为电子こ邮件的てき附ふ件けん了りょう。Microsoft Outlook拒こばめ绝接受せつじゅVBS为附件けん，收おさむ信人のぶと无法直接ちょくせつ使用しようVBS附ふ件けん。
• VBS的てき各かく种编辑器不ふ受欢迎むかえ。
• 操作そうさ系けい统没有ゆう任にん何なん特とく别的保ほ护设施ほどこせ。VBS程ほど序じょ与あずか其它JS、EXE、BAT或あるCMD程ほど序じょ一いち样对待まち。操作そうさ系けい统没有ゆう监察恶意功こう能のう的てき能力のうりょく。

和かずVB的てき对比

不能ふのう为变量定りょうてい义类型がた

在ざいVB中ちゅう，为变量定りょうてい义类型がた使用しよう“Dim 变量名めい As 类型”的てき语句格式かくしき。

但ただし是ぜ在ざいVBScript中ちゅう这样写うつし是ぜ错误的てき，VBScript中ちゅう的てき变量都と是ぜ弱じゃく类型（即そくVariant变体），因いん此它不ふ需要じゅよう指定してい类型。只ただ能のう使用しよう“Dim 变量名めい”的てき格式かくしき，解かい释器会かい自じ动根据すえ赋值的てき类型定てい义变量りょう类型。

不能ふのう使用しよう条件じょうけん编译

在ざいVB中ちゅう，可か以使用しよう#If…Then、#ElseIf…Then、#Else、#End If、#Const… = …等とう语句定てい义编译时使用しよう的てき语句

而由于VBScript不ふ需要じゅよう编译即そく可か被ひWSH（Windows Script Host）直接ちょくせつ解かい释执行ぎょう，所以ゆえん并不需要じゅよう条件じょうけん编译语句。

安全あんぜん性せい

微ほろ软决定ていOutlook和わOutlook Express中なか的てきHTML邮件可か以使用しようVBScript后きさき出で现了许多利用りようWindows Script Host和わActiveX的てき功こう能のう的てき电脑病毒びょうどく。这些病毒びょうどく之の所以ゆえん能のう够传播开来らい也是因いん为一开始这些系统功能完全未受保护。虽然VBScript和わJavaScript使用しよう同どう样的使用しよう操作そうさ系けい统的功こう能のう的てき安全あんぜん措施，今こん天てん这些功こう能のう被ひ看み作づく不ふ符合ふごう标准。

一般很难保护VBScript的てき程ほど序じょ码不被ひ用よう户看到いた。

外部がいぶ链接

• VBScript User's Guide （页面存そん档备份，存そん于互联网档案あん馆）
• VBScript Language Reference （页面存そん档备份，存そん于互联网档案あん馆）