Как получить параметры железа с помощью VB

Формулировка задачи:

Как получить параметры материнской платы и винчестера используя бейсик. Те параметры что лежат в биосе, серийный номер скажем. (серийного номера вполне достаточно)

Решение задачи: «Как получить параметры железа с помощью VB»

textual
                            Листинг программы 
                        

                            Public Declare Function GetVolumeInformation Lib 'kernel32' Alias 'GetVolumeInformationA' (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long
 
Public Function GetVolumeSerial() As String
   Dim dummy1 As Long
   Dim dummy2 As Long
   Dim rc As Long
   Dim VolumeSerialNumber As Long
   rc = GetVolumeInformation('C: ', String(256, 0), 256, _
            VolumeSerialNumber, dummy1, dummy2, String(256, 0), 256)
   GetVolumeSerial = CStr(VolumeSerialNumber)
End Function
                        