Besoin de vbscript pour ouvrir l'URL des liens dans les pages web dans le navigateur google Chrome, pas IE

À mon lieu de travail, nous utilisons IE11 et Chrome. Nous avons une série de fichiers Flash (créé via Xelsius Crystal Dashboard) incorporé dans de HTM pages que l'accès externe de sources de données XML et nous ne pouvons les faire fonctionner à l'aide d'une HTA application qui surmonte la sécurité d'adobe restrictions en place.

Certains des autres liens que nous avons sur ces pages web, pointez sur Google Drive, Docs
et actuellement, ils ouvrent TOUJOURS en IE quand on clique dessus. La difficulté est, dans mon organisation, c'est à dire ne fonctionne pas bien avec Google Drive nous voudrions donc les liens pour ouvrir dans Chrome qui fonctionne avec Google Docs

Demandant aux gens de changer leur navigateur par défaut de Chrome ne fonctionne pas comme les ETS app s'ouvre toujours dans IE, de sorte que toute demande subséquente de liens cliqués également ouvrir dans IE.

J'ai été informé qu'il est possible de forcer un lien à utiliser google Chrome à l'aide d'un vbscript à l'aide de "Coquille" de la commande suivie par le "chemin de Chrome" et la "URL à ouvrir".

Que vbscript serait appelée avec un onclick() événement de navigation bouton ou d'un lien sur notre htm pages (par ex.
a onclick="openURLinChrome('link-to-open")"etc)

J'ai cherché pendant des jours à la recherche d'un moyen de créer ce script en vain, alors je me suis inscrite ici pour demander de l'aide. Il y a quelques discussions ici qui je pensais peut-être aider, mais ils n'ont pas vraiment s'appliquer à mon problème.

Quelqu'un peut-il proposer une solution?

Merci beaucoup

InformationsquelleAutor Ged | 2016-03-03
  1. 9

    La clé est d'obtenir le chemin d'accès à Chrome.Exe qui peut être à plusieurs endroits sur le disque. Heureusement, il est stocké dans le Registre; il faut donc lire le registre à partir de VB Script. Ensuite c'est juste une question de l'appelant à l'URL. Depuis le chemin peut contenir des espaces, il doit être entre guillemets.

    Copiez le texte suivant dans le bloc-notes, enregistrer sous OpenChrome.vbs et double-cliquez dessus dans l'Explorateur Windows.

    function readFromRegistry (strRegistryKey, strDefault)
    Dim WSHShell, value



    On Error Resume Next
    Set WSHShell = CreateObject ("WScript.Shell")
    value = WSHShell.RegRead (strRegistryKey)

    if err.number <> 0 then
        readFromRegistry= strDefault
    else
        readFromRegistry=value
    end if

    set WSHShell = nothing
end function

function OpenWithChrome(strURL)
    Dim strChrome
    Dim WShellChrome



    strChrome = readFromRegistry ( "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\chrome.exe\Path", "") 
    if (strChrome = "") then
        strChrome = "chrome.exe"
    else
        strChrome = strChrome & "\chrome.exe"
    end if
    Set WShellChrome = CreateObject("WScript.Shell")
    strChrome = """" & strChrome & """" & " " & strURL
    WShellChrome.Run strChrome, 1, false
end function

OpenWithChrome "http://www.microsoft.com"
    • Merci, cela fonctionne très bien.
    • Dans ce cas, pouvez-vous marquer comme la accepté de répondre?
    • que faire si nous avons voulu ouvrir un site et de faire certaines actions, comme le choix d'une option dans une liste déroulante et cliquez sur un bouton? Je pense que la fonction doit retourner un gestionnaire, de quel type d'objet que gestionnaire doit être?
    InformationsquelleAutor MikeC
  2. 2
    siteA = "https://google.com"
siteB = "https://bing.com"
siteC = "https://yahoo.com"
Const OneSecond = 1000 
Set browobj = CreateObject("Wscript.Shell")
browobj.Run "chrome -url "&siteA
WScript.Sleep OneSecond*20
browobj.Run "chrome -url "&siteB
WScript.Sleep OneSecond*6
browobj.Run "chrome -url "&siteC
WScript.Sleep OneSecond*6
Set browobj = Nothing
    • Alors que ce code peut répondre à la question, en fournissant plus de contexte sur comment et/ou pourquoi il résout le problème serait d'améliorer la réponse à long terme de valeur.
    InformationsquelleAutor Chris_P
  3. 0

    Quelque chose comme ça.

    Sub openURLinChrome(strLink)
     Set wshShell = CreateObject("WScript.Shell")
     strChromePath = "C:\Program Files (x86)\Google\Chrome\Application\Chrome.exe"
         wshShell.Run strChromePath & " -url " & strLink, 1, false
End Sub
    • Je vous remercie beaucoup. Je vais essayer ce lundi matin, une fois de retour au bureau et vous laisser savoir.
    • Merci - j'ai essayé cela, mais le chemin d'accès à google Chrome sur nos machines doivent être différentes, donc j'ai eu une erreur. J'ai essayé ce qui a fait un travail...
    • CreateObject("WScript.Shell").Exécutez google chrome "- url " & URL, 1, FALSE
    InformationsquelleAutor ssaviers