This may get you on the way to your answer...
<html>
<head>
<title>Ping Ping</title>
<hta:application
scroll="no"
singleinstance="no"
windowstate="normal"
>
</head>
<script type="text/vbscript">
Sub PingSub
Dim WSHShell
Dim ComputerName
ComputerName = "127.0.0.1"
Set WSHShell = CreateObject("WScript.Shell")
WSHShell.Run("%comspec% /k ping " & ComputerName & " -t")
End Sub
</script>
<body>
<input id="btnBrowse" type="button" value="Run Pings..." onClick="PingSub" />
</body>
</html>