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

[µo°Ý] ¦p¦ó¨ú±o CPU §Ç¸¹?

¦^´_ 1# Scott090
  1. Sub §ìCPU§Ç¸¹()

  2. Dim CPUSet

  3. ' §Q¥ÎWMI(WindowsºÞ²z³W½d)¨ú±oCPU¸ê°T
  4. Set CPUSet = GetObject("winmgmts:").ExecQuery _
  5.    ("Select * from Win32_Processor")

  6. For Each CPU In CPUSet
  7.     MsgBox "Caption: " & CPU.Caption & vbCrLf & "CPU ID: " & CPU.ProcessorId
  8. Next

  9. End Sub
½Æ»s¥N½X
diabo

TOP

        ÀR«ä¦Û¦b : ¦³Ä@©ñ¦b¤ß¸Ì¡A¨S¦³¨­Åé¤O¦æ¡A¥¿¦p¯Ñ¥Ð¤£¼½ºØ¡A¬Ò¬OªÅ¹L¦]½t¡C
ªð¦^¦Cªí ¤W¤@¥DÃD