vbs语法 脚本强化例题

VBScript（VBS）是一种轻量级的脚本语言，通常用于自动化任务和简化Windows系统管理。以下是一些VBS脚本强化的例题，帮助你更好地理解和应用VBS语法。

### 例题1：文件操作

**需求**：编写一个VBS脚本，读取一个文本文件的内容并将其内容写入另一个文本文件。

' 定义文件路径
sourceFile = "C:\source.txt"
destinationFile = "C:\destination.txt"

' 创建文件系统对象
Set fso = CreateObject("Scripting.FileSystemObject")

' 检查源文件是否存在
If fso.FileExists(sourceFile) Then
    ' 打开源文件
    Set source = fso.OpenTextFile(sourceFile, 1)
    ' 打开目标文件
    Set destination = fso.OpenTextFile(destinationFile, 2, True)
    
    ' 读取源文件内容并写入目标文件
    Do While source.AtEndOfStream <> True
        destination.WriteLine source.ReadLine
    Loop
    
    ' 关闭文件
    source.Close
    destination.Close
    MsgBox "文件复制成功！"
Else
    MsgBox "源文件不存在！"
End If

### 例题2：系统信息获取

**需求**：编写一个VBS脚本，获取当前系统的操作系统版本和计算机名称。

' 创建WMI对象
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")

' 查询操作系统信息
Set colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")

' 遍历查询结果
For Each objOS in colOperatingSystems
    WScript.Echo "操作系统版本: " & objOS.Caption
    WScript.Echo "计算机名称: " & objOS.CSName
Next

### 例题3：网络信息获取

**需求**：编写一个VBS脚本，获取本地计算机的IP地址。

' 创建WMI对象
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")

' 查询网络配置信息
Set colAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled = True")

' 遍历查询结果
For Each objAdapter in colAdapters
    For Each strAddress in objAdapter.IPAddress
        WScript.Echo "IP地址: " & strAddress
    Next
Next

### 例题4：定时任务

**需求**：编写一个VBS脚本，每隔一小时弹出一个消息框提示。

' 定义时间间隔（毫秒）
interval = 3600000

' 设置定时器
Set objShell = CreateObject("WScript.Shell")
Do
    objShell.Popup "一小时过去了！", 1, "定时提醒", 64
    WScript.Sleep interval
Loop

这些例题展示了VBS脚本在不同场景下的应用，从文件操作到系统信息获取，再到网络信息和定时任务。希望这些例题能帮助你更好地理解和使用VBS语法。