<%
Sub ShowDriveInfo(drvpath)
Dim fs, d, s, t
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(drvpath)))
Select Case d.DriveType
Case 0: t = "未知"
Case 1: t = "可移动"
Case 2: t = "固定"
Case 3: t = "网络"
Case 4: t = "CD-ROM"
Case 5: t = "RAM 磁盘"
End Select
s = "驱动器 " & d.DriveLetter & ": - " & t
s = s & vbCrLf & "序列号: " & d.SerialNumber
response.Write(s)
End Sub
call ShowDriveInfo("c:\")
%>
别一形式
<%
On Error Resume Next
Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objSWbemService = objSWbemLocator.ConnectServer ()
if Err = 0 Then
Set objDisk = objSWbemService.Get ("Win32_LogicalDisk")
Set objPath = objDisk.Path_
objDisk.Security_.ImpersonationLevel = 3
Set objcolDisks = objDisk.Instances_
%> <P>对象的路径 <%=objPath.DisplayName%> <TABLE BORDER>
<TR>
<TH>磁盘</TH>
<TH>磁盘卷名</TH>
<TH>卷序列号</TH>
</TR> <%
for each DiskInstance in objcolDisks
%>
<TR>
<TD><%=DiskInstance.Name%></TD>
<TD><%=DiskInstance.VolumeName%></TD>
<TD><%=DiskInstance.VolumeSerialNumber%></TD>
</TR>
<%
Next
%>
<%
Else
%>
<P>Error - <%=Err.Description%>, <%=Err.Number%>, <%=Err.Source%>
<%
end if
%>