Code to get a fixed hard drive code, not changed when USB is plugged in

[Excelpromax123]

Hello everyone. I have used the code below to get the hard drive code, but when I plug in the USB or connect another printer, the code gets the code from the USB or the printer. So is there a way to only get the hard drive code, even if an external device is plugged into the computer or not? Thank you

Function GetDDSerialNumber(Optional sHost As String = ".") As String
On Error Resume Next
    Dim oWMI                  As Object
    Dim oDDs                As Object
    Dim oDD                 As Object
    Set oWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & sHost & "\root\cimv2")
    Set oDDs = oWMI.ExecQuery("SELECT DeviceID, SerialNumber FROM Win32_DiskDrive")
    For Each oDD In oDDs
       GetDDSerialNumber = GetDDSerialNumber & Trim(oDD.SerialNumber)
    Next
End Function

 

[sinoyon780]

Yes, you can modify the code to only get the hard drive code, even if an external device is plugged into the computer or not. Here's an example of how you can modify the code to achieve this:

Function GetDDSerialNumber(Optional sHost As String = ".") As String On Error Resume Next Dim oWMI As Object Dim oDDs As Object Dim oDD As Object Set oWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\" & sHost & "\root\cimv2") Set oDDs = oWMI.ExecQuery("SELECT DeviceID, MediaType, SerialNumber FROM Win32_DiskDrive") For Each oDD In oDDs If oDD.MediaType = "Fixed hard disk media" Then GetDDSerialNumber = Trim(oDD.SerialNumber) Exit For End If Next End Function

In the code above, the MediaType property of the Win32_DiskDrive class is checked, and the code only gets the serial number of the fixed hard disk media.