home *** CD-ROM | disk | FTP | other *** search
- ;Display(1,"Ta Da","Looking up sysinfo")
- CR=strcat(Num2char(13),Num2Char(10))
- TAB=Num2Char(9)
-
- wintype="retail"
- if WinMetrics(22) then wintype="debug"
-
- wc=WinConfig()
- if !(wc&1) then mode="Real"
- if wc&16 then mode="Standard"
- if wc&32 then mode="Enhanced"
-
- if wc&2 then cpu=286
- if wc&4 then cpu=386
- if wc&8 then cpu=486
- if wc&64 then cpu=8086
- if wc&128 then cpu=80186
-
- Sysinfo=strcat(cpu,' ',mode,' ',wintype,' Windows ',WinVersion(1),'.',WinVersion(0),CR)
-
-
-
- math="No math"
- if wc&1024 then math="Math"
- mouse="No Mouse"
- if WinMetrics(19) then mouse="Mouse"
-
- Sysinfo=strcat(sysinfo,math," co-processor. ",mouse,' available.',CR)
-
-
-
- sysinfo=strcat(sysinfo,WinMetrics(0),'x',WinMetrics(1)," video resolution. ",WinMetrics(-1)," colors.",CR)
-
- ErrorMode(@OFF)
- LastError()
- PlayMedia("Status WaveForm Ready")
- ErrorMode(@CANCEL)
- if LastError()!=1193 then sysinfo=strcat(sysinfo,"Windows multimedia extensions present.",CR)
-
- bug=NetGetCaps(2)
- if bug==0 then math="No n"
- if bug!=0 then math="N"
- if bug==256 then math="Microsoft n"
- if bug==512 then math="Lan Manager n"
- if bug==768 then math="Novell NetWare n"
- if bug==1024 then math="Banyan Vines n"
- if bug==1280 then math="10 Net n"
- sysinfo=strcat(sysinfo,math,"etwork installed.",CR)
-
- bug=WinResources(0)/1024 ; Compute memory avail
- math=strlen(bug)
- if math>3 then bug=strcat(strsub(bug,1,math-3),',',strsub(bug,math-2,3))
-
- sysinfo=strcat(sysinfo,CR,bug," KB Free Memory",CR)
- sysinfo=strcat(sysinfo,WinResources(2),"%% System Resources Free (",WinResources(3),"%% GDI, ",WinResources(4),"%% User)",CR)
-
- sysinfo=strcat(sysinfo,"DOS ",DosVersion(1),'.',DosVersion(0)," using ",environment("COMSPEC"),CR)
- disks=DiskScan(1)
- if disks!="" then sysinfo=strcat(sysinfo,"Floppies ",disks,CR)
- disks=DiskScan(2)
- if disks!="" then sysinfo=strcat(sysinfo,"Hard Disks ",disks,CR)
- disks=DiskScan(4)
- if disks!="" then sysinfo=strcat(sysinfo,"Network Disks ",disks,CR)
- sysinfo=strcat(sysinfo,"Windows Directory ",DirWindows(0),CR)
- sysinfo=strcat(sysinfo,"System Directory ",DirWindows(1),CR)
-
- ver=Version()
- Message("WinBatch %ver% SysInfo",Sysinfo)
-