既懂javascript又懂vbscript的高手：帮忙解决一个棘手的问题！

Question

我有这么一段vbscript的程序，在javascript中应该怎么写呢？
Function hasIcaObjVal()
    Dim obj
    Err.Clear
    On Error Resume Next
    hasIcaObjVal = False
    Set obj = CreateObject("Scripting.FileSystemObject")
    If (Err.number = 0) Then
        hasIcaObjVal = True
    Else
        Err.Clear
        Set obj = CreateObject("MSXML2.XMLHTTP")
        If (Err.number = 0) Then
            hasIcaObjVal = True
        Else
            Err.Clear
            hasIcaObjVal = False
        End If
    End If
    Set obj = Nothing
End Function

Answer 1

function hasIcaObjVal(){
  var rtn = false;
  
  try{
    var obj = new ActiveXObject("Scripting.FileSystemObject");
    rtn = true;
  }catch(e){
    rtn = false;
  }  if(rtn == false){
    try{
      obj = new ActiveXObject("MSXML2.XMLHTTP");
      rtn = true;
    }catch(e){
      rtn = false;
    }
  }
  
  return rtn;
}

Answer 2

不认真，改一下：）
function hasIcaObjVal(){
  var rtn = false;
  var obj;
  
  try{
    obj = new ActiveXObject("Scripting.FileSystemObject");
    rtn = true;
  }catch(e){
    rtn = false;
  }  if(rtn == false){
    try{
      obj = new ActiveXObject("MSXML2.XMLHTTP");
      rtn = true;
    }catch(e){
      rtn = false;
    }
  }
  
  obj = null;
  return rtn;
}