Quote:

On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_LogicalDisk",,48)
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFH = oFSO.CreateTextFile("driveinfo.txt",True)

For Each objItem in colItems
oFH.Write "SystemName: " & objItem.SystemName & vbCrLf
oFH.Write "VolumeName: " & objItem.VolumeName & vbCrLf
oFH.Write "VolumeSerialNumber: " & objItem.VolumeSerialNumber & vbCrLf
oFH.Write "InstallDate: " & objItem.InstallDate & vbCrLf
oFH.Write "Description: " & objItem.Description & vbCrLf
oFH.Write "DriveType: " & objItem.DriveType & vbCrLf
oFH.Write "MediaType: " & objItem.MediaType & vbCrLf
oFH.Write "FileSystem: " & objItem.FileSystem & vbCrLf
oFH.Write "Status: " & objItem.Status & vbCrLf
oFH.Write "StatusInfo: " & objItem.StatusInfo & vbCrLf
oFH.Write "DeviceID: " & objItem.DeviceID & vbCrLf
oFH.Write "Name: " & objItem.Name & vbCrLf
oFH.Write "FreeSpace: " & objItem.FreeSpace & vbCrLf
oFH.Write "-------------------------------------------------------------" & vbCrLf & vbCrLf
Next

oFH.Close