Creating Virtual Directory from script

[JDeats]

I have a function that creates a new Virtual Directory. I would like
to alter this function so that it sets a few properties on this new
virtual directory, namely I want to make it so "Execute Permissions"
are set to "Scripts Only" (currently this defaults to "None". Also I
want to make the new virtual directory an application (as if I created
the virtual directory manually and clicked the "Create Application"
button on the vd properties.

Thanks,
-J

Public Function CreateVirtualDir(aPath As String, Name As String,
ServerName As String) As Boolean
Dim Root
Dim rtn As Boolean
Dim Dir

rtn = True
On Error Resume Next

Set Root = GetObject("IIS://" & ServerName & "/W3SVC/1/ROOT")

Set Dir = Root.Create("IIsWebVirtualDir", Name)
Dir.Path = aPath
Dir.AccessRead = True
Dir.AccessWrite = True
Dir.AppCreate = True
Dir.EnableDirBrowsing = False

Dir.AppFriendlyName = Name
Dir.SetInfo

Set Dir = Nothing
Set Root = Nothing

If (Err.Number <> 0) Then

'MsgBox "Web Server doesn't exist"
rtn = False
End If
End Function