HDD için fiziksel numara kullanırsanız formattan sonra da değişmez..
Kod:
Sub beab()
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
"SELECT * FROM Win32_PhysicalMedia WHERE SerialNumber <> null", , 48)
For Each objItem In colItems
msgbox Trim(objItem.SerialNumber)
Next
End Sub