Sub Initialize
	Set CS = CreateObject( "STComTk.CommunityService" )
	Call CS.LoginWithPassword( "Server", "username", "password" )
	Messagebox CS.IsLoggedIn
	CS.Logout
End Sub