' From the book: "Windows XP Cookbook"
' ISBN: 0596007256

' ------ SCRIPT CONFIGURATION ------
strComputer = "."
' ------ END CONFIGURATION ---------
WScript.Echo "Physical Disks:"
set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
set colDisks = objWMI.ExecQuery("select * from Win32_DiskDrive")
for each objDisk in colDisks
 WScript.Echo " Caption: " & vbTab & objDisk.Caption
 WScript.Echo " Device ID: " & vbTab & objDisk.DeviceID
 WScript.Echo " Manufacturer: " & vbTab & objDisk.Manufacturer
 WScript.Echo " Media Type: " & vbTab & objDisk.MediaType
 WScript.Echo " Model: " & vbTab & objDisk.Model
 WScript.Echo " Name: " & vbTab & objDisk.Name
 WScript.Echo " Partitions: " & vbTab & objDisk.Partitions
 WScript.Echo " Size: " & vbTab & objDisk.Size 
 WScript.Echo " Status: " & vbTab & objDisk.Status 
 WScript.Echo
next

WScript.Echo
WScript.Echo "Logical Disks:"
set colDisks = objWMI.ExecQuery("select * from Win32_LogicalDisk")
for each objDisk in colDisks
 WScript.Echo " DeviceID: " & objDisk.DeviceID 
 WScript.Echo " Description: " & objDisk.Description 
 WScript.Echo " VolumeName: " & objDisk.VolumeName 
 WScript.Echo " DriveType: " & objDisk.DriveType 
 WScript.Echo " FileSystem: " & objDisk.FileSystem 
 WScript.Echo " FreeSpace: " & objDisk.FreeSpace 
 WScript.Echo " MediaType: " & objDisk.MediaType 
 WScript.Echo " Name: " & objDisk.Name 
 WScript.Echo " Size: " & objDisk.Size 
 WScript.Echo
next