VB: Скрипт выдает ошибку

Господа спецы, выручайте! Скрипт от Мангуста для передачи закачки флэшгет для оперы выдает ошибку. В чем проблема? Текст ниже:

Dim desc
desc=""
ref=""
if WScript.Arguments.Count>1 then
desc=WScript.Arguments(1)
end if
if WScript.Arguments.Count>2 then
ref=WScript.Arguments(2)
end if
AddLink WScript.Arguments(0), desc, ref

Sub AddLink(ByVal Url, ByVal Info, ByVal Refer)
set JetCarCatch=CreateObject("JetCar.Netscape")
JetCarCatch.AddUrl Url, Info, Refer
end sub

[Hubbitus]

Ошибку-то какую выдает?

Hubbitus
Строка: 10
Символ: 1
Ошибка: Индекс выходит за пределы допустимого диапазона
Код: 800А0009

[dr-evil]

AddLink WScript.Arguments(0), desc, ref
а тут не 1 должно быть?

[aoxyz_30330]

я ватще не понимаю, нафика под веб на вбскрипт писаать? нетскейп же вообще не поймет етого ...

[Sheryld]

а в asp(обычном) очень даже удобно делать на нем обработчики, да и с com работать(а asp-классика это читай com).
а про броузеры можно не беспокоиться(для asp):

<script language="VBScript" runat="server">
code here
</script>

[Sheryld]

а где проверка есть ли вообще аргументы?
т.е. твоя ошибка это обычный NULL. т.е. нету такого объекта Arguments(0) в коллекции Arguments - нету нулевого аргумента? а вот почему это - х.з.:
моя версия что у тебя просто не создается объект WSHost(Windows Script Host).
p.s. все это имхо, на основе инфы из MSDN.

Спасибо всем, кто откликнулся. Тема закрыта. Скрипт рабочий. Решение проблемы было не в нем и находится здесь http://www.imho.ws/showthread.php?t=47314

[repeek]

@djon72!

спасибо за линк!

Repeek