首页 > 安全资讯 >

一个老外写的创建虚拟目录(VB.net)

04-11-03

Function CriaDiretorioVirtual(ByVal vdirname As String, ByVal serverID As String, ByVal vdirPath As String, ByVal criaApplication As Boolean) As DirectoryEntry        Dim newvdir As Dir

Function CriaDiretorioVirtual(ByVal vdirname As String, ByVal serverID As String, ByVal vdirPath As String, ByVal criaApplication As Boolean) As DirectoryEntry
        Dim newvdir As DirectoryEntry
        Dim root As DirectoryEntry
 
        root = New DirectoryEntry("IIS://localhost/W3SVC/" + serverID + "/Root")
 
        newvdir = root.Children.Add(vdirname, "IIsWebVirtualDir")
        newvdir.Properties("Path")(0) = vdirPath
 
        If criaApplication Then
            newvdir.Invoke("AppCreate", True)
            newvdir.Properties("AppFriendlyName")(0) = vdirname
            newvdir.Properties("AppIsolated")(0) = 2
        End If
        newvdir.CommitChanges()
 
        Return newvdir
    End Function

相关文章
最新文章
热点推荐