vba 如何获取计算机信息

在VBA（Visual Basic for Applications）中，你可以使用`WshShell`对象来获取计算机的一些信息。以下是一些获取计算机信息的示例代码：

1. 获取计算机名：

```vba

Dim WshShell As Object

Set WshShell = CreateObject("WScript.Shell")

MsgBox "计算机名: " & WshShell.ExpandEnvironmentStrings("%COMPUTERNAME%")

Set WshShell = Nothing

```

2. 获取操作系统版本：

```vba

Dim WshShell As Object

Set WshShell = CreateObject("WScript.Shell")

MsgBox "操作系统版本: " & WshShell.ExpandEnvironmentStrings("%OS%")

Set WshShell = Nothing

```

3. 获取CPU信息：

```vba

Dim WshShell As Object

Set WshShell = CreateObject("WScript.Shell")

MsgBox "CPU信息: " & WshShell.ExpandEnvironmentStrings("%PROCESSOR_ARCHITECTURE%")

Set WshShell = Nothing

```

4. 获取物理内存大小：

```vba

Dim WshShell As Object

Set WshShell = CreateObject("WScript.Shell")

MsgBox "物理内存大小: " & WshShell.ExpandEnvironmentStrings("%PhysicalMemory%")

Set WshShell = Nothing

```

5. 获取用户名：

```vba

Dim WshShell As Object

Set WshShell = CreateObject("WScript.Shell")

MsgBox "用户名: " & WshShell.ExpandEnvironmentStrings("%USERNAME%")

Set WshShell = Nothing

```

请注意，这些代码片段使用了Windows环境变量来获取信息。`%COMPUTERNAME%`、`%OS%`、`%PROCESSOR_ARCHITECTURE%`、`%PhysicalMemory%`和`%USERNAME%`是预定义的环境变量，可以直接在VBA中使用。

如果你需要获取更详细的信息，可以使用Windows Management Instrumentation (WMI) 来查询。以下是一个使用WMI获取物理内存大小的示例：

```vba

Dim objWMIService As Object

Dim colMemory As Object

Dim objMemory As Object

Set objWMIService = GetObject("winmgmts:.rootcimv2")

Set colMemory = objWMIService.ExecQuery("Select from Win32_ComputerSystem")

For Each objMemory in colMemory

MsgBox "物理内存大小: " & objMemory.TotalPhysicalMemory

Next

Set colMemory = Nothing

Set objWMIService = Nothing

```

使用WMI可以获取更多关于计算机的信息，但需要更多的代码来查询不同的WMI类和属性。