Get the Drive Serial Number

Get the Drive Serial Number

You can get the serial number of your hard drive, floppy disk, or CD-ROM easily without any additional ActiveX component. First, start a VB project, add a standard module, and place a Command Button control on the form:

'-- Module codePrivate 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) As LongPublic Function GetSerialNumber( _	ByVal sDrive As String) As Long	If Len(sDrive) Then		If InStr(sDrive, "\") = 1 Then			' Make sure we end in backslash for UNC			If Right$(sDrive, 1) <> "" Then				sDrive = sDrive & ""			End If		Else			' If not UNC, take first letter as drive			sDrive = Left$(sDrive, 1) & ":"		End If	Else		' Else just use current drive		sDrive = vbNullString	End If		' Grab S/N -- Most params can be NULL	Call GetVolumeInformation( _		sDrive, vbNullString, 0, GetSerialNumber, _		ByVal 0&, ByVal 0&, vbNullString, 0)End Function'-- Form codePrivate Sub Command1_Click()	Dim Drive As String	Drive = InputBox("Enter drive for checking SN")	MsgBox Hex$(GetSerialNumber(Drive))End Sub
Share the Post:
Heading photo, Metadata.

What is Metadata?

What is metadata? Well, It’s an odd concept to wrap your head around. Metadata is essentially the secondary layer of data that tracks details about the “regular” data. The regular

XDR solutions

The Benefits of Using XDR Solutions

Cybercriminals constantly adapt their strategies, developing newer, more powerful, and intelligent ways to attack your network. Since security professionals must innovate as well, more conventional endpoint detection solutions have evolved

AI is revolutionizing fraud detection

How AI is Revolutionizing Fraud Detection

Artificial intelligence – commonly known as AI – means a form of technology with multiple uses. As a result, it has become extremely valuable to a number of businesses across

AI innovation

Companies Leading AI Innovation in 2023

Artificial intelligence (AI) has been transforming industries and revolutionizing business operations. AI’s potential to enhance efficiency and productivity has become crucial to many businesses. As we move into 2023, several