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