I was able to get the hta menu to start working by using some VBscript. The problem now is that the second and third programs will not run. I am getting an error on line 53 and 61 character 11. I cannot see the problem though as each line was copied from working ones. The script is as follows: <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <title>PE Applications</title> <script language="vbscript"> <!-- Insert code, subroutines, and functions here --> Set oShell = CreateObject("Wscript.Shell") oShell.Run "%Comspec% /c dir",1,True </script> <hta:application applicationname="apps" border="dialog" borderstyle="normal" caption="Win PE Applications" contextmenu="no" icon="myicon.ico" maximizebutton="no" minimizebutton="yes" navigable="no" scroll="no" selection="no" showintaskbar="yes" singleinstance="yes" sysmenu="yes" version="1.0" windowstate="maximize" > </head> <body bgcolor="#000021" text="#FFFFFF"> <font FACE="Arial" Size=+4> <center><p>| WinPE Utilities |</p> </font> <p> </p> <p> </p> <p> </p> <p> </p> <p> </p> <p> </p> <font face="arial" size=+2> <script language="VBScript"> Sub RunClam Dim WshShell Set WshShell = CreateObject("WScript.Shell") WshShell.Run "x:\tools\clam\clamwinportable.exe", 1, true End Sub </Script> <p> <Input type="button" value="Clam AntiVirus" name="RunClam" onclick="RunClam"></p> [b] <script language="VBScript"> Sub RunAvast Dim WshShell Set WshShell = CreateObject("WScript.Shell") WshShell.Run "x:\tools\avast\avast.exe", 1, true End Sub </Script> <p> <Input type="button" value="Avast AntiVirus" name="RunAvast" onclick="RunAvast"></p> <script language="VBScript"> Sub RunDr Dim WshShell Set WshShell = CreateObject("WScript.Shell") WshShell.Run "x:\tools\drweb\drweb.exe", 1, true End Sub </Script> <p> <Input type="button" value="Dr. Web AntiVirus" name="RunDr" onclick="RunDr"></p>[/b] <script language="VBScript"> Sub RunSophos Dim WshShell Set WshShell = CreateObject("WScript.Shell") WshShell.Run "x:\tools\sophos\sav32cli.exe", 1, true End Sub </Script> <p> <Input type="button" value="Sophos CLI AntiVirus" name="RunSophos" onclick="RunSophos"></p> <script language="VBScript"> Sub RunFC Dim WshShell Set WshShell = CreateObject("WScript.Shell") WshShell.Run "x:\tools\freecommander\freecommander.exe", 1, true End Sub </Script> <p> <Input type="button" value="Free Commander" name="RunFC" onclick="RunFC"></p> <script language="VBScript"> Sub RunRA Dim WshShell Set WshShell = CreateObject("WScript.Shell") WshShell.Run "x:\tools\runalyzer\runalyzer.exe", 1, true End Sub </Script> <p> <Input type="button" value="RunAlyzer" name="RunRA" onclick="RunRA"></p> </font> </center> </body> </html> problem area here: <script language="VBScript"> Sub RunAvast Dim WshShell Set WshShell = CreateObject("WScript.Shell") WshShell.Run "x:\tools\avast\avast.exe", 1, true End Sub </Script> <p> <Input type="button" value="Avast AntiVirus" name="RunAvast" onclick="RunAvast"></p> <script language="VBScript"> Sub RunDr Dim WshShell Set WshShell = CreateObject("WScript.Shell") WshShell.Run "x:\tools\drweb\drweb.exe", 1, true End Sub </Script> <p> <Input type="button" value="Dr. Web AntiVirus" name="RunDr" onclick="RunDr"></p> The bold areas are where the problem is residing. Any help would be greatly appreciated.