Page 1 of 1
ALGO FACIL PERO NO RECUERDO BIEN COMO ERA
Posted: Fri Jul 27, 2007 3:26 pm
by QAZWSX2K
TRATO DE EJECUTAR UN COMANDO QUE ANTES ERA CON RUN PERO AUNQUE CON GETSYSDIR OBTENGO LA RUTA Y TRATO DE CORRERLO SIEMPRE ME DA ERROR DE PROTECCION GENERAL, AUN EXISTE EL COMANDO RUN O HAY ALGUNA MANERA NUEVA DE EJECUTAR UN COMANDO EXTERNO QUE NO RECUERDE AHORA, ESPECIFICAMENTE QUIERO EJECUTA NET VIEW PARA OBTENER LAS MAQUINAS EN LA RED Y HACER UNA TABLA CON ESO, GRACIAS
Re: ALGO FACIL PERO NO RECUERDO BIEN COMO ERA
Posted: Fri Jul 27, 2007 7:55 pm
by wmormar
QAZWSX2K wrote:TRATO DE EJECUTAR UN COMANDO QUE ANTES ERA CON RUN PERO AUNQUE CON GETSYSDIR OBTENGO LA RUTA Y TRATO DE CORRERLO SIEMPRE ME DA ERROR DE PROTECCION GENERAL, AUN EXISTE EL COMANDO RUN O HAY ALGUNA MANERA NUEVA DE EJECUTAR UN COMANDO EXTERNO QUE NO RECUERDE AHORA, ESPECIFICAMENTE QUIERO EJECUTA NET VIEW PARA OBTENER LAS MAQUINAS EN LA RED Y HACER UNA TABLA CON ESO, GRACIAS
waitrun( "miexe.exe",4 )
y
ShellExecute( oWnd, , "c:\documentos\mi.doc" )
Posted: Fri Jul 27, 2007 8:11 pm
by QAZWSX2K
si ya probe waitrun, winexec y ahora el shellexecute, ejecutan el "NET VIEW" pero necesito que arroje la salida a un txt, osea ("NET VIEW > SALIDA.TXT"), ese sieria el comando pero al ponerle nada mas el ">" da error de proteccion de windows
Posted: Fri Jul 27, 2007 8:21 pm
by Patricio Avalos Aguirre
Hola
Lo que puedes hacer es crear el archivo bat y luego ejecutar..
Code: Select all
if !file( "C:\CONECT2.BAT" )
if (hFile := fCreate( "C:\CONECT2.BAT", 0 )) = -1
return( .t. )
endif
FWRITE( hFile, "NET VIEW >C:\conect2.txt" + CRLF )
FCLOSE( hFile )
endif
WineXEC( "C:\CONECT2.BAT", 0 )
//BLA....
//ELIMINAR ARCHIVO TEMPORAl
Saludos
Patricio
Posted: Mon Jul 30, 2007 2:15 pm
by QAZWSX2K
SI ERA ESO, MANDE A CREAR EL BAT Y LUEGO EJECUTARLO, FUNCIONO PERFECTO, GRACIAS A TODOS