| Set Ie = CreateObject("InternetExplorer.Application")
Ie.Navigate( "about:blank" )
WorkStr = Ie.Document.parentWindow.navigator.appVersion
WorkStr = Replace(WorkStr,")", "" )
WorkArray = Split( WorkStr, ";" )
Wscript.Echo Trim( WorkArray( UBound( WorkArray ) ) )
Ie.Quit
| |