好的阿杰，我帮你整理一份 VBScript 脚本语言编程与自动化运维操作学习指南，涵盖基础语法、实用技巧及运维应用示例。

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

一、VBScript 简介

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

二、基础语法

1. 注释

' 单行注释

2. 变量声明

Dim name
name = "阿杰"

3. 数据类型

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

4. 条件语句

If age >= 18 Then
    WScript.Echo "成年人"
Else
    WScript.Echo "未成年人"
End If

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

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)

三、文件操作

1. 创建和写入文件

Dim fso, file
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.CreateTextFile("C:\test.txt", True)
file.WriteLine "Hello VBScript"
file.Close

2. 读取文件

Set file = fso.OpenTextFile("C:\test.txt", 1)
Do While Not file.AtEndOfStream
    WScript.Echo file.ReadLine
Loop
file.Close

四、自动化运维操作示例

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

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

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

五、实用技巧

  1. 调试脚本：
cscript //nologo script.vbs
  1. 在 Windows 任务计划程序中自动执行 VBScript
  2. 结合 Excel/Outlook 自动化办公
  3. 处理异常：
On Error Resume Next
' 可能出错的代码
If Err.Number <> 0 Then
    WScript.Echo "错误: " & Err.Description
End If

💡 总结

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