Conexion->Cerrar();
}
//________________________________________________________________________________________________________
?>
';
echo 'window.parent.resultado_arrancar(1)'.chr(13);
echo '';
}
else{
echo '';
}
?>
CreaParametro("@tipoaccion",$EJECUCION_COMANDO,1);
$cmd->CreaParametro("@idtipoaccion",$identificador,1);
$cmd->CreaParametro("@cateaccion",$PROCESOS,1);
$cmd->CreaParametro("@ambito",$ambito,1);
$cmd->CreaParametro("@idambito",$idambito,1);
$cmd->CreaParametro("@fechahorareg",date("y/m/d H:i:s"),0);
$cmd->CreaParametro("@estado",$ACCION_INICIADA,0);
$cmd->CreaParametro("@resultado",$ACCION_SINERRORES,0);
$cmd->CreaParametro("@idcentro",$idcentro,1);
$cmd->CreaParametro("@parametros","",0);
$cmd->CreaParametro("@descripcion","",0);
$cmd->CreaParametro("@idtarea",0,1);
$cmd->CreaParametro("@idprocedimiento",0,1);
$cmd->CreaParametro("@idcomando",0,1);
$resul=false;
if ($cmd){
$resul=true;
$cadenamac=ereg_replace( ";", "','", $cadenamac );
$cmd->texto="SELECT ordenadores.mac,servidoresrembo.ip FROM ordenadores INNER JOIN servidoresrembo ON ordenadores.idservidorrembo =servidoresrembo.idservidorrembo WHERE ordenadores.mac IN ('".$cadenamac."') ORDER BY servidoresrembo.ip";
$rs=new Recordset;
$rs->Comando=&$cmd;
if (!$rs->Abrir()) $resul=false; // Error al abrir recordset
$rs->Primero();
if(!$rs->EOF){
$ipservidorrembo=trim($rs->campos["ip"]); // toma ip servidor rembo
$cadenamac="";
while(!$rs->EOF && $resul){
if($ipservidorrembo!=trim($rs->campos["ip"])){ // compara si cambia el servidor rembo
$parametros=$ejecutor;
$parametros.="nfn=".$nombrefuncion.chr(13);
$cadenamac=substr($cadenamac,0,strlen($cadenamac)-1); // Quita la coma
$parametros.="mac=".$cadenamac.chr(13);
$parametros.="rmb=".$ipservidorrembo.chr(13);
$parametros.="iph=".$cadenaip.chr(13);
$cmd->ParamSetValor("@parametros",$parametros);
$resul=CuestionAcciones($cmd,$shidra,$parametros);
if(!$resul)
return($resul);
$ipservidorrembo=trim($rs->campos["ip"]); // toma ip servidor rembo
$cadenamac="";
}
$cadenamac.=trim($rs->campos["mac"]).";"; // toma mac del cliente
$rs->Siguiente();
}
if($resul){
$parametros=$ejecutor;
$parametros.="nfn=".$nombrefuncion.chr(13);
$cadenamac=substr($cadenamac,0,strlen($cadenamac)-1); // Quita la coma
$parametros.="mac=".$cadenamac.chr(13);
$parametros.="rmb=".$ipservidorrembo.chr(13);
$parametros.="iph=".$cadenaip.chr(13);
$cmd->ParamSetValor("@parametros",$parametros);
$resul=CuestionAcciones($cmd,$shidra,$parametros);
}
}
$rs->Cerrar();
}
return($resul);
}
?>