ALGO FACIL PERO NO RECUERDO BIEN COMO ERA

[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

[wmormar]

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" )

[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

[Patricio Avalos Aguirre]

Hola

Lo que puedes hacer es crear el archivo bat y luego ejecutar..

Code: Select all  Expand view  RUN

      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

[QAZWSX2K]

SI ERA ESO, MANDE A CREAR EL BAT Y LUEGO EJECUTARLO, FUNCIONO PERFECTO, GRACIAS A TODOS