System 对象

Application System

该对象包含有关计算机系统的信息。

使用 System 对象

可使用 System 属性返回 System 对象。当操作系统为 Windows 时，下例进行与 \\Project\Info 的网络连接。

If System.OperatingSystem = "Windows" Then
    System.Connect Path:="\\Project\Info"
End If

下例显示当前屏幕分辨率（如“1024 x 768”）。

horz = System.HorizontalResolution
vert = System.VerticalResolution
MsgBox "Resolution = " & horz & " x " & vert