:confused: :mad: :eek: :cool: :rolleyes:
Printable View
:confused: :mad: :eek: :cool: :rolleyes:
You can use the filesystemobject to get the serial number of a HD. Do a search on this forum for examples.
I'll continue searching for your other problem.
VB 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 Public Function GetSerialNumber() As Long Dim strVolumeBuffer As String Dim strSysName As String Dim lngSerialNumber As Long Dim lngSysFlags As Long Dim lngComponentLen As Long Dim lngResult As Long strVolumeBuffer$ = String$(256, 0) strSysName$ = String$(256, 0) lngResult = GetVolumeInformation("C:\", strVolumeBuffer$, 255, lngSerialNumber, _ lngComponentLen, lngSysFlags, strSysName$, 255) GetSerialNumber = lngSerialNumber End Function