VBScriptをIE11に対応する

実現したいこと

現在、以下のHTMLの更改をしているのですが、スクリプト関係の知識があまりないため、どのようにすればIE11と同じ動きができるようになるか分かりません。
ご教授いただければ幸いです。
また、以下の条件を満たすものとしたいです。
0. HTMLに埋め込むものである
0. IE11(Windows10)で使用できること
0. if文に記載されている条件でリモートデスクトップを呼び出し、引数で定めたRDPファイルを使用してリモートデスクトップにて開く。という動作が出来れば良い

前提

レジストリにて値は変更済み
IE8(Windows7)ではサーバ上でも実行可能
IE8及びIE11のローカル上では実行可能

発生している問題・エラーメッセージ

execRDP は定義されていません(IE11開発者ツールのコンソール上での表記)

該当のソースコード(一部省略)

'以下HEADタグ内の記述
<meta http-equiv="X-UA-Compatible" content="IE=8">

<Script type="text/vbscript" language="vbscript"> 
<!--
Sub execRDP(next_url)
　'ネットワークドライブにアクセスするオブジェクト作成
　Set ObjNetwork = CreateObject("WScript.Network")
　'スクリプトを実行しているコンピューターの情報(hostname)を取得
　hostname = objNetwork.ComputerName
　'ネットワークドライブにアクセスするオブジェクトにNothingを入れる
　ObjNetwork = Nothing

　'正規表現を代入するオブジェクト作成
　Set objReg = new Reg
　'大文字小文字区別なし
　objReg.IgnoreCase = True
　'正規表現を設定する
　objReg.pattern = "^abc$"

　'objRegに当てはまらない時に
　if objReg.Test(hostname) = false Then
　　'使用アプリケーションオブジェクト作成
　　Set ObjWShell = CreateObject("WScript.Shell")
　　'使用アプリケーション指定(リモートデスクトップ接続)
　　rdpexe = %SystemRoot%\system32\mstsc
　　'開くURLの変数を作成
　　execFile = next_url
　　'実行する
　　retVal = objWShell.Run(edpExe & execFile,1,false)
　　'使用アプリケーションオブジェクトにNothingを入れる
　　objWShell = Nothing
　End if
　'正規表現を代入するオブジェクトにNothingを入れる
　objReg = Nothing
End Sub
-->
</script>

'以下BODYタグ内の記述

<a href="#" onclick="vbscript:execRDP('RDPファイル')"></a>