Get browser versions

 

Compatibilities: Required Xtras: Buddy API

Rating:

Returns the version of browsers on the system

on getAllBrowsers   IE = baReadRegString( "SoftwareMicrosoftWindowsCurrentVersionApp Pathsiexplore.exe", "", "", "hkey_local_machine" )      NS = baReadRegString( "SoftwareMicrosoftWindowsCurrentVersionApp Paths etscape.exe", "", "", "hkey_local_machine" )   browserList = [:]   the itemDelimiter = "."   if IE <> "" then     versionIE = float((baFileVersion(IE).item[1] & "." & baFileVersion(IE).item[2]))     if versionIE < 4.72 and versionIE > 3.0 then versionIE = 3.0     addProp browserList, #IE, versionIE   end if   if NS <> "" then     addProp browserList, #NS, float((baFileVersion(NS).item[1] & "." & baFileVersion(NS).item[2]))   end if   return browserList end on getBehaviorDescription me   describe = "This returns a property list of the installed version of internet explorer or netscape navigator.  Call like this..." & return & "browserList = getAllBrowsers()"   return describe end

Upload Provided by ABCUpload ASP