home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Magazin 1995 November / CD_11_95.BIN / share95 / tools / winbatch / sysinfo.wb_ < prev    next >
Text File  |  1994-10-12  |  3KB  |  88 lines
  1. CR=strcat(Num2char(13),Num2Char(10))
  2. TAB=Num2Char(9)
  3.  
  4. BoxOpen("SysInfo","Sysinfo is examining your system.%cr%Please wait.")
  5.  
  6. wintype="retail"
  7. if WinMetrics(22) then wintype="debug"
  8.  
  9. wcx=WinMetrics(-3)
  10. math="Math"
  11. switch wcx
  12.     case 0 ; Win16  Intel
  13.         wc=WinConfig()
  14.         if !(wc&1) then mode="Real"
  15.         if wc&16 then mode="Standard"
  16.         if wc&32 then mode="Enhanced"
  17.         
  18.         if wc&64 then cpu=8086
  19.         if wc&128 then cpu=80186
  20.         if wc&2 then cpu=286
  21.         if wc&4 then cpu=386
  22.         if wc&8 then cpu=486
  23.         mode = strcat(cpu,' ',mode,' ',wintype,' Windows ')
  24.         if !(wc&1024)  then math="No math"
  25.         break
  26.         
  27.     case 1 ; Win32 Intel
  28.          mode="Intel 32-bit %wintype% Windows "
  29.          break
  30.     case 2 ; Dec Alpha
  31.          mode="DEC Alpha %wintype% Windows NT "
  32.          break
  33.     case 3 ; MIPS
  34.          mode="MIPS %wintype% Windows NT "
  35.          break
  36.     case 4 ; PowerPC 
  37.          mode="PowerPC %wintype% Windows NT "
  38.          break
  39.     case wcx ; Unknown 
  40.          mode="Advanced platform %wintype% Windows NT "
  41.          break
  42. endswitch
  43.         Sysinfo=strcat(mode,WinVersion(1),'.',WinVersion(0),CR)
  44.  
  45.  
  46. mouse="No Mouse"
  47. if WinMetrics(19) then mouse="Mouse"
  48.  
  49. Sysinfo=strcat(sysinfo,math," co-processor.   ",mouse,' available.',CR)
  50.  
  51.  
  52.  
  53. sysinfo=strcat(sysinfo,WinMetrics(0),'x',WinMetrics(1)," video resolution.  ",WinMetrics(-1),"  colors.",CR)
  54.  
  55. ErrorMode(@OFF)
  56. LastError()
  57. PlayMedia("Status WaveForm Ready")
  58. ErrorMode(@CANCEL)
  59. if LastError()!=1193 then sysinfo=strcat(sysinfo,"Windows multimedia extensions present.",CR)
  60.  
  61. math=NetInfo(0)
  62. if math=="MULTINET" then math=strcat(math,"/",NetInfo(1))
  63. sysinfo=strcat(sysinfo,math," Network installed.",CR) 
  64.  
  65. bug=WinResources(0)/1024   ; Compute memory avail
  66. math=strlen(bug)
  67. if math>3 then bug=strcat(strsub(bug,1,math-3),',',strsub(bug,math-2,3))
  68.  
  69. sysinfo=strcat(sysinfo,CR,bug," KB Free Memory",CR)
  70. sysinfo=strcat(sysinfo,WinResources(2),"%% System Resources Free (",WinResources(3),"%% GDI, ",WinResources(4),"%% User)",CR)
  71.  
  72. sysinfo=strcat(sysinfo,"DOS ",DosVersion(1),'.',DosVersion(0),"  using ",environment("COMSPEC"),CR)
  73. disks=DiskScan(1)
  74. if disks!="" then sysinfo=strcat(sysinfo,"Floppies ",disks,CR)
  75. disks=DiskScan(2)
  76. if disks!="" then sysinfo=strcat(sysinfo,"Hard Disks ",disks,CR)
  77. disks=DiskScan(4)
  78. if disks!="" then sysinfo=strcat(sysinfo,"Network Disks ",disks,CR)
  79. sysinfo=strcat(sysinfo,"Windows Directory ",DirWindows(0),CR)
  80. sysinfo=strcat(sysinfo,"System  Directory ",DirWindows(1),CR)
  81. sysinfo=strcat(sysinfo,CR,"WIL Interpreter Ver ",VersionDll())
  82.  
  83.  
  84. ver=Version()
  85. Message("WinBatch %ver% SysInfo",Sysinfo)
  86.  
  87.  
  88.