; SysInfo
; -------
; Displays a range of system information using
; Script inbuilt commands
;
report on
;step on
getname A
console	System Information,Computer name is %A|,,10|10,350|400
;goto end
getuser A
console ,Current user is %A|
;goto end
winver A,p
winver B,m
winver C,n
winver D,x
console ,Running Windows %A version %B.%C %D|,c
getdisk A
iferror exit
console ,Current disk is %A|
windir A
console ,Windows directory is %A|
sysdir A
console ,System directory is %A|
memsize A
console ,Memory size is %AMb|
getscrnx A
getscrny B
console ,Screen size is %A by %B|
finddisk B
:loop
iferror exit
disktype %B,C,v
console ,Drive %B is %C|,
ifnvar C,Fixed,next
;console ,Drive %B:|,
disksize %B,A
console ,    %A bytes total|,
diskused	%B,A
console ,    %A bytes used|,
diskfree	%B,A
console ,    %A bytes free|
:next
nextdisk B
goto loop
:exit
getprint A
console ,Default printer is %A|,
gettime A
getdate B,w,l
getdate C
getdate D,m,l
console ,|At %A on %B %C|,
;console ,Month is %D|,
:end
msgbox Completed,Click OK to exit ,0,c