Option Explicit

Dim title : title = "Authority Client"

Dim url : url = "http://wrath:8080/weave/authority.html"

Dim exitcode : exitcode = 0

Class Global
	Private Sub Class_Initialize()
		Dim link
		Dim client
		Set link = CreateObject("Weave.Link")
		Set client = link.Client(title, url)
		Call client.BringToFront
		Call client.Send("com.cohga.authority.Get", "{}")
	End Sub

	Private Sub Class_Terminate()
		exitcode = Err.Number
	End Sub	
End Class

Dim Main : Set Main = New Global
Set Main = Nothing

WScript.Quit exitcode