regexp find links og e-mail adresser og sæt href rundt om dem

Jeg har nogle tekster jeg godt kunne tænke mig at rette links/e-mail adresser i, så de bliver klik bare.

Har dette fra Visual Basic der virker efter hensigten
function makeLinks(str)
    '*** Make the reqular expr object
    Set objRegExp = New RegExp
    objRegExp.IgnoreCase = True
    objRegExp.Global = True

    '***Make html links
    objRegExp.Pattern = "(\bhttp\:\/\/)?(\bw{3}\.\S+\.[a-z][a-z]+\b)(\/\S+\b)?(\?\S+\b)?"
    str = objRegExp.Replace(str, "<a target=""_blank"" href="&chr(34)&"http://$2$3$4"&chr(34)&">$1$2$3$4</a>")

    '***Make html mailto
    objRegExp.Pattern = "(\S+@{1}\S+\.[a-z][a-z]+\b)"
    str = objRegExp.Replace(str, "<a href="&chr(34)&"mailto:$1"&chr(34)&">$1</a>")
    Set objRegExp = Nothing
    makelinks = str
end function

Men nu skal jeg bruge det i Jscript (Javascript)

Nogen der kan hjælpe, for jeg er stået af.