脚本应用程序扩展分配

Question

有人知道我如何创建一个脚本来为框架 aspnet_isapi.dll 文件分配一组扩展吗？我必须对每个网站执行大约 20 个操作（大约 40 个站点），并且通过 IIS 管理器界面执行此操作非常繁琐。

谢谢。

Answer 1

试试这个 VBScript...我认为它会满足您的需求。只需将其保存在 .vbs 文件中（更改网站开头的数组和扩展名），然后从 System32 文件夹中的命令提示符运行“cscript yourfile.vbs”。

希望它有所帮助（并且有效:)）我有 IIS7，因此无法在 IIS6 中进行完全测试。如果您遇到问题，请告诉我，我会尝试调整它。

哦，感谢 @Cheeso 提供的一些代码，我从他的自我回答 question 中“借来”了一些代码。

Dim arrExtensions(2)
arrExtensions(0) = ".tst1"
arrExtensions(1) = ".tst2"
arrExtensions(2) = ".tst3"

Dim arrSites(1)
arrSites(0) = "Default Web Site"
arrSites(1) = "Test"

Dim iis
iis = GetObject("winmgmts://localhost/root/MicrosoftIISv2")

For s = 0 To ubound(arrSites)
    ' Get the settings for this web site '
    iisSettings = iis.ExecQuery("SELECT * FROM IIsWebServerSetting WHERE ServerComment = '" & arrSites(s) & "'")

    For e = 0 To ubound(arrExtensions)
        ReDim newMaps(0)
        ' two passes '
        For t = 0 To 1
            Dim c
            c = 0
            For Each item In iisSettings
                ' in pass 1, count them. '
                ' in pass 2, copy them. '
                For i = 0 To Ubound(item.ScriptMaps)
                    If UCase(item.ScriptMaps(i).Extensions) <> ucase(arrExtensions(e)) Then
                        If t = 1 Then
                            newMaps(c) = item.ScriptMaps(i)
                        End If
                        c = c + 1
                    End If
                Next

                If t = 0 Then
                    ReDim Preserve newMaps(c)
                Else
                    newMaps(c) = iis.get("ScriptMap").SpawnInstance_()
                    newMaps(c).Extensions = arrExtensions(e)
                    newMaps(c).ScriptProcessor = "%Windir%\Microsoft.NET\Framework\v2.0.50727\aspnet_isapi.dll"
                    newMaps(c).Flags = "1"
                    newMaps(c).IncludedVerbs = "ALL"
                    item.ScriptMaps = newMaps
                    item.Put_()
                End If
            Next

        Next

    Next
Next

iisSettings = Nothing
iis = Nothing