createSpecList

 

Compatibilities: Required Xtras: FileXtra Buddy API

This item has not yet been rated

Usage - call with createSpecList (howToReturn). Possible values are..."file", "message", "field", "return" File will write to a text file on the windows desktop, message will place info in the message window, Field will place in a field named specList, and return will return the list as a value. This is an extreme overuse of Buddy"s Functions, but can come in handy.

on createSpecList howReport   sysList = []   split = ";"   --system info   add sysList, "OperatingSystem" & split & string(baVersion("os"))   case baCpuInfo( "type" ) of     0 : CPU = "unknown"     3 : CPU = "386"     4 : CPU = "486"     5 : CPU = "Pentium"     6 : CPU = "PentiumPro"   end case   add sysList, "CPU Type" & split & CPU   add sysList, "CPU Speed" & split & string(baCpuInfo( "speed" ))   add sysList, "Physical RAM" & split & string(baMemoryInfo( "ram" )/(1048576)) & "MB"   add sysList, "Free RAM" & split & string(baMemoryInfo( "free ram" )/(1048576)) & "MB"   add sysList, "Swap File Size" & split & string(baMemoryInfo( "free swap" )/1048576) & "MB"   add sysList, "Monitor resolution" & split & string(baScreenInfo( "width" )) && "X" &&  string(baScreenInfo( "height" ))   add sysList, "Monitor color depth" & split &  string(baScreenInfo( "depth" )) && "Bit Color"      --drive info   driveList = []   theDrives = DrivesToList()   add driveList, "MountedDrives" & split & string(theDrives.count) && "Total Drives"   repeat with x = 1 to theDrives.count     add driveList, "Drive Letter" & split

Upload Provided by ABCUpload ASP