'''''''''''''''''''''''''''''''''

Option Explicit

On Error Resume Next

'''''''''''''''''''''''

' First, open the path to the Web server you are

' trying to add a virtual directory to.

function CreateVirtualDir()

Dim ServObj

Dim VdirObj

Dim Testpath

Set ServObj = GetObject("IIS://LocalHost/w3svc/1/Root")

if (Err <>0) then

  debug.print "GetObject (""IIS://LocalHost/w3svc/1/Root"") Failed! <br>"

  debug.print "Error! " & Err.Number & "(" & Hex(Err.Number) & "): " & Err.Description & "<br>"

  exit function

end if

'''''''''''''''''''''''

' Second, Create the virtual directory (Vdir) path

Set VdirObj = ServObj.Create("IIsWebVirtualDir", "MyVdir")

VdirObj.SetInfo

if (Err<>0) then

  debug.print "CreateObject(""IIS://LocalHost/w3svc/1/Root/MyVdir"") Failed!"

  debug.print "Error! " & Err.Number & "(" & Hex (Err.Number) & "): " & Err.Description &

  exit function

end if

''''''''''''''''''''''''

' Finally, create a Path variable containing the virtual root path and

' set the permissions to read, script, and directory browsing

VdirObj.AccessRead = True

VdirObj.AccessScript = True

VdirObj.EnableDirBrowsing = True

Testpath = "C:\Temp"

VdirObj.Put "Path", (Testpath)

VdirObj.SetInfo

if (Err<> 0) then

  debug.print "Put (""Path"") Failed!"

  debug.print "Error! " & Err.Number & "(" & Hex (Err.Number) & "): " & Err.Description &

else

  debug.print "VDIR successfully created"

end if

''''''''''''''''''''''''

' The minimum amount necessary to create a virtual directory has now

' been completed. If you need to add more, do it here.

end function