Объединить два скрипта VBScript и JScript
 

Здравствуйте. Есть два скрипта, первый VBScript.vbs создаёт новый блокнот и вставляет в него только что скопированный текст. Скопировал - запустил - и у нас готовый блокнот с вставленным в него текстом из буфера обмена. Так же есть окошко для ввода имени новому блокноту.
И второй, это JScript.js. Он создаёт ярлык URL, но он создаёт URL с одним и тем же с адресом, который постоянно в скрипте, буфер обмена не задействован.
Можно ли их объединить или подправить один, чтоб было как и в первом, но только чтоб создавался уже URL с новой вставленной туда ссылкой, тоже из буфера обмена?
Скопировал ссылку - нажал - и у меня новый URL

Этот скрипт VBScript.vbs, создание блокнота со вставкой текста из буфера

Set FSO = WScript.CreateObject("Scripting.FileSystemObject")
clipboard = CreateObject("HTMLFile").parentWindow.clipboardData.getData("text")
Randomize()
FileName=Inputbox("Введите имя:","Создание текстового документа.")
'Для кнопки Отмена или для пустого поля ввода
If FileName=Empty Then
WScript.Quit
End If
If FSO.FileExists(FileName & ".txt") Then
WScript.Quit 0
Else
End If
set oFile = CreateObject("Scripting.FileSystemObject").OpenTextFile("" & FileName & ".txt", 2, True)
ofile.WriteLine(clipboard)
ofile.Close

И второй, это JScript.js. Создаёт ярлык URL, адрес там постоянный

var Myshell = new ActiveXObject("WScript.Shell");
var mypath = Myshell.SpecialFolders("Desktop");
var myshortcut = Myshell.CreateShortcut(mypath + "\\МОЙ НОВЫЙ.url");
myshortcut.TargetPath = Myshell.ExpandEnvironmentStrings("http://www.oszone.net/")
myshortcut.Save();

перепишите джаваскрипт кусок на вбскрипт

А лучше напишите поточнее, что вы хотите получить, с примером. На Powershell это будет две с половиной строки.

Как и в первом скрипте создания блокнота, только создаваться уже будет не блокнот, а ярлык URL, уже буду копировать не обычный текст, а ссылку. Скопировал ссылку - запустил - и у нас готовый ярлык URL с вставленным в него адресом из буфера обмена.
Ответ у megaloman, всё хорошо работает.

Спасибо, всё работает. Только маленький вопрос, у созданного ярлыка расширение как у блокнота .txt, это так и должно быть?

Вообще-то расширение url, txt в названии ярлыка. Не нравится, сделайтеИли придумайте любое другое название ярлыка вместо определённого в переменной Filename

Тьфу, извиняюсь, я поторопился. Сейчас только заметил что при вставке обычного текста создаётся и блокнот тоже, это очень удобно одним скриптом делать и ярлык и блокнот. Но только при вставке текста хоть и создаётся, но всплывает окно с ошибкой, можно ли это исправить? Было бы супер, скрипт как два в одном.

Если в буфере не ссылка, иконка не должна создаваться?

Так у блокнота она же всегда есть, своя. Но сейчас проблема в другом, они рабочем столе почему то создаются скрытыми, новые файлы видно если только рабочий стол просматривать из какой то папки, это слева через область переходов. Но там мне непонятно, заглянул в свойства файла, галочки что он скрытый или только чтение там не стоят. Так же параметрах папок скрытие отключено. Не знаю почему скрыты. Постоянно они видны становятся только если проводник перезапущу.

Здравствуйте ещё раз. Кнопку сделал в контекстном меню, пытаясь делать ярлык в какой нибудь папке, но он всегда создаётся только на рабочем столе. Можно ли сделать чтоб создавалось везде?