XProfan

 $H Windows.ph
 $H Structs.ph
Struct PROCESS_INFORMATION = ~PROCESS_INFORMATION
Struct SECURITY_ATTRIBUTES = ~SECURITY_ATTRIBUTES
Struct STARTUPINFO = ~STARTUPINFO
DEF &NORMAL_PRIORITY_CLASS  $20
DEF &STARTF_USESTDHANDLES  $100
DEF &STARTF_USESHOWWINDOW  $1
CLS ~GetSysColor(~COLOR_BTNFACE)
SetDialogFont ~GetStockObject(~ANSI_VAR_FONT)
Var Ende& = 0
Var Multi& = Crear("MultiEdit",%hwnd,"",1,10,500,400)
Var Button& = Crear("Button",%hwnd,"Start",540,10,80,24)
Var Button1& = Crear("Button",%hwnd,"Ende",540,40,80,24)

Sinestar encargado Ende&

    Waitinput

    If Clicked(Button1&)

        Ende& = 1

    ElseIf Clicked(Button&)

        ' DSQUERY
        DirektDosOutputToMultiedit("", "dsquery server",255,Multi&)

    Endif

EndWhile

End

Proc DirektDosOutputToMultiedit

    Parámetros Progname$,Command$,MemBuffer&,Multiedit&
    Declarar hRPipe&,hWPipe&,pRBytes&,Result&
    Declarar PI#,SI#,SA#
    Dim PI#,PROCESS_INFORMATION
    Dim SI#,STARTUPINFO
    Dim SA#,SECURITY_ATTRIBUTES
    Declarar StringBuffer$
    StringBuffer$ = Espacio$(MemBuffer&)
    SA#.nLength& =SizeOf(SA#)
    SA#.bInheritHandle& = 1
    SA#.lpSecurityDescriptor& = 0
    Result& = ~CreatePipe(Addr(hRPipe&), Addr(hWPipe&), SA#, 0)

    If Result& = 0

        MessageBox("Pipe podría no comenzó werden","",0)
        End

    Endif

    If Progname$ <> ""

        Command$ = " " + Command$

    Endif

    SI#.cb& = SizeOf(SI#)
    SI#.dwFlags& = &STARTF_USESHOWWINDOW | &STARTF_USESTDHANDLES
    SI#.hStdOutput& = hWPipe&
    SI#.hStdError& = hWPipe&

    If Progname$ = ""

        Result& = ~CreateProcess(0, Addr(Command$), SA#, SA#, 1, &NORMAL_PRIORITY_CLASS, 0, 0, SI#,PI#)

    Más

        Result& = ~CreateProcess(Addr(Progname$), Addr(Command$),SA#,SA#,1,&NORMAL_PRIORITY_CLASS, 0, 0,SI#,PI#)

    Endif

    If Result& <> 1

        MessageBox("Datei no gefunden","",0)
        End

    Más

    Endif

    Result& = ~CloseHandle(hWPipe&)
    Var out$ = ""

    Mientras que Result& <> 0

        Result& = ~ReadFile(hRPipe&,Addr(StringBuffer$),MemBuffer&,Addr(pRBytes&), 0)

        If pRBytes& > 0

            Out$ = Left$(StringBuffer$,pRBytes&)
            ~OemToChar(Addr(Out$),Addr(Out$))
            Settext Multiedit&,GetText $(Multiedit&)+Out$

        Endif

    Endwhile

    ~CloseHandle(PI#.hProcess&)
    ~CloseHandle(PI#.hThread&)
    ~CloseHandle(hRPipe&)
    Disponer PI#,SI#,SA#

ENDPROC

cd\
cd windows
cd syswow64
dsquery server > c:\resultado.txt

Declarar Línea$
Ventana 100,100-640,480
ShellExec("C:\dsquery.cmd","open",0)
Imprimir "Warten..."
Sleep 10000
Imprimir "Weiter...."
Asignar #1,"C:\RESULT.TXT"
Reset #1

Sinestar encargado Eof(#1)

    Entrada #1,Línea$
    Imprimir Línea$

EndWhile

Cerrar #1
WaitInput

cd\
cd windows
cd system32
dsquery > d:\texto.txt