Как назначить случайное значение переменной из заданого списка в vbs?

Спасибо большое)

Как сделать несколько условий в одном if в vbs?

res2001, Спасибо,да вот чтото взялся за вбс из за простоты,думаю не сложно будет потом перескочить на javascript как немножко освою vbs из за их схожести

Как сделать несколько условий в одном if в vbs?

a = no
m = no
j = no
g = no

if a=no or m=no or j=no or g=no then
MsgBox "fruktov net"
else
MsgBox "est frukti"
End If

Эта функция работает с хорошо с цифрами,под буквы почему то получал неверные ответы,вставил в переменные цифры и всё заработало

Почему при get запросе отказ в доступе vbs?

p.s. ссылка должна была быть http ,а не https ,потому и ошибка

Как произвести запись файла во временную папку на vbs?

хотя нет,заработало,огромное вам спасибо

Как произвести запись файла во временную папку на vbs?

Set oShell = CreateObject( "WScript.Shell" )
temp=oShell.ExpandEnvironmentStrings("%TEMP%")
set d = CreateObject("Scripting.Dictionary")
d.Add "1", "http://google.com/trash.txt|"&temp&"\trash.txt"
Set x = CreateObject("MSXML2.XMLHTTP")
For Each i In d
x.open "GET", Split(d.Item(i), "|")(0), false
x.send()
If x.Status = 200 Then
With CreateObject("ADODB.Stream")
.Open
.Type = 1
.Write x.ResponseBody
.Position = 0
.SaveToFile Split(d.Item(i), "|")(1), 2
.Close
End With
End If
Next
////так к сожаленю ошибка в синтаксисе возникает((

Как произвести запись файла во временную папку на vbs?

А не подскажите как подставить выведенные данные непосредственно в эту строчку ?
d.Add "0", "прямая ссылка на файл 1|D:\file1.txt"
А то я совсем новичёк,чтото никак не могу заставить работать полученные данные в пути сохранения((