使用VBS以URL和信息亭模式启动Chrome

时间:2019-06-05 09:48:59

标签: vbscript

我想使用VBS代码通过参数运行Chrome,这是我的程序:

  1. 检查Chrome进程是否未运行:

  2. 如果这样,请使用带有信息亭模式参数的URL启动Chrome。

Set objShell = CreateObject("WScript.Shell") i = 1

strPC = "." strProfile = objShell.ExpandEnvironmentStrings("%LOCALAPPDATA%")


strPath = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe
--kiosk www.stackoverflow.com"

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strPC & "\root\cimv2")

Do While i = 1
    booChrome = False

    Set colProcesses = objWMIService.ExecQuery _
        ("Select * From Win32_Process")
    For Each objItem in colProcesses
        strProcessName = objItem.Caption
        If strProcessName = "chrome.exe" Then booChrome = True
    Next
    
    If booChrome = False Then objShell.Run(Chr(34) & strPath & Chr(34))
    WScript.Sleep 300000 Loop

此代码失败,但是如果我从URL中删除参数,启动Chrome会很好

1 个答案:

答案 0 :(得分:0)

我在Windows 10(32位)上创建并测试了该vbscript。

因此,您应该根据自己的目的对其进行修改。

FindNext