Aide-mémoire des commandes console

LABEL Quit,Detail,Convert
DIM f$,fb$,a$,b$,i%,k%
f$ = "C:\TEMP\tmp.txt"
' Commandes console
DATA "ARP","ASSOC","AT","ATTRIB","AUDITPOL", "BITSADMIN","BOOTCFG","BREAK","CACLS"
DATA "CALL","CD","CERTREQ","CERTUTIL","CHCP","CHDIR","CHKDSK","CHKNTFS","CHOICE"
DATA "CIPHER","CLIP","CLS","CMD","CMDKEY","CMSTP","COLOR","COMP","COMPACT","CONVERT"
DATA "COPY","CSCRIPT","DATE","DEL","DIANTZ","DIR","DISKCOMP","DISKCOPY","DISKPART"
DATA "DISKPERF","DISKRAID","DISM","DOSKEY","DRIVERQUERY","ECHO","ENDLOCAL","ERASE"
DATA "EVENTCREATE","EXIT","EXPAND","EXTRAC32","FC","FIND","FINDSTR","FINGER","FLTMC"
DATA "FOR","FORFILES","FORMAT","FSUTIL","FTP","FTYPE","GETMAC","GOTO","GPRESULT"
DATA "GPUPDATE","HELP","HOSTNAME","ICACLS","IF","IPCONFIG","ISCSICLI","KLIST"
DATA "KTMUTIL","LABEL","LODCTR","LOGMAN","MAKECAB","MD","MKDIR","MKLINK","MODE"
DATA "MOFCOMP","MORE","MOUNTVOL","MOVE","MRINFO","MSIEXEC","NET","NET1","NETSH"
DATA "NETSTAT","NSLOOKUP","OCSETUP","OPENFILES","PATH","PATHPING","PAUSE","PING"
DATA "PKGMGR","POPD","POWERCFG","PRINT","PROMPT","PUSHD","RASAUTOU","RASDIAL","RD"
DATA "REAGENTC","RECOVER","REG","REGINI","REGSVR32","RELOG","REM","REN","RENAME"
DATA "REPLACE","RMDIR","ROBOCOPY","ROUTE","RPCPING","RUNAS","SC","SCHTASKS","SDBINST"
DATA "SECEDIT","SET","SETLOCAL","SETX","SFC","SHIFT","SHUTDOWN","SORT","START"
DATA "SUBST","SXSTRACE","SYSTEMINFO","TAKEOWN","TASKKILL","TASKLIST","TCMSETUP"
DATA "TIME","TIMEOUT","TITLE","TRACERPT","TRACERT","TREE","TYPE","TYPEPERF","TZUTIL"
DATA "UNLODCTR","VAULTCMD","VER","VERIFY","VOL","VSSADMIN","W32TM","WAITFOR"
DATA "WECUTIL","WEVTUTIL","WHERE","WHOAMI","WINMGMT","WINRM","WINRS","WMIC"
DATA "WSMANHTTPCONFIG","XCOPY","XWIZARD","F"

WIDTH 0,700: HEIGHT 0,SCREEN_Y-30: BORDER_SMALL 0: CAPTION 0," -  COMMANDES  -"
  FONT_NAME 0,"Bitstream Vera Sans Mono": FONT_SIZE 0,9: FONT_BOLD 0
  ON_CLOSE 0,Quit
LIST 1: HEIGHT 1, HEIGHT_CLIENT(0): WIDTH 1,110: COLOR 1,255,255,164
  ON_CLICK 1,Detail
LIST 2: LEFT 2,WIDTH(1): WIDTH 2,WIDTH_CLIENT(0)-WIDTH(1): HEIGHT 2,HEIGHT(1)
  COLOR 2,210,255,210
MEMO 3: HIDE 3: WIDTH 3,1000
READ a$: WHILE a$<>"F": ITEM_ADD 1,a$: READ a$: END_WHILE
ITEM_SELECT 1,1: GOSUB Detail
END
' ==============================================================================
Quit:
  IF FILE_EXISTS(f$) = 1 THEN FILE_DELETE f$
TERMINATE
' ==============================================================================
Detail:
  a$ = ITEM_INDEX$(1): CLIPBOARD_STRING_COPY "NR"
  ' EXECUTE_WAIT "cmd.exe /c "+a$+" /? | clip"
  Cmd("cmd.exe /c "+a$+" /? | clip")
  IF a$ = "SHUTDOWN" OR a$="MOFCOMP" OR a$="RASDIAL" OR a$="WINMGMT" OR a$="WINRS"
    GOSUB Convert
  END_IF
  CLEAR 3: CLIPBOARD_PASTE 3: b$ = clipboard_string_paste$
  a$ = ITEM_INDEX$(1)
  CLEAR 2: ITEM_ADD 2,STRING$(33,"-")+"  "+a$+"  "+STRING$(33,"-")
  IF b$ = "NR" OR b$ = ""
    ' EXECUTE_WAIT "cmd.exe /c "+a$+" /? >"+f$
    Cmd("cmd.exe /c "+a$+" /? >"+f$)
    IF FILE_EXISTS(f$) = 1
        FILE_OPEN_READ 1,f$
        WHILE FILE_EOF(1) = 0
            FILE_READLN 1,b$: ITEM_ADD 2,b$
        END_WHILE
        FILE_CLOSE 1
        IF b$ = ""
            ITEM_ADD 2,""
            ITEM_ADD 2,"  Cette commande doit être lancée en mode Administrateur !"
        END_IF
    END_IF
  ELSE
    FOR k% = 1 TO COUNT(3): ITEM_ADD 2,ITEM_READ$(3,k%): NEXT k%
  END_IF
RETURN
' ==============================================================================
Convert:
  ' Conversion des 0A en 0D0A pour affichage
  a$ = CLIPBOARD_STRING_PASTE$
  k% = INSTR(a$,CHR$(10))
  WHILE k% > 0
      a$ = LEFT$(a$,k%-1)+CHR$(255)+RIGHT_POS$(a$,k%+1): k% = INSTR(a$,CHR$(10))
  END_WHILE
  k% = INSTR(a$,CHR$(255))
  WHILE k% > 0
      a$ = LEFT$(a$,k%-1)+CHR$(13)+CHR$(10)+RIGHT_POS$(a$,k%+1)
      k% = INSTR(a$,CHR$(255))
  END_WHILE
  CLIPBOARD_STRING_COPY a$
RETURN
' ==============================================================================
SUB Cmd(commande$)
  ' Exécution d'une commande
  DIM_LOCAL fb$: fb$ = "Command.bat"
  FILE_OPEN_WRITE 1,fb$
  FILE_WRITELN 1,"@echo off": FILE_WRITELN 1,commande$
  FILE_CLOSE 1
  EXECUTE_WAIT fb$
  FILE_DELETE fb$
END_SUB
' ==============================================================================

MEMO 10
EXECUTE_WAIT "cmd.exe /c DIR /B "+rep$+"\*.bmp | clip": ' liste -> presse-papier
CLIPBOARD_PASTE 10

EXECUTE_WAIT "cmd.exe /c ARP /? | clip"
PRINT CLIPBOARD_STRING_PASTE$

MEMO 1: FULL_SPACE 1: FONT_NAME 1,"Lucida Console"
EXECUTE_WAIT "cmd.exe /c DIR /? | clip"
CLIPBOARD_PASTE 1

MEMO 1: FULL_SPACE 1: FONT_NAME 1,"Lucida Console"
file_open_write 1,"Test.bat"
file_writeln 1,"cmd.exe /c DIR /? | clip"
file_close 1
EXECUTE_WAIT "test.bat"
file_delete "Test.bat"
CLIPBOARD_PASTE 1

LABEL Quit,Detail,Convert
DIM f$,fb$,a$,b$,i%,k%
f$ = "C:\TEMP\tmp.txt"
' Commandes console
DATA "ARP","ASSOC","AT","ATTRIB","AUDITPOL", "BITSADMIN","BOOTCFG","BREAK","CACLS"
DATA "CALL","CD","CERTREQ","CERTUTIL","CHCP","CHDIR","CHKDSK","CHKNTFS","CHOICE"
DATA "CIPHER","CLIP","CLS","CMD","CMDKEY","CMSTP","COLOR","COMP","COMPACT","CONVERT"
DATA "COPY","CSCRIPT","DATE","DEL","DIANTZ","DIR","DISKCOMP","DISKCOPY","DISKPART"
DATA "DISKPERF","DISKRAID","DISM","DOSKEY","DRIVERQUERY","ECHO","ENDLOCAL","ERASE"
DATA "EVENTCREATE","EXIT","EXPAND","EXTRAC32","FC","FIND","FINDSTR","FINGER","FLTMC"
DATA "FOR","FORFILES","FORMAT","FSUTIL","FTP","FTYPE","GETMAC","GOTO","GPRESULT"
DATA "GPUPDATE","HELP","HOSTNAME","ICACLS","IF","IPCONFIG","ISCSICLI","KLIST"
DATA "KTMUTIL","LABEL","LODCTR","LOGMAN","MAKECAB","MD","MKDIR","MKLINK","MODE"
DATA "MOFCOMP","MORE","MOUNTVOL","MOVE","MRINFO","MSIEXEC","NET","NET1","NETSH"
DATA "NETSTAT","NSLOOKUP","OCSETUP","OPENFILES","PATH","PATHPING","PAUSE","PING"
DATA "PKGMGR","POPD","POWERCFG","PRINT","PROMPT","PUSHD","RASAUTOU","RASDIAL","RD"
DATA "REAGENTC","RECOVER","REG","REGINI","REGSVR32","RELOG","REM","REN","RENAME"
DATA "REPLACE","RMDIR","ROBOCOPY","ROUTE","RPCPING","RUNAS","SC","SCHTASKS","SDBINST"
DATA "SECEDIT","SET","SETLOCAL","SETX","SFC","SHIFT","SHUTDOWN","SORT","START"
DATA "SUBST","SXSTRACE","SYSTEMINFO","TAKEOWN","TASKKILL","TASKLIST","TCMSETUP"
DATA "TIME","TIMEOUT","TITLE","TRACERPT","TRACERT","TREE","TYPE","TYPEPERF","TZUTIL"
DATA "UNLODCTR","VAULTCMD","VER","VERIFY","VOL","VSSADMIN","W32TM","WAITFOR"
DATA "WECUTIL","WEVTUTIL","WHERE","WHOAMI","WINMGMT","WINRM","WINRS","WMIC"
DATA "WSMANHTTPCONFIG","XCOPY","XWIZARD","F"

WIDTH 0,700: HEIGHT 0,SCREEN_Y-30: BORDER_SMALL 0: CAPTION 0," -  COMMANDES  -"
  FONT_NAME 0,"Bitstream Vera Sans Mono": FONT_SIZE 0,9: FONT_BOLD 0
  ON_CLOSE 0,Quit
LIST 1: HEIGHT 1, HEIGHT_CLIENT(0): WIDTH 1,110: COLOR 1,255,255,164
  ON_CLICK 1,Detail
LIST 2: LEFT 2,WIDTH(1): WIDTH 2,WIDTH_CLIENT(0)-WIDTH(1): HEIGHT 2,HEIGHT(1)
  COLOR 2,210,255,210
MEMO 3: HIDE 3: WIDTH 3,1000
READ a$: WHILE a$<>"F": ITEM_ADD 1,a$: READ a$: END_WHILE
ITEM_SELECT 1,1: GOSUB Detail
END
' ==============================================================================
Quit:
  IF FILE_EXISTS(f$) = 1 THEN FILE_DELETE f$
TERMINATE
' ==============================================================================
Detail:
  a$ = ITEM_INDEX$(1): CLIPBOARD_STRING_COPY "NR"
   EXECUTE_WAIT "cmd.exe | /c "+a$+" /? | clip"
  ' Cmd("cmd.exe /c "+a$+" /? | clip")
  IF a$ = "SHUTDOWN" OR a$="MOFCOMP" OR a$="RASDIAL" OR a$="WINMGMT" OR a$="WINRS"
    GOSUB Convert
  END_IF
  CLEAR 3: CLIPBOARD_PASTE 3: b$ = clipboard_string_paste$
  a$ = ITEM_INDEX$(1)
  CLEAR 2: ITEM_ADD 2,STRING$(33,"-")+"  "+a$+"  "+STRING$(33,"-")
  IF b$ = "NR" OR b$ = ""
     EXECUTE_WAIT "cmd.exe | /c "+a$+" /? >"+f$
    ' Cmd("cmd.exe /c "+a$+" /? >"+f$)
    IF FILE_EXISTS(f$) = 1
        FILE_OPEN_READ 1,f$
        WHILE FILE_EOF(1) = 0
            FILE_READLN 1,b$: ITEM_ADD 2,b$
        END_WHILE
        FILE_CLOSE 1
        IF b$ = ""
            ITEM_ADD 2,""
            ITEM_ADD 2,"  Cette commande doit être lancée en mode Administrateur !"
        END_IF
    END_IF
  ELSE
    FOR k% = 1 TO COUNT(3): ITEM_ADD 2,ITEM_READ$(3,k%): NEXT k%
  END_IF
RETURN
' ==============================================================================
Convert:
  ' Conversion des 0A en 0D0A pour affichage
  a$ = CLIPBOARD_STRING_PASTE$
  k% = INSTR(a$,CHR$(10))
  WHILE k% > 0
      a$ = LEFT$(a$,k%-1)+CHR$(255)+RIGHT_POS$(a$,k%+1): k% = INSTR(a$,CHR$(10))
  END_WHILE
  k% = INSTR(a$,CHR$(255))
  WHILE k% > 0
      a$ = LEFT$(a$,k%-1)+CHR$(13)+CHR$(10)+RIGHT_POS$(a$,k%+1)
      k% = INSTR(a$,CHR$(255))
  END_WHILE
  CLIPBOARD_STRING_COPY a$
RETURN
' ==============================================================================
' SUB Cmd(commande$)
  ' Exécution d'une commande
' DIM_LOCAL fb$: fb$ = "Command.bat"
'  FILE_OPEN_WRITE 1,fb$
'  FILE_WRITELN 1,"@echo off": FILE_WRITELN 1,commande$
'  FILE_CLOSE 1
'  EXECUTE_WAIT fb$
'  FILE_DELETE fb$
' END_SUB

EXECUTE_WAIT "cmd.exe|/c DIR /B C:\TEXTES\*.txt | clip"