解決方案:
1.找到文件:C:\WINDOWS\inf\wsh.inf，並右鍵單擊Install。
2.開始→運行行輸入:regsvr 32 urlmon.dll shdocvw.dll jscript.dll vbscript.dll/s
以上兩步可以解決問題。
擴展數據:
常用的VBS文字
1，VBS獲取系統安裝路徑。
/*先定義這個變量獲取系統安裝路徑，然後我們用“&；strWinDir & amp稱這個變量為。*/
setWshShell = WScript。CreateObject("WScript。外殼”)
strWinDir= WshShell。ExpandEnvironmentStrings(“% WinDir %”)
2.VBS獲得C:/Program Files路徑。
msgbox？CreateObject("WScript。殼”)。ExpandEnvironmentStrings(" % program files % ")
3.VBS獲取C:/Program Files/Common Files的路徑。
msgboxCreateObject("WScript。殼”)。ExpandEnvironmentStrings(" % CommonProgramFiles % ")
4.將URL快捷方式添加到桌面。
setgangzi = WScript。CreateObject("WScript。外殼”)
strDesktop= gangzi。特殊文件夾(“桌面”)
setoShellLink = gangzi。創建快捷方式(strDesktop & amp"/InternetExplorer.lnk ")
奧謝林克。TargetPath= " Explorer "
奧謝林克。icon location = " % program files %/Internet Explorer/ie xplore . exe，0 "
奧謝林克。救援
5.將URL添加到您的收藏夾
ConstADMINISTRATIVE_TOOLS = 6
SetobjShell = CreateObject(" Shell。應用”)
SetobjFolder = objShell。命名空間(管理工具)
SetobjFolderItem = objFolder。自己
SetobjShell = WScript。CreateObject("WScript。外殼”)
strDesktopFld= objFolderItem。小路
SetobjURLShortcut = objShell。創建快捷方式(strDesktopFld & amp"/奮鬥博客. url ")
objurls捷徑。target path = " Explorer/Main/Start Page "，" http://www.fendou.info "
8.VBS加啟動項目
SetoShell = CreateObject(" Wscript。外殼”)
奧謝爾。RegWrite“HKLM/軟件/微軟/Windows/當前版本/運行/cmd”，“cmd.exe”
9.VBS復制自己
set copy 1 = createobject(" scripting . file system object ")
copy 1 . getfile(wscript . script full name)。copy("c:/huan.vbs ")
set copy 1 = createobject(" scripting . file system object ")
copy1.getfile("game.exe ")。copy("c:/gangzi.exe ")
/*把自己復制到c盤的huan.vbs(把這個vbs目錄下的文件復制到剛子。C盤的exe)*/
參考資料:
VBS-百度百科