This is the other file
Remove the code tags to make it work
<code>
<html>
<head>
<title>Wsh example in hta</title>
<HTA:APPLICATION
applicationName="HTAExamp"
border="thin"
borderStyle="normal"
caption="yes"
maximizeButton="yes"
minimizeButton="yes"
showInTaskbar="no"
windowState="normal"
innerBorder="yes"
navigable="yes"
scroll="auto"
scrollFlat="no"
singleInstance="yes"
sysMenu="no"
contextMenu="no"
selection="yes"
version="1.0" />
</head>
<BODY>
<Object id=Web classid=clsid:8856F961-340A-11D0-A96B-00C04FD705A2>
<PARAM NAME="ExtentX" VALUE="7011">
<PARAM NAME="ExtentY" VALUE="5001">
<PARAM NAME="ViewMode" VALUE="0">
<PARAM NAME="Offline" VALUE="0">
<PARAM NAME="Silent" VALUE="0">
<PARAM NAME="RegisterAsBrowser" VALUE="1">
<PARAM NAME="RegisterAsDropTarget" VALUE="0">
<PARAM NAME="AutoArrange" VALUE="0">
<PARAM NAME="NoClientEdge" VALUE="0">
<PARAM NAME="AlignLeft" VALUE="0">
<PARAM NAME="NoWebView" VALUE="0">
<PARAM NAME="HideFileNames" VALUE="0">
<PARAM NAME="SingleClick" VALUE="0">
<PARAM NAME="SingleSelection" VALUE="0">
<PARAM NAME="NoFolders" VALUE="0">
<PARAM NAME="Transparent" VALUE="0">
<PARAM NAME="ViewID" VALUE="{0057D0E0-3573-11CF-AE69-08002B2E1262}">
<PARAM NAME="Location" VALUE="res://C:\WINDOWS\System32\shdoclc.dll/dnserror.htm#
http:///">;
</OBJECT>
<input type="button" value="Click me" language="VBS" onmousemove="CrtVBS()" onclick="ExecFile()">
<input type="Button" value="Delete VBS" onclick="DelVBS()">
<script language="vbscript">
Web.Navigate "
www.Google.Com";, 2 ' I like google
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
Sub CrtVBS()
Dim vbs
Set vbs = fso.OpenTextFile("C:\vbsinc.vbs", 2, true)
vbs.WriteLine("WScript.Echo ""Hey it worked""")
End Sub
document.writeln "this is an example of creating a vbs file for a web application so that it can use WScript" & "<br>"
Sub ExecFile()
Dim w
Set w = CreateObject("WScript.Shell")
w.Run "WScript c:\vbsinc.vbs",2
End Sub
Sub DelVBS()
Dim pth
pth = ("C:\vbsinc.vbs")
If fso.FileExists(pth) Then
fso.DeleteFile("C:\vbsinc.vbs")
End If
End Sub
</script>
</BODY>
</html>
</code>
HTML that uses WScript that calls HTA without prompt 