VBScript脚本语言编程与自动化运维操作学习

 

💻 VBScript 脚本语言编程与自动化运维学习指南

一、VBScript 简介

• VBScript（Visual Basic Scripting Edition） 是微软推出的轻量级脚本语言。
• 特点：
  1. 语法简洁，易于上手
  2. 可嵌入 Windows 系统和 IE 浏览器
  3. 适用于系统管理、自动化运维、批量处理任务
• 运行环境：
  • Windows Script Host（WSH）
  • IE 浏览器（网页脚本）

---

二、基础语法

1. 注释

' 单行注释
php
6 Bytes
© 菜鸟-创作你的创作

2. 变量声明

Dim name
name = "阿杰"
php
20 Bytes
© 菜鸟-创作你的创作

3. 数据类型

• 字符串："Hello World"
• 数值：123 或 123.45
• 布尔：True / False
• 日期：#2025-08-19#

4. 条件语句

If age >= 18 Then
    WScript.Echo "成年人"
Else
    WScript.Echo "未成年人"
End If
php
76 Bytes
© 菜鸟-创作你的创作

5. 循环语句

' For 循环
For i = 1 To 5
    WScript.Echo i
Next
' While 循环
Dim j
j = 1
While j <= 5
    WScript.Echo j
    j = j + 1
Wend
php
122 Bytes
© 菜鸟-创作你的创作

6. 函数和子程序

' 子程序
Sub Greet(name)
    WScript.Echo "Hello, " & name
End Sub
Greet "阿杰"
' 函数
Function Sum(a, b)
    Sum = a + b
End Function
WScript.Echo Sum(5, 10)
php
154 Bytes
© 菜鸟-创作你的创作

---

三、文件操作

1. 创建和写入文件

Dim fso, file
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.CreateTextFile("C:\test.txt", True)
file.WriteLine "Hello VBScript"
file.Close
php
160 Bytes
© 菜鸟-创作你的创作

2. 读取文件

Set file = fso.OpenTextFile("C:\test.txt", 1)
Do While Not file.AtEndOfStream
    WScript.Echo file.ReadLine
Loop
file.Close
php
124 Bytes
© 菜鸟-创作你的创作

---

四、自动化运维操作示例

1. 批量创建文件夹

Dim i, folder
Set fso = CreateObject("Scripting.FileSystemObject")
For i = 1 To 5
    folder = "C:\TestFolder" & i
    If Not fso.FolderExists(folder) Then
        fso.CreateFolder(folder)
    End If
Next
php
205 Bytes
© 菜鸟-创作你的创作

2. 批量重命名文件

Dim f, folder
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder("C:\TestFolder")
For Each f In folder.Files
    f.Name = "New_" & f.Name
Next
php
172 Bytes
© 菜鸟-创作你的创作

3. 系统信息收集

Set objWMI = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMI.ExecQuery("Select * from Win32_OperatingSystem")
For Each objItem in colItems
    WScript.Echo "系统名称: " & objItem.Caption
    WScript.Echo "版本: " & objItem.Version
    WScript.Echo "安装日期: " & objItem.InstallDate
Next
php
288 Bytes
© 菜鸟-创作你的创作

---

五、实用技巧

1. 调试脚本：

cscript //nologo script.vbs
php
27 Bytes
© 菜鸟-创作你的创作

2. 在 Windows 任务计划程序中自动执行 VBScript
3. 结合 Excel/Outlook 自动化办公
4. 处理异常：

On Error Resume Next
' 可能出错的代码
If Err.Number <> 0 Then
    WScript.Echo "错误: " & Err.Description
End If
php
103 Bytes
© 菜鸟-创作你的创作

---

💡 总结

• VBScript 简单易学，适合 Windows 平台的自动化操作
• 可用于文件操作、系统管理、批量任务处理和办公自动化
• 与 WSH、Excel、Outlook 等结合，能实现强大的企业自动化运维

https://www.52runoob.com/archives/5961