Question

对于Windows PC，我想要一个可以打开谷歌浏览器的脚本，无论是％PROGRAMFILES％，％PROGRAMFILES％（x86），％LOCALAPPDATA％（XP）还是％APPDATA％，如果没有安装它就报告未安装Google Chrome。这可能吗？

Answer 1

您不需要使用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"

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

echo %CHROMEPATH%
C:\Program Files (x86)\Google\Chrome\Application\chrome.exe

如果%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
)

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

Answer 2

这应该有用......

代码

@echo off
start chrome "site1.com" "site2.com"
quit

然后报告它不是尝试类似

的东西

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

更好!!! 编辑：

Dim URL 
Dim Execute

URL = "Your URL in which to navigate"

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

希望它有效！如果不是只是试着告诉我它说的错误，

品客

编辑它一点点尝试代码，希望它有效！

在xp上的任何Windows操作系统上打开带有脚本的Chrome

2 个答案: