如何取得机器的所有驱动器及驱动器的类型(软驱，硬盘或光驱等等)

 1   
 2'服务器端信息   
 3dim fso,dr,tmpdrtype   
 4  
 5set fso=server.CreateObject("Scripting.FileSystemObject")   
 6  
 7set dr=fso.Drives   
 8  
 9For Each d in dr   
10tmpdrtype=d.DriveType   
11select case tmpdrtype   
12Case 0: tmpdrtype = "Unknown"   
13Case 1: tmpdrtype = "Removable"   
14Case 2: tmpdrtype = "Fixed"   
15Case 3: tmpdrtype = "Network"   
16Case 4: tmpdrtype = "CD-ROM"   
17Case 5: tmpdrtype = "RAM Disk"   
18end select   
19Response.Write d.DriveLetter & ":" & tmpdrtype   
20Next   
21set dr=nothing   
22set fso=nothing   

 1<script language="vbs">   
 2'客户端信息   
 3dim fso,dr,tmpdrtype   
 4  
 5set fso=CreateObject("Scripting.FileSystemObject")   
 6  
 7set dr=fso.Drives   
 8  
 9For Each d in dr   
10tmpdrtype=d.DriveType   
11select case tmpdrtype   
12Case 0: tmpdrtype = "Unknown"   
13Case 1: tmpdrtype = "Removable"   
14Case 2: tmpdrtype = "Fixed"   
15Case 3: tmpdrtype = "Network"   
16Case 4: tmpdrtype = "CD-ROM"   
17Case 5: tmpdrtype = "RAM Disk"   
18end select   
19msgbox d.DriveLetter & ":" & tmpdrtype   
20Next   
21set dr=nothing   
22set fso=nothing   
23</script>