Set fso = CreateObject("Scripting.FileSystemObject") Set drivers_collection = fso.Drives For Each d in drivers_collection WScript.Echo "TypeName(d) : " & TypeName(d) WScript.Echo "DriveLetter : " & d.DriveLetter WScript.Echo "DriveType : " & d.DriveType WScript.Echo "--------" Next