在IIS中创建虚拟目录 (C#)

xw75814

　　使用.NET的目录服务就可以访问IIS的设置，添加虚拟目录其实就是创建一个DirectoryEntry
复杂的在于DirectoryEntry的属性，其实就是虚拟目的一些配置，比如，权限，是否要log，应用程序名等
Properties非常多，而且文档不太好找
详细可以参考MSDN以下内容
help://MS.MSDNQTR.2004JUL.1033/iissdk/iis/configuring_properties_in_the_iis_user_interface.htm
　　代码示例：
　　const String constIISWebSiteRoot = "IIS://localhost/W3SVC/1/ROOT";
　　DirectoryEntry root = new DirectoryEntry(constIISWebSiteRoot);
   DirectoryEntry entry = new DirectoryEntry(constIISWebSiteRoot + "/" + virtualDirName);
　　DirectoryEntry tbEntry = root.Children.Add(virtualDirName, "IIsWebVirtualDir");
　　//must be end with a '\'
   tbEntry.Properties["Path"][0] = virtualDirPath;
   tbEntry.Invoke("AppCreate",true);
   tbEntry.Properties["AccessRead"][0] = true;
   tbEntry.Properties["ContentIndexed"][0] = false;
   tbEntry.Properties["DefaultDoc"][0] = "index.asp";
   tbEntry.Properties["AppFriendlyName"][0] = virtualDirName;
   tbEntry.Properties["AppIsolated"][0] = 2;
   tbEntry.Properties["AccessScript"][0] = true;   
   tbEntry.Properties["DontLog"][0] = true;   
   
   tbEntry.CommitChanges();

re: 用.NET在IIS中创建虚拟目录 11/5/2004 4:55 PM
　　'i used to the windows script.

Set shell = Wscript.CreateObject( "WScript.Shell" )

If Wscript.Arguments.Count < 2 Then
usage = &quot;USAGE: theVbs virtual_directory_name directory_location_to_map&quot;
WScript.Echo usage
Wscript.Quit
End If

vDirName = Wscript.Arguments(0)
vDirPath = Wscript.Arguments(1)

' Get the name of the current directory
Set fso = WScript.CreateObject( &quot;Scripting.FileSystemObject&quot; )
vDirPath = fso.GetFolder( vDirPath ).Path

' Does this IIS application already exist in the metabase?
On Error Resume Next
Set objIIS = GetObject( &quot;IIS://localhost/W3SVC/1/Root/&quot; & vDirName )
If Err.Number = 0 Then
result = shell.Popup( &quot;A virtual directory named &quot; & vDirName & &quot; already exists. &quot; & vbCrLf & vbCrLf & &quot;Would you like it re-mapped for this sample?&quot;, 0 ,&quot;Remap Virtual Directory?&quot;, 4 + 32 )' 4 = YesNo & 32 = Question
If result = 6 Then ' 6 = Yes
DeleteVirtualDirectory vDirName
Else
WScript.Quit
End If
End If

'Using IIS Administration object , turn on script/execute permissions and define the virtual directory as an 'in-process application.
Set objIIS = GetObject( &quot;IIS://localhost/W3SVC/1/Root&quot; )
Set vDirObj = objIIS.Create( &quot;IISWebVirtualDir&quot;, vDirName )

vDirObj.Path = vDirPath
vDirObj.AuthNTLM = True
vDirObj.AccessRead = True
vDirObj.AccessWrite = True
vDirObj.AccessScript = True
vDirObj.AccessExecute = True
vDirObj.AuthAnonymous = True
'vDirObj.AnonymousUserName = owner
vDirObj.AnonymousPasswordSync = True
vDirObj.AppCreate True
vDirObj.SetInfo

If Err.Number > 0 Then
shell.Popup Err.Description, 0, &quot;Error&quot;, 16 ' 16 = Stop
WScript.Quit
End If

' Get the name of the account for the anonymous user in IIS
owner = vDirObj.AnonymousUserName

' Change necessary folder permissions using CACLS.exe
aclCmd = &quot;cmd /c echo y| CACLS &quot;
aclCmd = aclCmd & &quot;&quot;&quot;&quot; & vDirPath & &quot;&quot;&quot;&quot;
aclCmd = aclCmd & &quot; /E /G &quot; & owner & &quot;:C&quot;
rtc = shell.Run( aclCmd , 0, True )

aclCmd = &quot;cmd /c echo y| CACLS &quot;
aclCmd = aclCmd & &quot;&quot;&quot;&quot; & vDirPath & &quot;&quot;&quot;&quot;
aclCmd = aclCmd & &quot; /E /G &quot;&quot;VS Developers&quot;&quot;:C&quot;
rtc = shell.Run( aclCmd , 0, True )

If Err.Number > 0 Then
shell.Popup Err.Description, 0, &quot;Error&quot;, 16 ' 16 = Stop
WScript.Quit
Else
res = vDirName & &quot; has been created at&quot; & vbCrLf & vDirPath
shell.Popup res, 0, &quot;All done&quot;, 64 ' 64 = Information
End If

Sub DeleteVirtualDirectory( NameOfVdir )

Set iis = GetObject(&quot;IIS://localhost/W3SVC/1/Root&quot;)
iis.Delete &quot;IISWebVirtualDir&quot;, vDirName

If Err.Number <> 0 Then

errorString = &quot;Unable to delete exisiting virtual directory.&quot;

If Err.Description Is Nothing Then
errorString = errorString & &quot;Error Code: &quot; & Err.Number
Else
errorString = errorString & &quot;Description: &quot; & Err.Description
End If

shell.Popup errorString, 0, &quot;Error&quot;, 16 ' 16 = Stop
End If

End Sub