home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / magazine / pcmagazi / 1990 / 02 / info.bat < prev    next >
DOS Batch File  |  1989-08-31  |  4KB  |  154 lines
  1. @ECHO OFF
  2. REM -------- Display a nice boxed header for the info report
  3. BATCHMAN CLS 1Eh
  4. BATCHMAN WINDOW 1,1,80,3,1Ch,=
  5. BATCHMAN SETCURSOR 2,23
  6. BATCHMAN CECHO 1Ch,BATCHMAN'S SYSTEM INFO REPORT
  7. BATCHMAN SETCURSOR 5,1
  8. REM -------- Now let's have some info about memory
  9. BATCHMAN CECHO C 1Eh,ROM BIOS date   :
  10. BATCHMAN ROMDATE
  11. BATCHMAN CECHO C 1Eh,Main memory     :
  12. BATCHMAN MAINMEM R
  13. BATCHMAN CECHO C 1Eh,exTENded memory :
  14. BATCHMAN EXTMEM R
  15. BATCHMAN CECHO C 1Eh,exPANded memory :
  16. BATCHMAN EXPMEM R
  17. REM -------- Display the DOS version
  18. BATCHMAN CECHO C 1Eh,DOS version is  :
  19. BATCHMAN DOSVER
  20. IF ERRORLEVEL 64 GOTO 2ormore
  21. BATCHMAN CECHO 1Ch,less than 2.0
  22. GOTO cpu
  23. :2ormore
  24. IF ERRORLEVEL 96 GOTO 3ormore
  25. BATCHMAN CECHO 1Ch,2.x
  26. GOTO cpu
  27. :3ormore
  28. IF ERRORLEVEL 128 GOTO 4ormore
  29. BATCHMAN CECHO 1Ch,3.x
  30. GOTO cpu
  31. :4ormore
  32. BATCHMAN CECHO 1Ch,at least 4.0
  33. REM -------- Determine the CPU type
  34. :cpu
  35. BATCHMAN CECHO C 1Eh,CPU type        :
  36. BATCHMAN CPU
  37. FOR %%v IN (0 1 2 3 4) DO IF ERRORLEVEL %%v GOTO cpu%%v
  38. :CPU0
  39. BATCHMAN CECHO 1Ch,unknown
  40. GOTO break
  41. :CPU1
  42. BATCHMAN CECHO 1Ch,8086/8088
  43. GOTO break
  44. :CPU2
  45. BATCHMAN CECHO 1Ch,80186
  46. GOTO break
  47. :cpu3
  48. BATCHMAN CECHO 1Ch,80286
  49. GOTO break
  50. :cpu4
  51. BATCHMAN CECHO 1Ch,80386
  52. REM -------- Is ANSI loaded?  Is BREAK on?
  53. :break
  54. BATCHMAN CECHO 1Eh,
  55. BATCHMAN CECHO C 1Eh,BREAK           :
  56. BATCHMAN BREAK
  57. IF ERRORLEVEL 1 GOTO breakon
  58. BATCHMAN CECHO 1Ch,OFF
  59. GOTO ansi
  60. :breakon
  61. BATCHMAN CECHO 1Ch,ON
  62. :ansi
  63. BATCHMAN CECHO C 1Eh,ANSI            :
  64. BATCHMAN ANSI
  65. IF ERRORLEVEL 1 GOTO noansi
  66. BATCHMAN CECHO 1Ch,loaded
  67. GOTO drives
  68. :noansi
  69. BATCHMAN CECHO 1Ch,not loaded
  70. :drives
  71. REM -----
  72. REM We use a FOR command and an auxiliary batch file to
  73. REM list the available drives in the system.
  74. REM -----
  75. BATCHMAN CECHO 1Eh,
  76. BATCHMAN CECHO 1Eh,The drive test takes a little time -- don't worry.
  77. BATCHMAN CECHO C 1Eh,Drives          :
  78. FOR %%v IN (A B C D E F G H I J K L M) DO CALL DRIVINFO.BAT %%v
  79. FOR %%v IN (N O P Q R S T U V W X Y Z) DO CALL DRIVINFO.BAT %%v
  80. BATCHMAN CECHO 1Eh,
  81. BATCHMAN CECHO 1Eh,
  82. REM -------- Now let's get some info about your video.
  83. BATCHMAN CECHO C 1Eh,Video adaptor   :
  84. BATCHMAN display
  85. FOR %%v IN (1 2 3 4 5 6 7 8 9 10 11 12 13) DO IF errorlevel %%v GOTO vid%%v
  86. :vid3
  87. :vid9
  88. :vid10
  89. BATCHMAN CECHO 1Ch,Unknown
  90. GOTO vidmode
  91. :vid1
  92. BATCHMAN CECHO 1Ch,Monochrome
  93. GOTO vidmode
  94. :vid2
  95. BATCHMAN CECHO 1Ch,CGA
  96. GOTO vidmode
  97. :vid4
  98. BATCHMAN CECHO 1Ch,EGA color
  99. GOTO vidmode
  100. :vid5
  101. BATCHMAN CECHO 1Ch,EGA mono
  102. GOTO vidmode
  103. :vid6
  104. BATCHMAN CECHO 1Ch,PGS
  105. GOTO vidmode
  106. :vid7
  107. BATCHMAN CECHO 1Ch,VGA mono
  108. GOTO vidmode
  109. :vid8
  110. BATCHMAN CECHO 1Ch,VGA color
  111. GOTO vidmode
  112. :vid11
  113. BATCHMAN CECHO 1Ch,MCGA mono
  114. GOTO vidmode
  115. :vid12
  116. BATCHMAN CECHO 1Ch,MCGA color
  117. :vidmode
  118. BATCHMAN CECHO C 1Eh,Video mode #    :
  119. BATCHMAN VIDEOMODE /R
  120. BATCHMAN CECHO 1Eh,
  121. BATCHMAN CECHO C 1Eh,Rows in display :
  122. BATCHMAN ROWS /R
  123. BATCHMAN CECHO 1Eh,
  124. BATCHMAN CECHO C 1Eh,Cols in display :
  125. BATCHMAN COLS /R
  126. REM -----
  127. REM Now we get fancy with the ending.  First we hide the cursor,
  128. REM then we set up a loop for 10 repetitions.  In this loop,
  129. REM we display "Press any key!" in a window of one color,
  130. REM wait one second, and then display it in another color.  If
  131. REM the user presses a key, we bop out.  Otherwise, the display
  132. REM ends after 10 loops.
  133. REM -----
  134. BATCHMAN CURSORTYPE 32,32
  135. BATCHMAN SETLOOP 10
  136. :loop
  137.   BATCHMAN WINDOW 21,33,14,3,4Bh,=
  138.   BATCHMAN SETCURSOR 22,34
  139.   BATCHMAN CECHO C 4Bh,Press a key!
  140.   BATCHMAN BEEP 523,1
  141.   BATCHMAN WAITFOR 1
  142.   IF ERRORLEVEL 1 GOTO end
  143.   BATCHMAN WINDOW 21,33,14,3,3Ch,=
  144.   BATCHMAN SETCURSOR 22,34
  145.   BATCHMAN CECHO C 3Ch,Press a key!
  146.   BATCHMAN BEEP 392,1
  147.   BATCHMAN WAITFOR 1
  148.   IF ERRORLEVEL 1 GOTO end
  149.   BATCHMAN DECLOOP
  150. IF ERRORLEVEL 1 GOTO loop
  151. :end
  152. BATCHMAN SETCURSOR 25,1
  153. BATCHMAN CURSORTYPE
  154.