A starting point to grab disk infos:
Set fso = CreateObject("Scripting.FileSystemObject")
Set dc = fso.Drives
For Each d in dc
n = ""
s = s & d.DriveLetter & " - "
If d.DriveType = Remote Then
n = d.ShareName
ElseIf d.IsReady Then
n = d.VolumeName & " SN:" & Left(Hex(d.SerialNumber),4) & "-" & Right(Hex(d.SerialNumber),4)
End If
s = s & n & vbCrLf
Next
MsgBox s
Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244