' Patch für MS05-026: A vulnerability in HTML Help could allow remote code execution
' Problem: ItssRestrictions for local intranet zone is set to 0 (Blocked)
'
' Resolution: Allow chm/Itss for local intranet zone

dim sh, r, v
on error resume next
Set sh = WScript.CreateObject("WScript.Shell")
r = msgbox("Korrektur zum Sicherheitsupdate MS05-026: HtmlHelp ITSS/CHM" & vbcrlf & _
           "Problem: Hilfe wird auf Netzlaufwerken nicht angezeigt." & vbcrlf & vbcrlf & _
           "HtmlHelp in Intranet-Zone erlauben?", vbyesnocancel, "RZ Korrektur für MS05-026")

if r= vbcancel then wscript.quit
if r= vbyes then v = 1 else v = 0
sh.RegWrite "HKLM\SOFTWARE\Microsoft\HTMLHelp\1.x\ItssRestrictions\MaxAllowedZone", v, "REG_DWORD"
if err.number <> 0 then
  msgbox "Fehler: Sie benötigen administrative Rechte, um die Änderng auszuführen"
else
  if v = 1 then msgbox "HtmlHelp (CHM/ITSS) in Intranet-Zone erlaubt" _
  else msgbox "HtmlHelp (CHM/ITSS) in Intranet-Zone gesperrt" 
end if