Проблема со скриптом

Есть скрипт для создания Ярлыка .url из буфера обмена. Но он создаётся только на рабочем столе. И ещё глючит, при со здании в какой нибудь папке, там создастся уже блокнот, но и ярлык, но он опять на рабочем столе. Помогите отредактировать, чтоб создавался в разных папках откуда запускаю. А блокнота чтоб совсем не было. Заранее спасибо.
=====
clipboard = CreateObject("HTMLFile").parentWindow.clipboardData.GetData("text")
Filename = InputBox("Введите имя:", "Создание текстового документа.")
If Filename = Empty Then WScript.Quit

With CreateObject("Scripting.FileSystemObject")
If .FileExists(Filename + ".txt") Then WScript.Quit 0
With .OpenTextFile(Filename + ".txt", 2, True)
.WriteLine (clipboard)
.Close
End With
End With

With CreateObject("WScript.Shell")
Set myshortcut = .CreateShortcut(.SpecialFolders("Desktop") + "\" + Filename + ".url")
myshortcut.TargetPath = .ExpandEnvironmentStrings(clipboard)
myshortcut.Save
End With