Re: Apple System Profiler
Re: Apple System Profiler
- Subject: Re: Apple System Profiler
- From: Mike Tuller <email@hidden>
- Date: Mon, 11 Dec 2000 10:04:04 -0600
Ok, I got the following script modified so that it gathers the information
needed, but it puts the info in the file in a list rather than tab-delimited
format. How do I get it from a list to tab-delimited? I tried looking up
writeData in the Applescript Language Guide, but couldn't find it, so I'm
back to asking you guys.
--------------------------------
tell application "HardDisk:Desktop Folder:Apple System Profiler"
make new report at beginning
repeat until gathering is false
end repeat
set macOSInfo to MacOS info
set memoryInfo to memory info
set ethernetinfo to network info
set productionInfo to production info
set hardwareInfo to hardware info
set finderVersion to finder version of macOSInfo
set systemVersion to system version of macOSInfo
set quicktimeVersion to QuickTime version of macOSInfo
set videoMemorySize to video memory size of memoryInfo
set VMInfo to VM info of memoryInfo
set VMSize to VM size of memoryInfo
set physicalRAM to physical RAM size of memoryInfo
set diskCache to memory cache size of memoryInfo
set logicBdNum to logicboard num of hardwareInfo
set ratedSpeed to rated speed of hardwareInfo
set modelName to model name of hardwareInfo
set keyboardType to keyboard type of hardwareInfo
set processorType to processor type of hardwareInfo
set processorsLocal to processors of hardwareInfo
set ethernetSpeed to Ethernet speed of ethernetinfo
set ethernetDuplex to Ethernet duplex of ethernetinfo
set appletalkZone to default AppleTalk zone of ethernetinfo
set networkPorts to active network ports of ethernetinfo
set appletalkNetwork to AppleTalk network of ethernetinfo
set appletalkNode to AppleTalk node of ethernetinfo
set appletalkAddress to AppleTalk address of ethernetinfo
set appletalkRouter to AppleTalk router of ethernetinfo
set TCPIPnetmask to TCPIP netmask of ethernetinfo
set TCPIPaddress to TCPIP address of ethernetinfo
set TCPIPgateway to TCPIP gateway of ethernetinfo
set TCPIPdomain to TCPIP domain of ethernetinfo
set TCPIPnameserver to TCPIP nameserver of ethernetinfo
set romRevision to ROM revision of productionInfo
set bootROM to boot ROM version of productionInfo
set bootROMfile to boot ROM file version of productionInfo
set serialNumber to serial number of productionInfo
activate
quit
end tell
set fileRef to open for access file "HardDisk:Desktop
Folder:gestaltoutput.txt" with write permission
try
writeData("Finder version:", finderVersion, fileRef)
writeData("System version:", systemVersion, fileRef)
writeData("Quicktime version:", quicktimeVersion, fileRef)
writeData("Video Memory size:", videoMemorySize, fileRef)
writeData("Virtual Memory status:", VMInfo, fileRef)
writeData("Virtual Memory size:", VMSize, fileRef)
writeData("Physical RAM:", physicalRAM, fileRef)
writeData("Disk Cache:", diskCache, fileRef)
writeData("Logic Board number:", logicBdNum, fileRef)
writeData("Processor speed:", ratedSpeed, fileRef)
writeData("Model Name:", modelName, fileRef)
writeData("Keyboard Type:", keyboardType, fileRef)
writeData("Processor Type:", processorType, fileRef)
writeData("Number of Processors:", processorsLocal, fileRef)
writeData("Ethernet Speed:", ethernetSpeed, fileRef)
writeData("Ethernet Duplex:", ethernetDuplex, fileRef)
writeData("AppleTalk zone:", appletalkZone, fileRef)
writeData("Network Port:", networkPorts, fileRef)
writeData("AppleTalk Network:", appletalkNetwork, fileRef)
writeData("AppleTalk Node:", appletalkNode, fileRef)
writeData("AppleTalk Address:", appletalkAddress, fileRef)
writeData("AppleTalk Router:", appletalkRouter, fileRef)
writeData("TCPIP Netmask:", TCPIPnetmask, fileRef)
writeData("TCPIP Address:", TCPIPaddress, fileRef)
writeData("TCPIP Gateway:", TCPIPgateway, fileRef)
writeData("TCPIP Domain:", TCPIPdomain, fileRef)
writeData("TCPIP Nameserver:", TCPIPnameserver, fileRef)
writeData("ROM Revision:", romRevision, fileRef)
writeData("Boot ROM:", bootROM, fileRef)
writeData("Boot ROM File:", bootROMfile, fileRef)
writeData("Serial Number:", serialNumber, fileRef)
close access fileRef
on error
close access fileRef
end try
on writeData(desc, value, fileLocation)
try
write desc & tab & tab & tab & value & return to fileLocation
on error
display dialog "oops"
end try
end writeData