Vb6 - detecting serial n° from a win 8.1 machine help needed

[horazio]

Dear all,

I use the following code to detect serial n from USB devices and pcs, it works perfectly with the execptino with my win 8.1 machine, from some reason that I cant understand it cant read the serial from the hard disk.
Pleas see the code:


____________________________________________________________________________________

Private Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long
Private Const BUFFER As Long = 256

_____________________________________________________________________________________

Private Function GetSerial() As String

Dim strVolumeName As String * 256
Dim strFileSystem As String * 256
Dim lngSerialNumber As Long
Dim lngReturn As Long

Dim drivename As String
drivename = Left(App.Path, 3)
lngReturn = GetVolumeInformation(drivename, strVolumeName, BUFFER, lngSerialNumber, 0&, 0&, strFileSystem, BUFFER)

If lngReturn Then

GetSerial = Hex(Trim(lngSerialNumber))

Else

GetSerial = "NO INFO AVAILABLE "

End If

End Function
__________________________________________________________________

What should I change to make it work also for Win 8.1 ??
thanks regards

[westconn1]

is the win 8.1 x32 or 64 bit?

[horazio]

I think it's 32 bit, not sure right now cos I dont have my pc with me at the moment.
The funny thing is that it reads the serial n° from all USB devices but not from the hard disk