' ---------------------------------------------------------------------------------------

' This script works with a browser installed on another station.

'

' Selenium Standalone Server:

' http://www.seleniumhq.org/download/

'

' Command line to start the server:

' java -jar selenium-server-standalone-2.47.1.jar

'

' ---------------------------------------------------------------------------------------

Const URI_SERVER = "http://127.0.0.1:4444/wd/hub"

Class Script

Dim driver

Sub Class_Initialize

Set driver = CreateObject("Selenium.WebDriver")

driver.StartRemotely URI_SERVER, "chrome"

driver.Wait 1000

End Sub

Sub Class_Terminate

driver.Quit 'Stops the browser

End Sub

End Class

Set s = New Script