topic-20411

Board index FiveWin para Harbour/xHarbour Guardar la ejecuacion de comandos DOS

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Guardar la ejecuacion de comandos DOS
Posted: Tue Nov 30, 2010 08:11 PM

Saludos amigos

Necesito lo siguiente:

con

Run Net view >listaPC.txt  //funciona pero me muestra un shell o pantalla DOS
y con
WinExec("Net view >listaPC.txt ",0) //no funciona

Gracias por la ayuda,

Adhemar

Saludos,

Adhemar C.

wmormar

Posts: 1076

Joined: Fri Oct 07, 2005 10:41 PM

Re: Guardar la ejecuacion de comandos DOS
Posted: Wed Dec 01, 2010 01:30 AM

Adhemar,

Code (fw): Select all Collapse

LOCAL cBody := "Net view >listaPC.txt"
      LOCAL nFileHandle

      nFileHandle := FCreate( "myrun.cmd" )
      IF FError() <> 0
         ? "Error al crear archivo"
         RETURN NIL
      ENDIF

      IF FWrite( nFileHandle, cBody ) <> Len( cText )
         ? "Error al escribir archivo"
      ENDIF

     WinExec( "myrun.cmd",0 )

   RETURN

William, Morales

Saludos

méxico.sureste

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: Guardar la ejecuacion de comandos DOS
Posted: Wed Dec 01, 2010 12:48 PM

Gracias William,

Funcionó perfecto

Saludos,

Adhemar

Saludos,

Adhemar C.

JmGarcia

Posts: 654

Joined: Mon May 29, 2006 03:14 PM

Re: Guardar la ejecuacion de comandos DOS
Posted: Wed Dec 08, 2010 09:13 PM

acuellar wrote:
Code (fw): Select all Collapse
WinExec("Net view >listaPC.txt ",0) //no funciona

¿ No será que te falta un "ESPACIO" entre ">" y "listaPC.txt" ?

Y si usas SHELL:

Code (fw): Select all Collapse

oRemoteShell:=CreateObject("WScript.Shell")
oRemoteShell:Run("cmd /C Net view > listaPC.txt",0,.F.)
SysWait(1) // espera 1 segundo
cTexto:=MemoRead("listaPC.txt")
.../...
oRemoteShell:=nil

Con SHELL, además, no sale ninguna ventana DOS, que hacen muy feo.

Mi abuelo decía: Los aviones vuelan porque Dios quiere, y los helicópteros ni Dios sabe porque vuelan.

FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013

FiveTech Support Forums

Continue the discussion