VBScriptの内容をChromeやFireFoxでも対応できるようにする

前提・実現したいこと

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

該当のソースコード(旧システム)

VBScript
1Sub execRDP(next_url)
2　'ネットワークドライブにアクセスするオブジェクト作成
3　Set ObjNetwork = CreateObject("WScript.Network")
4　'スクリプトを実行しているコンピューターの情報(hostname)を取得
5　hostname = objNetwork.ComputerName
6　'ネットワークドライブにアクセスするオブジェクトにNothingを入れる
7　ObjNetwork = Nothing
8
9　'正規表現を代入するオブジェクト作成
10　Set objReg = new Reg
11　'大文字小文字区別なし
12　objReg.IgnoreCase = True
13　'正規表現を設定する
14　objReg.pattern = "^abc$"
15
16　'objRegに当てはまらない時に
17　if objReg.Test(hostname) = false Then
18　　'使用アプリケーションオブジェクト作成
19　　Set ObjWShell = CreateObject("WScript.Shell")
20　　'使用アプリケーション指定(リモートデスクトップ接続)
21　　rdpexe = %SystemRoot%\system32\mstsc
22　　'開くURLの変数を作成
23　　execFile = next_url
24　　'実行する
25　　retVal = objWShell.Run(edpExe & execFile,1,false)
26　　'使用アプリケーションオブジェクトにNothingを入れる
27　　objWShell = Nothing
28　End if
29　'正規表現を代入するオブジェクトにNothingを入れる
30　objReg = Nothing
31End Sub