Msdds.dll の Kill bit を設定するためのスクリプト

IE内で msdds.dll が動作しないようにレジストリを変更するスクリプトです。適当な名前.vbs として保存して実行させてください。もちろん無保証。

const HKEY_LOCAL_MACHINE = &H80000002 
const MSDDS_CLSID = "EC444CB6-3E7E-4865-B1C3-0DE72EF39B3F"

strComputer = "." 
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") 

strKeyPath = "SOFTWARE\Microsoft\Internet Explorer\ActiveX Compatibility\{" & MSDDS_CLSID & "}"
strValueName = "Compatibility Flags"

oReg.GetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, dwValue

If IsNull(dwValue) Then
    MsgBox "Msdds.dll is not installed."
Else
    If dwValue = &H400 Then
        MsgBox "Kill bit ofMsdds.dll is already disabled."
    Else
        'backup old value
        oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName & "-",dwValue 
        dwValue = &H400
        oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue 
        oReg.GetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, dwValue
        If dwValue = &H400 Then
            MsgBox "Set kill bit of Msdds.dll: Complete"
        Else
            MsgBox "Set kill bit of Msdds.dll: Failure"
        End If
    End If
End If