Switch(Erl = 0, '', Erl 0, vbCrLf & 'Line No: ' & Erl) _ 'Error Description: ' & Err.Description & _ 'Error Source: GetHDSN4PrimaryHD' & vbCrLf & _ 'Error Number: ' & Err.Number & vbCrLf & _ MsgBox 'The following error has occurred' & vbCrLf & vbCrLf & _ If Not oWMI Is Nothing Then Set oWMI = Nothing If Not oDiskDrives Is Nothing Then Set oDiskDrives = Nothing If Not oDiskDrive Is Nothing Then Set oDiskDrive = Nothing If Not oPartitions Is Nothing Then Set oPartitions = Nothing If Not oPartition Is Nothing Then Set oPartition = Nothing If Right(GetHDSN4PrimaryHD, 1) = ',' Then GetHDSN4PrimaryHD = Left(GetHDSN4PrimaryHD, Len(GetHDSN4PrimaryHD) - 1) GetHDSN4PrimaryHD = GetHDSN4PrimaryHD & Trim(oDiskDrive.SerialNumber) & ',' Set oWMI = GetObject('winmgmts: WHERE AssocClass = ' & _įor Each oDiskDrive In oDiskDrives 'Shouldn't really be a loop ' optional, so by leaving it blank it will query the local computer ' sHost : Name/IP Address of the PC to query assuming you have the rights to do so

' Req'd Refs: Uses Late Binding, so none required ' Copyright : The following is release as Attribution-ShareAlike 4.0 International ' Purpose : Retrieve the BIOS Serial Number ' Author : Daniel Pineault, CARDA Consultants Inc. Using the same technique, but switching over to using the Win32_BIOS class we can once again easily gather this information.īelow is a function that retrieves the BIOS Serial Number using WMI. As part of the same discussion as with my previous post VBA – Get Processor Id the user also wanted to determine the PC’s BIOS Serial Number.

Windows 8 serial number in bios