c# - requiere - ¿Cómo compruebo si se ha instalado la característica de compatibilidad de administración de IIS 6?

instalar iis en windows 10

Question

Usando VB.NET, C # o VBScript, ¿cómo puedo verificar si la característica de compatibilidad de administración de IIS 6 y sus subfunciones han sido instaladas en una máquina que ejecuta IIS 7.x?

Answer 1

Realicé algunas pruebas usando una copia de prueba de Registry Workshop (la función Compare Registries) y encontré lo siguiente:

Si IIS 7.x está instalado, la siguiente clave del Registro contiene información sobre los subcomponentes instalados:

HKEY_LOCAL_MACHINE / SOFTWARE / Microsoft / InetStp / Components

Cada característica instalada se representa con un valor de DWORD 0x00000001. Si una característica no está instalada, el valor falta.

Para las herramientas de administración web, los nombres de los valores son los siguientes:

Web Management Tools
  IIS 6 Management Compatibility
    IIS 6 Management Console                              (LegacySnapin)
    IIS 6 Scripting Tools                                 (LegacyScripts)
    IIS 6 WMI Compatibility                               (WMICompatibility)
    IIS Metabase and IIS 6 configuration compatibility    (Metabase + ADSICompatibility)

  IIS Management Console                                  (ManagementConsole)
  IIS Management Scripts and Tools                        (ManagementScriptingTools)
  IIS Management Service                                  (AdminService)

Tenga en cuenta que estos nombres de componentes provienen de una instalación de Windows 7 y pueden diferir ligeramente de los de Windows Server 2008, aunque las claves del Registro deberían ser las mismas.

Parte de esto se menciona en una nota de este artículo: Uso de código administrado para detectar si IIS está instalado y ASP / ASP.NET está registrado.

Puede encontrar una lista de estos y otros subcomponentes aquí: Descubrir componentes instalados

Actualizar:

Algunas funciones centrales del código final. Este no es el código completo, pero debería ser suficiente para cualquiera que dedique tiempo a buscar los nombres de los componentes para las distintas versiones de IIS:

Function IsIISComponentInstalled(ByVal ComponentName)
    Dim result
    Dim intProcessorArchitecture
    intProcessorArchitecture = GetProcessorArchitectureIIS()
    If intProcessorArchitecture = 64 Then
        ''64-bit system
        On Error Resume Next
        Err.Clear
        result = RegReadDWORD(HKEY_LOCAL_MACHINE, "SOFTWARE/Microsoft/InetStp/Components", ComponentName, 64)
        If Err.Number <> 0 Then
            Err.Clear
            IsIISComponentInstalled = False
        Else
            If result = 1 Then
                IsIISComponentInstalled = True
            Else
                IsIISComponentInstalled = False
            End If
        End If
    Else
        ''32-bit system
        If RegReadStringIIS("HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/InetStp/Components/" & ComponentName) = "1" Then
            IsIISComponentInstalled = True
        Else
            IsIISComponentInstalled = False
        End If
    End If

End Function

Function GetProcessorArchitectureIIS()
    Dim strProcessorArchitecture
    Dim oShell

    Set oShell = CreateObject("Wscript.Shell")
    strProcessorArchitecture = oShell.RegRead("HKLM/SYSTEM/CurrentControlSet/Control/Session Manager/Environment/PROCESSOR_ARCHITECTURE")

    If strProcessorArchitecture = "x86" Then
        GetProcessorArchitectureIIS = 32
    Else
        If strProcessorArchitecture = "AMD64" Then
            GetProcessorArchitectureIIS = 64
        Else
            GetProcessorArchitectureIIS = 0
        End If
    End If

End Function

Function RegReadStringIIS(sRegValue)
    Set oShell = CreateObject("WScript.Shell")
    On Error Resume Next
    RegReadStringIIS = oShell.RegRead(sRegValue)
    If Err Then
        RegReadStringIIS = ""
        Err.clear
    End If
    If VarType(RegReadStringIIS) < vbArray Then
        If RegReadStringIIS = sRegValue Then
            RegReadStringIIS = ""
        End If
    End If
    On Error Goto 0
End Function

''-------------------------------------------------------------------
'' Reads a REG_SZ value from the local computer''s registry using WMI.
'' Parameters:
''   RootKey - The registry hive (see http://msdn.microsoft.com/en-us/library/aa390788(VS.85).aspx for a list of possible values).
''   Key - The key that contains the desired value.
''   Value - The value that you want to get.
''   RegType - The registry bitness: 32 or 64.
''
''References:
''   http://stackoverflow.com/questions/1229760/how-do-i-read-64-bit-registry-values-from-vbscript-running-as-a-an-msi-post-inst
''   http://msdn.microsoft.com/en-us/library/aa393067(VS.85).aspx
''   http://msdn.microsoft.com/en-us/library/windows/desktop/aa390445(v=VS.85).aspx
''
Function RegReadDWORD(RootKey, Key, Value, RegType)
    Dim oCtx, oLocator, oReg, oInParams, oOutParams
    Set oCtx = CreateObject("WbemScripting.SWbemNamedValueSet")
    oCtx.Add "__ProviderArchitecture", RegType
    Set oLocator = CreateObject("Wbemscripting.SWbemLocator")
    Set oReg = oLocator.ConnectServer("", "root/default", "", "", , , , oCtx).Get("StdRegProv")
    Set oInParams = oReg.Methods_("GetDWORDValue").InParameters
    oInParams.hDefKey = RootKey
    oInParams.sSubKeyName = Key
    oInParams.sValueName = Value
    Set oOutParams = oReg.ExecMethod_("GetDWORDValue", oInParams, , oCtx)
    RegReadDWORD = oOutParams.uValue
End Function