Prohibit multiple logins from the same user

Void startuppost ()
{
Int counter;
Int maxusersessions = 1;
Int maxadminsessions = 4;
Int num = 0;
Int maxsessions = info: licenseduserstotal ();
Xsession session;
Userinfo;
Userid currentuserid;
Usergrouplist;
Formrun;
;
Currentuserid = curuserid ();
If (currentuserid = 'admin ')
Return;
For (counter = 1; counter <maxsessions; counter ++)
{
Session = new xsession (counter, true );
If (Session & session. userid ())
{
Select firstonly userinfo
Where userinfo. ID = session. userid ();
If (userinfo & (currentuserid = session. userid ()))
Num ++;
}
}

While select usergrouplist
Where usergrouplist. userid = currentuserid
& Usergrouplist. groupid = 'admin'
Maxusersessions = maxadminsessions;

If (Num> maxusersessions)
{
Box: Stop (strfmt ("the same user ID can't log in more than % 1.", maxusersessions ));
Infolog. Shutdown (true );
}

If (curuserid () = "MF" | (curuserid () = "AAL "))
{
If (! Winapi: iscontrolbuttondown ()&&
Dev_ax1_func: checkactivexregistered ())
{
Formrun = new menufunction (menuitemdisplaystr (dev_axshortform), menuitemtype: Display). Create ();
If (formrun)
{
Formrun. Run ();
Formrun. Detach ();
}
}
}

If (! Winapi: isshiftbuttondown ())
{
// Check for user ID
If (curuserid () = "MF") // <-change to your loginname
{
// Actually run tabax
Treenode: findnode (@ '\ forms \' + formstr (tabax). aotrun ();
}
}

}