<script type="text/jscript" language="JScript">
  var
   x=new ActiveXObject('Shell.Application'),
   s='';
  for(i=1;i<100;i++){
    try{
      s+=
       '<tr><th>'+i+'&emsp;'+
       '</th><td>'+'\t'+x.NameSpace(i).self.Name+
       '</td><td>'+x.NameSpace(i).self.Path+
       '</td></tr>'
    }catch(e){};
  }
  window.onload=function(){
    document.write('<table>'+s+'</table>');
  }
</script>