' Start Google Chrome
Set WshShell = WScript.CreateObject("Wscript.Shell")
On Error Resume Next
chrome = wshshell.RegRead("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\chrome.exe\")
If Err.number<>0 Then
chrome = wshshell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\chrome.exe\")
End If
Dim fso
Set fso = WScript.CreateObject("Scripting.Filesystemobject")
If fso.FileExists(chrome) Then
wshshell.Run """" & chrome & """",1,False
Else
WScript.Echo "could not locate Chrome."
End If