+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (https://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (https://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (https://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : HDD Serial Number (/showthread.php?tid=46751)
HDD Serial Number - abuzarei - 17-08-23
Try
Clipboard.SetText(GetDriveSerialNumber())
MsgBox(GetDriveSerialNumber())
Catch exp As Exception
'MsgBox(exp.Message)
End Try
Public Function GetDriveSerialNumber() As String
Dim DriveSerial As Long
Dim fso As Object, Drv As Object
fso = CreateObject("Scripting.FileSystemObject")
Drv = fso.GetDrive(fso.GetDriveName(AppDomain.CurrentDomain.BaseDirectory))
With Drv
If .IsReady Then
DriveSerial = .SerialNumber
Else
DriveSerial = -1
End If
End With
Drv = Nothing
fso = Nothing
GetDriveSerialNumber = Hex(DriveSerial)
End Function