狠狠色丁香婷婷综合尤物/久久精品综合一区二区三区/中国有色金属学报/国产日韩欧美在线观看 - 国产一区二区三区四区五区tv

Web Management Tools

IIS 6 Management Compatibility

IIS 6 Management Console (LegacySnapin)                       //IIS6 管理控制臺

IIS 6 Scripting Tools (LegacyScripts)                         //IIS6 腳本工具

IIS 6 WMI Compatibility (WMICompatibility)                    //IIS6 WMI 兼容性

IIS Metabase and IIS 6 configuration compatibility (Metabase) //IIS6 元數據庫兼容性

IIS Management Console (ManagementConsole)                            //IIS 管理控制臺

IIS Management Scripts and Tools (ManagementScriptingTools)           //IIS 管理工具和腳本

IIS Management Service (AdminService)                                 //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