如何检查哪个盘是光驱动,系统环境变量

Question

<script language="JavaScript">
<!--
function ShowDriveType(drvpath)
{
   var fso, d, s, t;
   fso = new ActiveXObject("Scripting.FileSystemObject");
   d = fso.GetDrive(drvpath);
   
   switch (d.DriveType)
   {
      case 0:
t = "Unknown";
break;
      case 1:t = "Removable"; break;
      case 2:t = "Fixed"; break;
      case 3:t = "Network"; break;
      case 4:t = "CD-ROM"; break;
      case 5:t = "RAM Disk"; break;   }
   
   s = "Drive " + d.DriveLetter + "：- " + t;
   return(s);
}alert(ShowDriveType("g:\\"));
//-->
</script>