<html>
<head>
<meta http-equiv="X-UA-Compatible" content="IE=9">
<script type="text/vbscript" language="VBScript">
Sub ie_exec_open()
 Set Shell = CreateObject("WScript.Shell")
 Set Env = Shell.Environment("PROCESS")
 IEPath = Env.Item("ProgramFiles")&"\Microsoft\Edge\Application\msedge.exe"
 Dim wUid
 wUid = 461023
 Dim pathname
 pathname = location.pathname
 Dim position
 position = InstrRev(pathname,"/",-1,1)

 Dim URL
 URL = location.protocol + "//" + location.hostname + Mid(pathname,1,position) + "DX.html?" & "USERID=" & wUid
 Shell.Run """" & IEPath & """" & URL & """"
End Sub
</script>
<script type="text/javascript">
function fnc1(){
 ie_exec_open()
 window.open("about:blank","_self").close()
}
</script>
</head>
<body onload="fnc1()"></body>
</html>