也谈用在ASP.Net中操作IIS

王朝asp·作者佚名  2006-01-08
窄屏简体版  字體: |||超大  

我用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

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航