<%
Option Explicit
Dim objFileSys
Set objFileSys = CreateObject("Scripting.FileSystemObject")
Response.write objFileSys.GetDrive("C")
Response.write objFileSys.GetDrive("D")
If IsObject(objFileSys) Then
Response.write ("<br>objFileSys is Object.")
End IF
%>