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