harddisk serial number değerini edinmek için,farklı yöntemler mevcut.bunlardan bir diğer alternatif yöntem olarak şu kodları da deneyebilirsiniz.
Kod:
Function HDSerialNumber() As String
Dim fsObj As Object
Dim drv As Object
Set fsObj = CreateObject("Scripting.FileSystemObject")
Set drv = fsObj.Drives("C")
HDSerialNumber = Left(Hex(drv.SerialNumber), 4) & "-" & Right(Hex(drv.SerialNumber), 4)
End Function
ayrıca,formun YÜKLENDİĞİNDE olay yordamına da
Kod:
Me.Vol.Caption = HDSerialNumber