Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

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


Определить серийный номер процессора:
2009-10-21 08:00 Александр
Определить серийный номер процессора: 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


В избранное