Forums Developers Shortcuts with com?

i have written a script in vbs

"
Dim Shell
Dim Desk
Dim Link
Set Shell=WScript.CreateObject("WScript.shell")
Desk=Shell.SpecialFolders("Desktop")
on error resume next
Set Link=Shell.CreateShortcut(Desk & "\" & "mIRC.LNK")
on error resume next
Link.TargetPath="C:\Programme\mirc\mirc.exe"
Link
on error resume next
Link.Save
msgbox "Ready!"
"

Is it possible to make this with com objects?
I have seen, with com could write into registry (Wshell), but i have no idea how.
Could anybody help me?

Thx for tutorials, help and other....