CSDN博客

img nstorm

也谈用在ASP.Net中操作IIS

发表于2003/10/3 16:20:00  629人阅读

分类: asp.net

我用asp.net中操作IIS是编写IISVDir.dll操作IIS
使用方法:
Dim test As New IISVDir()
test.CreateVirtualDir("localhost","vdir","e:/","test")
注意:
1、web目录中的test必需存在
2、当此代码用于web中时,出错为不能创建Active组件,
修改“x:/WINNT/Microsoft.NET/Framework/v1.0.3705/CONFIG/machine.config”中的<processModel 键修改为userName="SYSTEM"  password="AutoGenerate"就能解决.
iisvpath.vb代码

Imports System
Imports ActiveDs
Imports Microsoft.VisualBasic
Namespace iisvpath

Public Class IISVPath

   REM 创建FTP目录
    'ComputerName FTP服务器名(可以为localhost)
    'DirName 要建立的虚拟目录名
    'LinkAddr 该虚拟目录的真实路径
    Function CreateFTPDir(ByVal ComputerName As String, _
    ByVal DirName As String, ByVal LinkAddr As String) As Boolean
        try
                CreateFTPDir= True
                Dim WWWServer, WWWServer1 As ActiveDs.IADs
                Dim WWWVirtualDir, WWWIF As ActiveDs.IADs
                Try
                    WWWIF = GetObject("IIS://" & ComputerName & "/MSFTPSVC/1/Root")
                    Try
                        WWWIF.delete("IISFtpVirtualDir", DirName)
                    Catch
                    End Try
                Catch
                End Try
                WWWServer1 = GetObject("IIS://" & ComputerName & "/MSFTPSVC/1")
                WWWServer = WWWServer1.GetObject("IIsFtpVirtualDir", "Root")
                WWWVirtualDir = WWWServer.Create("IISFtpVirtualDir", DirName)
                WWWVirtualDir.Path = LinkAddr
                WWWVirtualDir.AccessRead = True
                WWWVirtualDir.AccessWrite = False
                WWWVirtualDir.SetInfo()
                CreateFTPDir=true
        catch
            CreateFTPDir=false
        end try
    end function

    REM 建立虚拟目录程序
    'ComputerName WEB服务器名(可以为localhost)
    'DirName 要建立的虚拟目录名
    'LinkAddr 该虚拟目录的真实路径
    'WWWSiteName 站点名称
    Function CreateVirtualDir(ByVal ComputerName As String, _
    ByVal DirName As String, ByVal LinkAddr As String, _
    ByVal WWWSiteName As String) As Boolean
        Try
            CreateVirtualDir = True
            Dim WWWServer, WWWServer1 As ActiveDs.IADs
            Dim WWWVirtualDir, WWWIF As ActiveDs.IADs
            Try
                Try
                    WWWIF = GetObject("IIS://" & ComputerName & "/W3SVC/1/Root/" & WWWSiteName)
                    Try
                        WWWIF.delete("IISWebVirtualDir", DirName)
                    Catch
                    End Try
                Catch
                End Try
                WWWServer1 = GetObject("IIS://" & ComputerName & "/W3SVC/1")
                WWWServer = WWWServer1.GetObject("IIsWebVirtualDir", "Root")
                WWWVirtualDir = WWWServer.Create("IISWebVirtualDir", WWWSiteName & "/" & DirName)
                WWWVirtualDir.Path = LinkAddr
                WWWVirtualDir.AccessRead = True
                WWWVirtualDir.AccessScript = True
                WWWVirtualDir.SetInfo()
                CreateVirtualDir = True
            Catch
            End Try
        Catch
            CreateVirtualDir = False
        End Try
    End Function

End Class

end Namespace

0 0

相关博文

我的热门文章

img
取 消
img