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