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& = Créer("MultiEdit",%hwnd,»,1,10,500,400)
Var Button& = Créer("Button",%hwnd,"Start",540,10,80,24)
Var Button1& = Créer("Button",%hwnd,"Ende",540,40,80,24)

Whilenot Ende&

    Waitinput

    Si Clicked(Button1&)

        Ende& = 1

    ElseIf Clicked(Button&)

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

    Endif

Endwhile

Fin

Proc DirektDosOutputToMultiedit

    Paramètres Progname$,Command$,MemBuffer&,Multiedit&
    Déclarer hRPipe&,hWPipe&,pRBytes&,Result&
    Déclarer PI#,SI#,SA#
    Faible PI#,PROCESS_INFORMATION
    Faible SI#,STARTUPINFO
    Faible SA#,SECURITY_ATTRIBUTES
    Déclarer StringBuffer$
    StringBuffer$ = Space$(MemBuffer&)
    SA#.nLength& =SizeOf(SA#)
    SA#.bInheritHandle& = 1
    SA#.lpSecurityDescriptor& = 0
    Result& = ~CreatePipe(Addr(hRPipe&), Addr(hWPipe&), SA#, 0)

    Si Result& = 0

        MessageBox("Pipe konnte pas gestartet werden",»,0)
        Fin

    Endif

    Si Progname$ <> »

        Command$ = " " + Command$

    Endif

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

    Si Progname$ = »

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

    D'autre

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

    Endif

    Si Result& <> 1

        MessageBox("Datei pas gefunden",»,0)
        Fin

    D'autre

    Endif

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

    Tandis que Result& <> 0

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

        Si 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&)
    Dispose PI#,SI#,SA#

ENDPROC

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

Déclarer la ligne$
Fenêtre 100,100-640,480
ShellExec("C:\dsquery.cmd","open",0)
Imprimer "Warten..."
Sleep 10000
Imprimer "Weiter...."
Assign #1,"C:\RESULT.TXT"
Reset #1

WhileNot Eof(#1)

    Contribution #1,la ligne$
    Imprimer la ligne$

Endwhile

Fermer #1
WaitInput

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