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