Uso questa funzione per creare virtual directory e funziona benissimo, ma solo se le creo sotto la root del sito, altrimenti mi da il seguente errore:
"Exception from HRESULT: 0x80005006."

perchè? Se nella variabile sIISPath ci aggiungo il nome di una virtual dir esistente (es. WebApplication1) la creazione va in errore. La funzione è questa:

Function CreateVirDir(ByVal sPhysicalPath As String, ByVal sVirDirName As String) As Boolean
Dim b As Boolean = False
Try
Dim oDE As System.DirectoryServices.DirectoryEntry
Dim oDs As System.DirectoryServices.DirectoryEntries

Dim oVirDir As DirectoryServices.DirectoryEntry
Dim sIISPath As String = "IIS:\\" & Request.Url.Host & Request.ServerVariables("INSTANCE_META_PATH").Replace("/LM", "").Replace("/", "\") & "\Root"
If VirDirExists(sIISPath) Then
oDE = New DirectoryServices.DirectoryEntry(sIISPath)
oDs = oDE.Children
oVirDir = oDs.Add(sVirDirName, oDE.SchemaClassName)
oVirDir.CommitChanges()
oVirDir.Properties("Path")(0) = sPhysicalPath
oVirDir.Properties("AccessRead")(0) = True
oVirDir.Properties("AccessWrite")(0) = False
oVirDir.CommitChanges()
b = True
Else
b = False
End If
Catch ex As Exception
b = False
Finally
End Try
Return b
End Function