21 Октябрь 2009

Определить серийный номер процессора:

Разное |  Таги: , ,

Определить серийный номер процессора:

Dim Computer As String
Dim WMI As Variant
Dim Items As Variant
Dim Item As Variant

Computer = "."
Set WMI = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & Computer & "\root\cimv2")
Set Items = WMI.ExecQuery("Select * from Win32_Processor")

For Each Item In Items
Debug.Print Item.ProcessorId
Next

Запись опубликована on 21.10.2009 at 9:00 и размещена в рубрике: Разное. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.



Оставить комментарий

Я не робот.