Default Browser -
This code will determine your default browser.
Original Author: Paul Kurczaba
Assumptions
Copyright 2005 Paul Kurczaba
Returns
The function returns the location of your default browser.
Side Effects
None :)
Code
Public Function DefaultBrowser()
On Error Resume Next
Dim Regentry As String
Set TheReg = CreateObject("Wscript.Shell")
Regentry = TheReg.RegRead("HKEY_CLASSES_ROOTHTTPshellopencommand")
Regentry = Replace(Regentry, Chr(34), "")
Regentry = Mid(Regentry, 1, InStr(1, LCase(Regentry), ".exe") + 3)
DefaultBrowser = Regentry
End Function
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.