VB 获取本机当前操作系统的详细信息，VB 获取本机当前操作系统详细信息，VB 获取本机当前操作系统信息，VB 获取本机当前系统详细信息，VB 获取本机当前操作系统信息，VB 获取本机当前系统信息，VB 获取本机系统详细信息，VB 获取当前系统详细信息，VB 获取本机系统信息，VB 获取当前系统信息，VB 获取系统详细信息，VB 获取系统信息，VB 系统信息，VB 系统，GetObject("winmgmts:").InstancesOf("Win32_ComputerSystem")，System，计算机名称: Item.Name，状态: Item.Status，类型: Item.SystemType，生产厂家: Item.Manufacturer，型号: Item.Model，内存：Item.totalPhysicalMemory \ 1024 \ 1024 & "MB"，域: Item.domain，工作组 " & Item.Workgroup"，当前用户: Item.username，启动状态: Item.BootupState，该计算机属于: Item.PrimaryOwnerName，系统类型: Item.CreationClassName，计算机类型: Item.Description，启动选项: Item.SystemStartupOptions。

VB 获取本机当前操作系统的详细信息：

Dim System, item, i  As Integer
Set System = GetObject("winmgmts:").InstancesOf("Win32_ComputerSystem")
For Each item In System
    MsgBox ("计算机名称: " & item.Name)
    MsgBox ("状态: " & item.Status)
    MsgBox ("类型: " & item.SystemType)
    MsgBox ("生产厂家: " & item.Manufacturer)
    MsgBox ("型号: " & item.Model)
    MsgBox ("内存: " & item.totalPhysicalMemory \ 1024 \ 1024 & "MB")
    MsgBox ("域: " & item.domain)
    MsgBox ("工作组" & item.Workgroup)
    MsgBox ("当前用户: " & item.username)
    MsgBox ("启动状态: " & item.BootupState)
    MsgBox ("该计算机属于: " & item.PrimaryOwnerName)
    MsgBox ("系统类型: " & item.CreationClassName)
    MsgBox ("计算机类型: " & item.Description)
    For i = 0 To 1                                                              '这里假设安装了两个系统
        MsgBox ("启动选项" & i & ": " & item.SystemStartupOptions(i))
    Next i
Next