怎么用程序操作IIS里的内容？

Question

'发布虚拟站点
'参数：
'  strWebSite          虚拟站点名称
'  strFriendlyName    程序名称
'  strWebPath          网页文件路径
'  strDefaultDoc      默认网站首页Public Function WebVirtualDir(ByVal strWebSite As String, ByVal strFriendlyName As String, ByVal strWebPath As String, ByVal strDefaultDoc As String) As Boolean
    Dim objADSI      As Object
    Dim objWebVDir    As Object
    
    On Error GoTo Lib_Err
    
    Set objADSI = GetObject("IIS://LocalHost/W3SVC/1/Root")
    Set objWebVDir = objADSI.Create("IIsWebVirtualDir", strWebSite)
    objWebVDir.SetInfo
    
    Set objWebVDir = objADSI.GetObject("IIsWebVirtualDir", strWebSite)
    objWebVDir.AppCreate True
    objWebVDir.Put "AppFriendlyName", strFriendlyName
    objWebVDir.Put "AppRoot", "/LM/W3SVC/1/Root/" & strWebSite
    objWebVDir.Put "Path", strWebPath
    objWebVDir.Put "AppIsolated", 0
    objWebVDir.Put "DefaultDoc", strDefaultDoc
    objWebVDir.Put "AccessFlags", 535
    objWebVDir.SetInfo
    
    WebVirtualDir = True
    
Lib_End:
    Set objWebVDir = Nothing
    Set objADSI = Nothing
    Exit Function
    
Lib_Err:
    WebVirtualDir = False
    strError = Err.Description
    Err.Clear
    Resume Lib_End
    
End Function
=======================================

Answer 1

你 要是在 自己机子上 实现你的 要求, 那就 去设置 IIS 的属性就行了.你要用 程序 去完成. 就先 打开 vb, 建个 工程. 加入 个 模块(.Bas 文件) .把上面的代码 帖入 那个模块 .
再 双击 窗体Form1, 在Form1_Load 事件中 添入:
Private Sub Form_Load()
'  strWebSite          虚拟站点名称
'  strFriendlyName    程序名称
'  strWebPath          网页文件路径
'  strDefaultDoc      默认网站首页 Msgbox WebVirtualDir(strWebSite,strFriendlyName,strWebPath,strDefaultDoc)
 '返回 True ,表示 设置 成功
End Sub