set sametime = CreateObject("STComTk.CommunityService")
sametime.LoginByPassword "Server", "User", "Password"