"""" & youtube_dl & ssylka

"""" & youtube_dl & """ """ & ssylka

list_txt="c:\00\0\list.txt" 'список с ссылками
output_txt="c:\00\0\output.txt" 'сюда пишем результаты 
youtube_dl="c:\00\0\youtube-dl.exe" 

Set fso = CreateObject("Scripting.FileSystemObject")
Set WSHShell = WScript.CreateObject("WScript.Shell")

Schityvanie

'Создаём процедуру
Sub Schityvanie
   Set infile = fso.OpenTextFile(list_txt, 1)
  Set outfile = fso.OpenTextFile(output_txt, 2, True)
Do While Not infile.AtEndOfStream

'считываем строку из list.txt в переменную ssylka
 ssylka = infile.ReadLine 

'выполняем
RetCode = WSHShell.Run ("""" & youtube_dl & ssylka &""" --simulate --get-title --get-id --get-duration --get-format --get-description",2,True)


'пишем в output_txt
outfile.WriteLine(RetCode)
Loop

infile.Close
outfile.Close

End Sub

Set WSHShell = Nothing

RetCode = WSHShell.Run ("""" & youtube_dl & ssylka &""" --simulate --get-title --get-id --get-duration --get-format --get-description",2,True)