Developing.ru

Как при помощи VBA считать серийный номер железа(винта, видео и тп)?

С помощью функций WinAPI (спросите на доске по WinAPI).

Объявить в начале модуля примерно так:

Declare Sub MessageBeep Lib "User32.dll"(ByVal N As Integer)
Declare Function GetWinFlags Lib "Kernel32.dll"() As Long

Вызывать как обычные процедуры и функции