Is there a way to get a harddisk' serial number or other detail of it. Please...
thanks.
Printable View
Is there a way to get a harddisk' serial number or other detail of it. Please...
thanks.
yes, and i'm just working on it.
here is wthe code:
good luck :)Code:Option Explicit
Private Declare Function GetVolumeInformation& Lib "kernel32" _
Alias "GetVolumeInformationA" (ByVal lpRootPathName _
As String, ByVal pVolumeNameBuffer As String, ByVal _
nVolumeNameSize As Long, lpVolumeSerialNumber As Long, _
lpMaximumComponentLength As Long, lpFileSystemFlags As _
Long, ByVal lpFileSystemNameBuffer As String, ByVal _
nFileSystemNameSize As Long)
Const MAX_FILENAME_LEN = 256
Public Function SerNum(Drive$) As Long
Dim No&, s As String * MAX_FILENAME_LEN
Call GetVolumeInformation(Drive + ":\", s, MAX_FILENAME_LEN, _
No, 0&, 0&, s, MAX_FILENAME_LEN)
SerNum = No
End Function
Sub GetSer()
MsgBox SerNum(InputBox("Please enter the drive of which you desire the serial number", "Serials"))
End Sub
It good work for your reply, Thanks david.
don't mention it, maybe one day you'll help me