[решено] Создание ярлыка на рабочем столе

[Jeerjmin]

Видел похожие темы, но в силу знаний не получилось толком разобраться.

В итоге собрал вот такой скрипт:

set oShell = WScript.CreateObject("WScript.Shell")
Set oShortCut = oShell.CreateShortcut("MyText.lnk")
oShortCut.TargetPath = "C:\RHDSetup.txt"
oShortCut.Save

Вместо последней строки пытался добавить:
Set oShortCut = oShell.CreateShortcut(AllUsersDesktop & "MyText.lnk")

Ни к чему не привело.
Помогите исправить код, пожалуйста.
ОС - Windows 7.

[Iska]

Option Explicit

With WScript.CreateObject("Wscript.Shell")
With .CreateShortcut(WScript.CreateObject("Scripting.FileSystemObject").BuildPath(.SpecialFolders("Desktop"), "MyText.lnk"))
.TargetPath = "C:\RHDSetup.txt"
.Save
End With
End With