19
Октябрь
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 = objWMIService.ExecQuery("SELECT * FROM Win32_BaseBoard") For Each Item In Items Debug.Print Item.SerialNumber Exit For Next