swVBA自学笔记009、获取电脑设备名（代码示例）

一、创建类模块

• 类模块的名称：类1_获取当前计算机名
• 类模块的文件：类1_获取当前计算机名.cls

🍔废话不多说代码如下：

Option Explicit

' 类模块：类1_获取当前计算机名
' 功能：获取当前计算机的名称

' 获取当前计算机名称
' 返回值：字符串类型的计算机名，获取失败则返回空字符串
Public Function 获取计算机名() As String
    Dim objWMI As Object
    Dim colItems As Object
    Dim objItem As Object
    Dim computerName As String
    
    On Error Resume Next
    
    ' 通过WMI获取计算机系统信息
    Set objWMI = GetObject("winmgmts:\\.\root\cimv2")
    Set colItems = objWMI.ExecQuery("Select * from Win32_ComputerSystem")
    
    ' 提取计算机名
    For Each objItem In colItems
        computerName = objItem.Name
        Exit For ' 只需要第一个结果
    Next
    
    ' 备选方案：如果WMI方法失败，尝试使用环境变量
    If computerName = "" Then
        computerName = Environ("COMPUTERNAME")
    End If
    
    获取计算机名 = computerName
    
    ' 清理对象
    Set objItem = Nothing
    Set colItems = Nothing
    Set objWMI =