Windows 10 Open links in Microsoft Edge using .vbs script

[Carenn12]

Currently I am using this script to open links in Chrome:

Sub Chrome(URL)

'----------------------------------------------------------------------

' Purpose: Launch Chrome

' Arguments: <URL>

'----------------------------------------------------------------------

if (ubound(split(URL," ")) = 0) then

Dim objShell

Set objShell = CreateObject("Shell.Application")

objShell.ShellExecute "chrome.exe", URL, "", "", 1

end if

end Sub

Is it possible to open this in Microsoft Edge? I tried replacing shellExecute line with this objShell.ShellExecute "microsoft-edge:", URL, "", "", 1, but that just opens the Edge with home page, and not the `URL`. Any tips?

 

[Neemobeer]

Set objShell = CreateObject("WScript.Shell")
objShell.Run "msedge URL"
should work

 

[Carenn12]

Set objShell = CreateObject("WScript.Shell")
objShell.Run "msedge URL"
should work

Hm, nothing happens when doing that.

 

[Carenn12]

Bump

 

[Neemobeer]

Works for me, what version of Windows? Can you use powershell instead?

 

[Carenn12]

Works for me, what version of Windows? Can you use powershell instead?

Using Windows 10. How would the script look like if using Powershell?

 

[Neemobeer]

It's depends how it needs to be called.

If it's a hard coded call then like this

Start-Process -FilePath "msedge" -ArgumentList "https://google.com"

 

[Carenn12]

It's depends how it needs to be called.

If it's a hard coded call then like this

Start-Process -FilePath "msedge" -ArgumentList "https://google.com"

So like this?:

Sub Chrome(URL)
'----------------------------------------------------------------------
'   Purpose: Launch Chrome
' Arguments: <URL>
'----------------------------------------------------------------------
if (ubound(split(URL," ")) = 0) then
  Start-Process -FilePath "msedge" -ArgumentList "URL"
end if
end Sub

 

[Neemobeer]

No you're mixing vbs and powershell. It's just the one line

 

[Carenn12]

No you're mixing vbs and powershell. It's just the one line

But there are multiple function in my .vbs file that contains lines like this:

Chrome "https://domain.my.salesforce.com/apex/ScreenPopView?nr=&cID=" + Params.ParamByName("cID") + "&crpnr=" + NR

And that

Chrome

is connected and runs by the

Sub Chrome(URL)

. Do you mean I should replace that Chrome in front of the link with this line:

Start-Process -FilePath "msedge" -ArgumentList

That does not pop the url.

 

[Neemobeer]

Visual Basic and PowerShell are different languages you can't mix the code in a script. I was suggesting to just convert your code to Powershell, it's much simpler to write.

 

[Carenn12]

Visual Basic and PowerShell are different languages you can't mix the code in a script. I was suggesting to just convert your code to Powershell, it's much simpler to write.

The .vbs file is 4000 lines of code, so I was hoping to find a easier solution.

 

[Neemobeer]

Some slight modification to the original code I suggested (VBS)

Dim URL
URL = "https://google.com"
Dim shell
Set Shell = CreateObject("WScript.Shell")
Shell.Run """" & "microsoft-edge://" & URL & """"

 

[Carenn12]

Thanks! Had to do some small adjustments, but this works like a charm:

Dim shell
Set Shell = CreateObject("WScript.Shell")
Shell.Run """" & "microsoft-edge:" & URL & """"

 

[Neemobeer]

Probably a difference in Windows 10 versions. Both microsoft-edge: and microsoft-edge:// work on mine

 

[Neemobeer]

Still would be a good learning opportunity to convert that script to powershell. I imagine that 4000+ line script would end up half the size maybe less.

 

[codeup]

Probably a difference in Windows 10 versions. Both microsoft-edge: and microsoft-edge:// work on mine

Both are calling the edge protocol. Great job.