use Win32::OLE;
use strict;

my $sametime = Win32::OLE->new("STComTk.CommunityService") or CrashOut("OLE object create failed");

$sametime->LoginByPassword("Server", "User", "password") or CrashOut("Unable to log in by password");

$sametime->DESTROY();

sub CrashOut {
	my $msg = shift;
	my $numerr = 0 + Win32::OLE->LastError();
	my $strerr = Win32::OLE->LastError();
	die "$msg\nError $numerr: $strerr\n";
}