Changing file/folder icon with AppleScript how to?

[Miga]

Hello,

Does anybody know how to mimic Cmd-I, CmdC, Cmd-I, Cmd-V to copy the icon of a file or folder to another file or folder with AppleScript?

Many thanks in advance