' LogicalDisk.vbs
' Sample VBScript to display logical disk information
' Author Guy Thomas http://computerperformance.co.uk/
' Version 2.6 - November 2005
' -------------------------------------------------------' 
Option Explicit
Dim objWMIService, objItem, colItems, strComputer

strComputer = "."
' On Error Resume Next

' WMI Section to connect to CIM2 library
Set objWMIService = GetObject("winmgmts:\\" _
& strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery _
("Select * from Win32_LogicalDisk")

' Loop to enumerate LogicalDisk properties
For Each objItem in colItems
Wscript.Echo _
"SystemName: " & objItem.SystemName & vbCr & _ 
"===============================" & vbCr & _ 
"Name: " & vbTab & objItem.Name & vbCr & _ 
"Caption: " & vbTab & objItem.Caption & vbCr & _ 
"DeviceID: " & objItem.DeviceID & vbCr & _ 
"VolumeName: " & objItem.VolumeName & vbCr & _ 
"DriveType: " & objItem.DriveType & vbCr & _ 
"Description: " & objItem.Description & vbCr & _ 
"FileSystem: " & objItem.FileSystem & vbCr & _ 
"FreeSpace: "& vbTab & objItem.FreeSpace & vbCr & _ 
"Size: " & vbTab & vbTab & objItem.Size & vbCr & _ 
"" 
Next
WScript.Quit

' End of Sample LogicalDisk VBScript