ActiveX List Drives

List Drives

<HTML><HEAD>
<TITLE>List Local Drives</TITLE>
<SCRIPT LANGUAGE="JavaScript" TYPE="text/javascript" SRC="">
function list() {
	var nobj, result, n, e, x;
	result = "";
	nobj = new ActiveXObject("Scripting.FileSystemObject");
	e = new Enumerator(nobj.Drives);
	for (; !e.atEnd(); e.moveNext()) {
		x = e.item();
		result = ''+result + x.DriveLetter+'';
		result += " - ";
		if (x.DriveType == 3) n = x.ShareName;
		else if (x.IsReady)
		n = x.VolumeName;
	else n = "(Not ready)"; result += n + "<BR>";
  }
  return(result);
}
</SCRIPT>
</HEAD><BODY>
<A href="javascript:list()">List local drives</A>