function verificaFormIntraNet(form){
  var invalid = /^\w+([\.-]?\w+)*@\w+([\.-]?\w+)*(\.\w{2,4})+$/;
  var erro = '';
  var focou = false;
  var objFocus = null;
    
  if(invalid.test(form.intra_user.value) == false) {
    erro += "  - Seu Endereço de E-mail é inválido\n";
    if(!focou){
      focou = true;
      objFocus = form.intra_user;
    }
  }

  if(trim(form.intra_pwd.value).length == 0){
    erro += "  - Preencha uma Senha\n";
    if(!focou){
      focou = true;
      objFocus = form.intra_pwd;
    }
  }

  if(erro!=''){
    alert("Corrija o(s) seguinte(s) erro(s):\n" + erro);
    objFocus.focus()
    return false;
  } else {
    form.envia.disabled = true;
    return true;
  }
}