İnternet tarayıcısını kod ile bulmak

[uzmanamele]

Merhaba

Tarayıcının Explorer, Firefox, Chrome, Opera vs den hangi veya hangileri olduğunu kod ile bulabilir miyiz.
Explorer kurulu ise 6,7,8,9 vs hangi sürüm olduğunu bulabilir miyiz?

 

[Zeki Gürsoy]

Sub test()
'Geçerli tarayıcı
Set wsh = CreateObject("wscript.shell")
deg = wsh.RegRead("HKEY_CLASSES_ROOT\http\shell\open\command\")

'IE versiyonu
Set oFS = CreateObject("Scripting.FileSystemObject")
'vers = oFS.GetFileVersion("C:\Program Files\Internet Explorer\iexplore.exe")
vers = wsh.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Version")

MsgBox "Geçerli tarayıcı : " & deg & vbCr & "IE versiyonu     : " & vers

End Sub

 

[uzmanamele]

Merhaba

Zeki bey, elinize sağlık, çok teşekkür ederim.