请问这个怎么改成支持ie11的版本，谢谢

[wscll2009]

'-----------获取ie大版本号
'获取当前工作目录
Dim v_workDir,v_ie8workDir,v_strArrayVersion,v_strVersion,v_ieVersion,strIeVersion
'msgbox "当前文件路径是 " & Wscript.ScriptFullName
Set Ws=Wscript.CreateObject("Wscript.Shell")
Set fsIE = CreateObject("Scripting.FileSystemObject")
v_workDir=Ws.CurrentDirectory
'调用ie8安装文件
v_ie8workDir=v_workDir+"\IE8-WindoWsXP-x86-CHS.exe"
'MsgBox(v_ie8workDir)
v_strVersion = Ws.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Version")
'msgbox(v_strVersion)
v_strArrayVersion=split(v_strVersion,".")
v_ieVersion=v_strArrayVersion(0)
'msgbox(v_ieVersion)
Select Case True
Case v_ieVersion<8
msgbox("当前IE版本低于IE8，需安装IE8！！点击确定开始安装IE8")
If Not fsIE.fileexists(v_ie8workDir) Then
MsgBox("IE8安装文件不在当前目录，请检查是否和CRM2.0相关设置.vbs在一个目录！！")
Wscript.Quit
Else
Call AddHosts()
Call AddShortCut()
Ws.run v_ie8workDir
End If
Case v_ieVersion=8
msgbox("当前已是IE8，无需升级浏览器")
Call AddHosts()
Call AddShortCut()
Case v_ieVersion>8
'Call AddShortCut()
msgbox("当前IE版本高于IE8，请先卸载重启后再执行本文件！！")
Wscript.Quit
End Select

[wscll2009]

真的很急，求各位大侠，大姐帮忙啊