- ©«¤l
- 172
- ¥DÃD
- 39
- ºëµØ
- 20
- ¿n¤À
- 177
- ÂI¦W
- 0
- §@·~¨t²Î
- Microsoft Windows XP
- ³nÅ骩¥»
- Microsoft Office 2003
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- °ª¶¯
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2023-3-19
|
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 |
|