Serial Number of Drive

Here is a short macro I have used to Dump all environ characteristics. When I ran it a moment ago, it did not show any serial numbers for hard drives.

Sub ENVIRON_DUMP()
Dim nCount As Integer
nCount = 1
    Do Until Environ(nCount) = ""
        Cells(nCount, 1).Value = Environ(nCount)
           nCount = nCount + 1
    Loop
End Sub

however a quick google search found the following:

http://excelexperts.com/getting-hard...-serial-number

I hope this helps

Function DriveSerialNumber(sDriveSpec As String) As Long
  ' Returns the serial number of the specified drive

  ' sDriveSpec argument can be
  '  o  a drive letter ("C")
  '  o  a drive letter with a colon appended ("C:")
  '  o  a drive letter with a colon and path separator appended ("C:\")
  '  o  a network share specification ("\\computer2\share1")

  ' Returns 0 if not found

  On Error Resume Next
  DriveSerialNumber = CreateObject("Scripting.FileSystemObject").GetDrive(sDriveSpec).SerialNumber
End Function

E.g.,

MsgBox DriveSerialNumber("C")