Code:
alias createshortcut {

  .comopen WshShell WScript.Shell

  noop $com(WshShell,SpecialFolders,3,bstr,Desktop)

  var %Desktop = $com(WshShell).result

  noop $com(WshShell,CreateShortcut,3,bstr,$+(%Desktop,\,Shortcut Script.lnk),dispatch* oShellLink)

  noop $com(oShellLink,targetpath,4,bstr*,%desktop)

  noop $com(oShellLink,Save,3)

  .comclose oShellLink

  .comclose WshShell

}
This works fine, just add others proprieties according to the snippet

#mircscripting @ irc.swiftirc.net == the best mIRC help channel