Get hard drive serial number

[Undo]

Hello

I want to get hard drive serial number

I use this code, but its give me the serial number starting with big space, like this
( SPACE ) 33LDW6PVT
PHOTO : https://drive.google.com/open?id=1hK...U60ywP0cgKrbSt
I want it without the space like this
33LDW6PVT

what can i do?

Dim s As String
Dim itm As Object
With GetObject("winmgmts:\\.\root\CIMV2")
For Each itm In .ExecQuery("SELECT * FROM Win32_DiskDrive", , 48)
s = itm.SerialNumber
Next itm
End With
End Sub

thanks

[AliGW]

Via VBA: https://docs.microsoft.com/en-us/off...trim-functions

Via Excel: =TRIM(A1)

[YasserKhalil]

Try

s = itm.SerialNumber
Debug.Print Trim(s)

[Undo]

thanks all solved

[Marc L]

An alternative :

Function FindDiskSerial$(DEV$)
    Dim oDisks As Object, oDisk As Object
    Set oDisks = GetObject("winmgmts:\\.\root\cimv2").ExecQuery("Select * from Win32_LogicalDisk where DeviceID = '" & DEV & "'")
    For Each oDisk In oDisks:  FindDiskSerial = oDisk.VolumeSerialNumber:  Next
    Set oDisks = Nothing
End Function

Sub DemoFindDiskSerial()
    Debug.Print FindDiskSerial("D:")
End Sub 

Do you like it ? So thanks to click on bottom left star icon « ★ Add Reputation » !

[Marc L]

Thanks for the rep' !