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

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

- - [решено] Создание ярлыка на рабочем столе (http://forum.oszone.net/showthread.php?t=316579)

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

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

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

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.

Код:

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