Apple System Profiler
Apple System Profiler
- Subject: Apple System Profiler
- From: Mike Tuller <email@hidden>
- Date: Mon, 11 Dec 2000 13:14:37 -0600
Sorry, forgot to add the script.
For those of you who are interested, here is my final version of the script.
It requires OS 9.0.4 and ASP version 2.4.5, but can be modified for older
versions.
The script writes a tab-delimited file ready to import into a database.
Thanks to all that helped me with this.
Mike
------------
tell application "Macintosh HD:System Folder:Apple Menu Items:Apple System
Profiler"
make new report at beginning
repeat until gathering is false
end repeat
set systemInfo to system info
set macOSInfo to Mac OS info
set startupInfo to startup info
set memoryInfo to memory info
set ethernetinfo to network info
set hardwareInfo to hardware info
set networkInfo to network info
set OpenTransportInfo to Open Transport info
set AppleTalkInfo to AppleTalk info
set TCPIPInfo to TCPIP info
set productionInfo to production info
set finderversion to finder version of systemInfo
set systemVersion to system version of systemInfo
set quicktimeVersion to QuickTime version of systemInfo
set fileSharing to file sharing of systemInfo
set carbonLib to CarbonLib version of systemInfo
set startupDiskName to Startup DiskName of systemInfo
set startupDiskType to Startup DiskType of systemInfo
set startupDiskLocation to Startup Disk Location of systemInfo
set startupDiskBus to Startup Disk Bus of systemInfo
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 logic board num of hardwareInfo
set uniqueLogicBdNum to unique logic board 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 openTransportVersion to Open Transport version 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 TCPIPversion to TCPIP version 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 webSharing to web sharing 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
set reportText to report text
activate
quit
end tell
set fileRef to open for access file "Macintosh HD:gestaltoutput.txt" with
write permission
try
writeData("", finderversion, fileRef)
writeData("", systemVersion, fileRef)
writeData("", quicktimeVersion, fileRef)
writeData("", fileSharing, fileRef)
writeData("", carbonLib, fileRef)
writeData("", startupDiskName, fileRef)
writeData("", startupDiskType, fileRef)
writeData("", startupDiskLocation, fileRef)
writeData("", startupDiskBus, fileRef)
writeData("", videoMemorySize, fileRef)
writeData("", VMInfo, fileRef)
writeData("", VMSize, fileRef)
writeData("", physicalRAM, fileRef)
writeData("", diskCache, fileRef)
writeData("", logicBdNum, fileRef)
writeData("", uniqueLogicBdNum, fileRef)
writeData("", ratedSpeed, fileRef)
writeData("", modelName, fileRef)
writeData("", keyboardType, fileRef)
writeData("", processorType, fileRef)
writeData("", processorsLocal, fileRef)
writeData("", ethernetSpeed, fileRef)
writeData("", ethernetDuplex, fileRef)
writeData("", openTransportVersion, fileRef)
writeData("", appletalkZone, fileRef)
writeData("", networkPorts, fileRef)
writeData("", appletalkNetwork, fileRef)
writeData("", appletalkNode, fileRef)
writeData("", appletalkAddress, fileRef)
writeData("", appletalkRouter, fileRef)
writeData("", TCPIPversion, fileRef)
writeData("", TCPIPnetmask, fileRef)
writeData("", TCPIPaddress, fileRef)
writeData("", TCPIPgateway, fileRef)
writeData("", TCPIPdomain, fileRef)
writeData("", TCPIPnameserver, fileRef)
writeData("", webSharing, fileRef)
writeData("", romRevision, fileRef)
writeData("", bootROM, fileRef)
writeData("", bootROMfile, fileRef)
writeData("", serialNumber, fileRef)
close access fileRef
on error
close access fileRef
end try
on writeData(desc, value, fileLocation)
try
write desc & value & tab to fileLocation
on error
display dialog "oops"
end try
end writeData