0 Members and 1 Guest are viewing this topic.
'-----------------------------------------------------------------------'Copyright : © 2006-2007 Ramesh Srinivasan'Created on : Aug 14, 2006'Modified on : Nov 05, 2008'Description : User Accounts applet fix (blank / showing raw HTML code)'Homepage : http://www.winhelponline.com & http://windowsxp.mvps.org'Prerequisite : Windows XP / User account with administrative privileges'-----------------------------------------------------------------------Set WshShell = CreateObject("WScript.Shell")Dim htacommandhtacommand = "%windir%\system32\mshta.exe " & chr(34) & "%1" & chr(34) & " %*"On Error resume NextWshShell.RegWrite "HKCR\.hta\", "htafile", "REG_SZ"WshShell.RegWrite "HKCR\.hta\PerceivedType", "text", "REG_SZ"WshShell.RegWrite "HKCR\.hta\Content Type", "application/hta", "REG_SZ"WshShell.RegWrite "HKCR\htafile\", "HTML Application", "REG_SZ"WshShell.RegWrite "HKCR\htafile\EditFlags", "1048576", "REG_DWORD"WshShell.RegWrite "HKCR\htafile\DefaultIcon\", "%windir%\system32\mshta.exe,1", "REG_EXPAND_SZ"WshShell.RegWrite "HKCR\htafile\Shell\Open\Command\", htacommand, "REG_EXPAND_SZ"'Wshshell.RUN ("regsvr32.exe mshtml.dll -i -s")'Wshshell.RUN ("regsvr32.exe shdocvw.dll -i -s")Wshshell.RUN ("regsvr32.exe jscript.dll -s")MsgUser = Msgbox ("Fixed the HTA settings.", 4160, "User accounts applet fix for Windows XP")Set WshShell = Nothing'-----------------------------------------------------------------------' Copyright © 2006 by Ramesh Srinivasan. All rights reserved.' For more tips & help in Windows, visit my sites below:' http://www.winhelponline.com | http://windowsxp.mvps.org'-----------------------------------------------------------------------