' ieimg.vbs

Dim i,a,mes,W
Set W=WScript.CreateObject("WScript.Shell")
a=W.RegRead("HKCU\Software\Microsoft\Internet Explorer\Main\Display Inline Images")
if a="yes" then 
 mes="非表示にしますか？":a="no"
else 
 mes="表示にしますか？":a="yes"
end if
  
i=MsgBox(mes,vbOKCancel,"IEの画像")
if i=vbOK then W.RegWrite"HKCU\Software\Microsoft\Internet Explorer\Main\Display Inline Images",a