Маразмы

Set fso = CreateObject("Scripting.FileSystemObject")
Set dc = fso.Drives

'WScript.Echo dc.Count
For Each d in dc
'  WScript.Echo d.DriveLetter, d.DriveType
  If d.DriveType = 4 then Exit For
 Next

WScript.Echo d.DriveLetter & ":"

Set dc = Nothing
Set fso = Nothing

и два:

for /f %I in ('cscript //nologo findCD.vbs') do cd /d %I