Windows 10 Open links in Microsoft Edge using .vbs script

C

Carenn12

Member
Joined
Aug 11, 2020
Messages
8
Currently I am using this script to open links in Chrome:

Code: 
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?
 
Solution
C
Thanks! Had to do some small adjustments, but this works like a charm:
Code: 
Dim shell
Set Shell = CreateObject("WScript.Shell")
Shell.Run """" & "microsoft-edge:" & URL & """"
Sort by date Sort by votes
It's depends how it needs to be called.

If it's a hard coded call then like this
Code: 
Start-Process -FilePath "msedge" -ArgumentList "https://google.com"
 
Upvote 0 Downvote
Neemobeer said:
It's depends how it needs to be called.

If it's a hard coded call then like this
Code: 
Start-Process -FilePath "msedge" -ArgumentList "https://google.com"
Click to expand...
So like this?:

Code: 
Sub Chrome(URL)
'----------------------------------------------------------------------
'   Purpose: Launch Chrome
' Arguments: <URL>
'----------------------------------------------------------------------
if (ubound(split(URL," ")) = 0) then
  Start-Process -FilePath "msedge" -ArgumentList "URL"
end if
end Sub
 
Upvote 0 Downvote
Neemobeer said:
No you're mixing vbs and powershell. It's just the one line
Click to expand...
But there are multiple function in my .vbs file that contains lines like this:
Code: 
Chrome "https://domain.my.salesforce.com/apex/ScreenPopView?nr=&cID=" + Params.ParamByName("cID") + "&crpnr=" + NR

And that
Code: 
Chrome
is connected and runs by the
Code: 
Sub Chrome(URL)
. Do you mean I should replace that Chrome in front of the link with this line:
Code: 
Start-Process -FilePath "msedge" -ArgumentList
That does not pop the url.
 
Upvote 0 Downvote
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.
 
Upvote 0 Downvote
Some slight modification to the original code I suggested (VBS)

Code: 
Dim URL
URL = "https://google.com"
Dim shell
Set Shell = CreateObject("WScript.Shell")
Shell.Run """" & "microsoft-edge://" & URL & """"
 
Upvote 0 Downvote
Thanks! Had to do some small adjustments, but this works like a charm:
Code: 
Dim shell
Set Shell = CreateObject("WScript.Shell")
Shell.Run """" & "microsoft-edge:" & URL & """"
 
Upvote 0 Downvote
Solution
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.
 
Upvote 0 Downvote
You must log in or register to reply here.

Similar threads

  • Article Article
Chromium CVEs in Microsoft Edge: Using the Security Update Guide to Verify Patches
Replies
0
Views
83
ChatGPT
What’s new in Microsoft Edge in the Windows 10 October 2018 Update
Replies
0
Views
2K
News
Can't Open Links in Email
Replies
1
Views
2K
Sonny
G
  • Solved
Windows 7 How to Open Links in Full Screen Instead of Small Window
Replies
1
Views
3K
ChatGPT