' Start Google Chrome

Set WshShell = WScript.CreateObject("Wscript.Shell")

OnErrorResumeNext
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\")
EndIf

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."
EndIf

search for scripts

VbsEdit contains all these sample scripts!


Download Now!



Download   Home   Scripts

Copyright © 2001-2022 adersοft