[分享] 使用WMI取得系統資訊 WMI

Min

Dim system, itm
    Dim i As Integer
   
    Worksheets("Tmp").Select
    i = 1
    Set system = GetObject("winmgmts:").InstancesOf("Win32_ComputerSystem")
    For Each itm In system
        Debug.Print "電腦名稱: " & itm.Name
        Debug.Print "狀態: " & itm.Status
        Debug.Print "類型: " & itm.SystemType
        Debug.Print "生產廠家: " & itm.Manufacturer
        Debug.Print "型號: " & itm.Model
        Debug.Print "記憶體: ~" & itm.totalPhysicalMemory \ 1024000 & "mb"
        Debug.Print "網域(工作群組): " & itm.domain
        Debug.Print "工作組" & itm.Workgroup  '不支援Workgroup屬性
        Debug.Print "當前用戶: " & itm.UserName
        Debug.Print "啟動狀態: " & itm.BootupState
        Debug.Print "電腦屬於: " & itm.PrimaryOwnerName
        Debug.Print "系統類型: " & itm.CreationClassName
        Debug.Print "電腦類型: " & itm.Description
        '這裏假設安裝了兩個作業系統
        Debug.Print "啟動選項1 :" & itm.SystemStartupOptions(0)
        Debug.Print "啟動選項2 :" & itm.SystemStartupOptions(1)
        i = i + 1
    Next