' This code enumerates the physical and logical disks on a system.
' ---------------------------------------------------------------
' From the book "Windows Server Cookbook" by Robbie Allen
' ISBN: 0-596-00633-0
' ---------------------------------------------------------------
' ------ 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