0 Open IE from QTP

Public Function IE_Open(url)
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate url
IE.Visible = True
End Function

Read more

1 Close all IE browsers

'// This will close all IE browsers
Public Function closeAllBrowsers
Dim oDesc, x

'Create a description object
Set oDesc = Description.Create
oDesc( "micclass" ).Value = "Browser"

'Loop through the collection and close each browser
If Desktop.ChildObjects(oDesc).Count > 0 Then
For x = 0 to Desktop.ChildObjects(oDesc).Count - 1
Browser( "creationtime:=" & x ).Close
Next
End If
End Function

Read more