ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[¤À¨É] ¨Ï¥ÎWMI¨ú±o¨t²Î¸ê°T

[¤À¨É] ¨Ï¥ÎWMI¨ú±o¨t²Î¸ê°T

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 "¹q¸£¦WºÙ: " & itm.Name
        Debug.Print "ª¬ºA: " & itm.Status
        Debug.Print "Ãþ«¬: " & itm.SystemType
        Debug.Print "¥Í²£¼t®a: " & itm.Manufacturer
        Debug.Print "«¬¸¹: " & itm.Model
        Debug.Print "°O¾ÐÅé: ~" & itm.totalPhysicalMemory \ 1024000 & "mb"
        Debug.Print "ºô°ì(¤u§@¸s²Õ): " & itm.domain
        Debug.Print "¤u§@²Õ" & itm.Workgroup  '¤£¤ä´©WorkgroupÄÝ©Ê
        Debug.Print "·í«e¥Î¤á: " & itm.UserName
        Debug.Print "±Ò°Êª¬ºA: " & itm.BootupState
        Debug.Print "¹q¸£ÄÝ©ó: " & itm.PrimaryOwnerName
        Debug.Print "¨t²ÎÃþ«¬: " & itm.CreationClassName
        Debug.Print "¹q¸£Ãþ«¬: " & itm.Description
        '³oùØ°²³]¦w¸Ë¤F¨â­Ó§@·~¨t²Î
        Debug.Print "±Ò°Ê¿ï¶µ1 :" & itm.SystemStartupOptions(0)
        Debug.Print "±Ò°Ê¿ï¶µ2 :" & itm.SystemStartupOptions(1)
        i = i + 1
    Next

        ÀR«ä¦Û¦b : ¬°¤H³B¥@­n¤p¤ß²Ó¤ß¡A¦ý¤£­n¡u¤p¤ß²´¡v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD