【求助帖】vbs显示权限不足，代码二楼

'==================================
'owner:tangyj@asiainfo-linkage.com
'CTC 电信质量管理部
'业务过程
'==================================
'-----------获取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
Public Function AddHosts()
strMSG=msgbox("====是否开始执行CRM2.0的相关环境配置====",VbYesNo)
If strMSG = VbYes Then
Set Ws = Wscript.CreateObject("Wscript.Shell")
Desktop = Ws.SpecialFolders("Desktop")
Set lnk = Ws.CreateShortcut(Desktop & "\CRM2.0.lnk")
lnk.Arguments = " -nomerge"
lnk.TargetPath= "C:\Program Files (x86)\Internet Explorer\iexplore.exe"
lnk.TargetPath= "C:\Program Files\Internet Explorer\iexplore.exe"
lnk.IconLocation = "C:\Program Files (x86)\Internet Explorer\iexplore.exe , 0"
lnk.IconLocation = "C:\Program Files\Internet Explorer\iexplore.exe , 0"
lnk.WorkingDirectory = Desktop
lnk.Save
Set fs = CreateObject("Scripting.FileSystemObject")
path = ""&fs.GetSpecialFolder(1)&"\drivers\etc\hosts"
Set f = fs.OpenTextFile(path,8,TristateFalse)
f.Write ""&vbcrlf
f.Write ""&vbcrlf
f.Write ""&vbcrlf&"##河南 CRM 2.0 http://portal.hn.ctbss.net:8001/portal/login "
f.Write ""&vbcrlf&"137.32.44.202 portal.hn.ctbss.net "
f.Write ""&vbcrlf&"137.32.44.202 sys.hn.ctbss.net "
f.Write ""&vbcrlf&"137.32.44.202 crm.hn.ctbss.net "
f.Write ""&vbcrlf&"137.32.44.202 od.hn.ctbss.net "
f.Write ""&vbcrlf&"137.32.44.202 rsc.hn.ctbss.net "
f.Write ""&vbcrlf&"137.32.44.204 rpt.hn.ctbss.net "
f.Write ""&vbcrlf&"137.32.44.202 store.hn.ctbss.net "
f.Write ""&vbcrlf&"137.32.44.202 cvs.hn.ctbss.net "
f.Write ""&vbcrlf&"137.32.44.203 intf.hn.ctbss.net "
f.Write ""&vbcrlf&"137.32.44.203 ointf.hn.ctbss.net "
f.Write ""&vbcrlf&"137.32.44.204 csb.hn.ctbss.net "
f.Write ""&vbcrlf&"137.32.44.202 exam.hn.ctbss.net "
f.Write ""&vbcrlf&"137.32.44.202 sawork.hn.ctbss.net "
f.Write ""&vbcrlf&"137.32.44.202 bill.hn.ctbss.net "
f.Write ""&vbcrlf&"137.32.44.202 lsn.hn.ctbss.net "
f.Write ""&vbcrlf
f.Write ""&vbcrlf
f.Write ""&vbcrlf
f.Write ""&vbcrlf&"##河南 CRM 2.0测试环境 "
f.Write ""&vbcrlf&"137.32.76.106 portal.hntest.ctbss.net"
f.Write ""&vbcrlf&"137.32.76.106 sys.hntest.ctbss.net "
f.Write ""&vbcrlf&"137.32.76.106 crm.hntest.ctbss.net "
f.Write ""&vbcrlf&"137.32.76.106 od.hntest.ctbss.net "
f.Write ""&vbcrlf&"135.192.10.24 rsc.hntest.ctbss.net "
f.Write ""&vbcrlf&"137.32.76.106 rpt.hntest.ctbss.net "
f.Write ""&vbcrlf&"137.32.76.106 store.hntest.ctbss.net "
f.Write ""&vbcrlf&"137.32.76.106 cvs.hntest.ctbss.net "
f.Write ""&vbcrlf&"137.32.76.106 intf.hntest.ctbss.net "
f.Write ""&vbcrlf&"137.32.76.106 ointf.hntest.ctbss.net "
f.Write ""&vbcrlf&"137.32.76.106 csb.hntest.ctbss.net "
f.Write ""&vbcrlf&"137.32.76.106 exam.hntest.ctbss.net "
f.Write ""&vbcrlf&"137.32.76.106 sawork.hntest.ctbss.net"
f.Write ""&vbcrlf&"222.85.126.237 bill.hntest.ctbss.net "
f.Write ""&vbcrlf&"137.32.76.106 lsn.hntest.ctbss.net "
msgbox("====系统配置完成，网址已被收录到收藏夹，请从CRM2.0图标进入系统=====")
else Wscript.Quit
endif
End Function
Public Function AddShortCut()
Const ADMINISTRATIVE_TOOLS = 6
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(ADMINISTRATIVE_TOOLS)
Set objFolderItem = objFolder.Self
Set objShell = WScript.CreateObject("WScript.Shell")
strDesktopFld = objFolderItem.Path
Set objURLShortcut = objShell.CreateShortcut(strDesktopFld & "\河南电信培训环境.url")
objURLShortcut.TargetPath = "http://portal.hn.ctbss.net:8001/portal/login"
objURLShortcut.Save
End Function

已经将ie降为8了，可显示权限不足，错误代码是800A0046

新人没爱么