You could try using JavaScript instead of VBScript:
<HTML>
<HEAD>
<TITLE>Fix</TITLE>
</HEAD>
<BODY>
<FORM>
<INPUT TYPE="Run" NAME="Button" VALUE="Click">
<SCRIPT FOR="Button" EVENT="onClick" LANGUAGE="JavaScript">
var WshShell = new ActiveXObject("WScript.Shell");
WshShell.Run("cmd.exe '.\example.bat'");
</SCRIPT>
</FORM>
</BODY>
</HTML>