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