Vbscript 在xp以上的任何Windows操作系统上使用脚本打开Chrome

对于Windows PC，我需要一个脚本来打开Google Chrome，无论它是在%PROGRAMFILES%、%PROGRAMFILES%（x86）、%LOCALAPPDATA%（XP）还是%APPDATA%中，如果没有安装，则报告没有安装Google Chrome。这可能吗？

您不需要使用vbscript

以下命令将确定Chrome的安装位置，并将

CHROMEPATH

环境变量设置为此值

从命令行：

for /f "usebackq tokens=1,2,3,4,5" %a in (`reg query HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\ /s /f \chrome.exe ^| findstr Application`) do set CHROMEPATH="%c %d %e"

for /f "usebackq tokens=1,2,3,4,5" %%a in (`reg query HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\ /s /f \chrome.exe ^| findstr Application`) do set CHROMEPATH="%%c %%d %%e"

来自批处理文件：

for /f "usebackq tokens=1,2,3,4,5" %a in (`reg query HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\ /s /f \chrome.exe ^| findstr Application`) do set CHROMEPATH="%c %d %e"

for /f "usebackq tokens=1,2,3,4,5" %%a in (`reg query HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\ /s /f \chrome.exe ^| findstr Application`) do set CHROMEPATH="%%c %%d %%e"

运行此命令（在我的计算机上）后：

如果

%CHROMEPATH%

为空，则不安装Crome

如果它不是空的，那么你有安装位置，你可以运行Chrome

您可以使用

if

来测试这一点

runchrome.cmd

for /f "usebackq tokens=1,2,3,4,5" %%a in (`reg query HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\ /s /f \chrome.exe ^| findstr Application`) do set CHROMEPATH="%%c %%d %%e"

if exist %CHROMEPATH% (
  start "chrome" %CHROMEPATH%
  )
else (
  echo Chrome is not installed
)

我无法让批处理文件按预期工作。。。但是你明白了…

这应该行得通

代码

然后报告它不在那里，试着

IF NOT EXIST chrome.exe goto Unavailable

:Unavailable
echo Sorry, chrome.exe is not installed on this computer...
echo pause>nul
quit

您的最终代码应该看起来像

@echo off
IF NOT EXIST chrome.exe goto Unavailable
start chrome "site1.com" "site2.com"
quit

:Unavailable
echo Sorry, chrome.exe is not available on this computer...
pause>nul
quit

更好！！！ 编辑：

希望它能起作用！ 如果不只是告诉我它说的错误

普林格斯

---

稍微编辑一下试试代码，希望它能工作

谢谢，这太好了。现在我知道了如何为chrome找到正确的路径，我也许能够解决这个问题。在cmd中运行之后，我的chromepath是c:\programfiles\google\chrome\application\chrome.exe，0。我还没有在另一个操作系统上测试过它，但到目前为止它看起来不错。在“程序”和文件之间缺少一个空间“。我对路径中的空格也有问题。我已经更新了答案。谢谢你的帮助，普林格斯。如果我删除@，那么我在.vbs中得到的错误应该是'then'代码800A03F9。CMD不会打开chrome并回显消息，表示它没有安装，但它已安装。@Bobby Brown试试这个。。。打开一个新的记事本窗口，然后粘贴代码。。。这部分很重要，请使用文件扩展名.bat保存它。Ex-file.bat、Clock.bat等。。。很抱歉，需要.bat文件扩展名，是否要我将其转换为.vbs-普林格尔斯再次感谢你的帮助。我将批处理文件设为.bat，但Chrome并没有从它开始。我的chrome位于这里：“C:\Program Files\Google\chrome\Application\chrome.exe”如果我在cmd“start chrome”中运行，那么我的chrome浏览器确实会启动，因此我无法理解为什么它不工作。我也在其他几台电脑上试过同样的结果。我也没有得到任何错误。CMD echos抱歉，chrome.exe在此计算机上不可用。。。。如果没有安装chrome，它应该是这样的。好吧，对不起，我在度假，不过我一定会尝试解决这个问题：）chrome是你的默认浏览器吗？

Dim URL 
Dim Execute

URL = "Your URL in which to navigate"

set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "chrome.exe", URL, "", "", 1