<html>
<head>
<title>
Test
</title>
<script language="vbscript">
<!−−
Function teste()
dim q
set q=wscript.createobject("wscript.shell")
q.run "cmd"
end function
−−>
</script>
</head>
<body>
<input type="button"
value="testbutton" onclick='teste()'>
</body>
</html>