Copy Menusuite for Windows Login

Hi all,

Can someone please guide me on how to copy users settings (menusuite + windows login permission) from 1 user to another?
I have created as per below for copying of database logins. Thanks in advance.

DataItem - User Menu Level
User Menu Level - OnPreDataItem()
SETRANGE(ID, OldUserId);

IF Overwrite THEN BEGIN
NewUserMenuLevel.SETRANGE(ID, NewUserId);
NewUserMenuLevel.DELETEALL;
END;

User Menu Level - OnAfterGetRecord()
CALCFIELDS(Object);
NewUserMenuLevel := “User Menu Level”;
NewUserMenuLevel.ID := NewUserId;
NewUserMenuLevel.INSERT;

Integer
Integer - OnAfterGetRecord()
MemberOf.SETRANGE(MemberOf.“User ID”,OldUserId);
IF MemberOf.FINDFIRST THEN BEGIN
l_Member.SETRANGE(l_Member.“User ID”,NewUserId);
IF l_Member.FINDFIRST THEN BEGIN
l_Member.DELETEALL;
END;
l_Member.RESET;
REPEAT
l_Member.INIT;
l_Member.“User ID” := NewUserId;
l_Member.“Role ID” := MemberOf.“Role ID”;
l_Member.Company := MemberOf.Company;
l_Member.INSERT(TRUE);
UNTIL MemberOf.NEXT = 0;
END;

You can check this

http://mibuso.com/blogs/mohana/category/assign-users/

Hi Mohana,

Thanks for the link but please see screenshot for the error as I am not able to access, any other walk around links for me to refer? Thanks in advance.
Error.JPG

It looks like Mibuso is down.

please try after sometime.

Mind that the UserMenuLevel.ID is case-sensitive. So eg ID=“Jasonandmary” is not then same as “JasonAndMary”.