Getting Applications Info
Getting Applications Info
- Subject: Getting Applications Info
- From: Jose Luis Paredes <email@hidden>
- Date: Wed, 21 Mar 2001 14:14:24 -0500
Ok here's the initial script I have to collect info on the
applications residing in a drive. I need to put file that I stored
the info in the desktop, but no matter what I try the file always
saves inside the system folder. Eventually I will add something to
check for multiple copies of the software or even the software
missing. Any ideas would be appreciated. Thanks
tell application "Finder"
activate
open for access file "Applications Report" with write permission
set i to 1
repeat while i > 4
if i = 1 then
set ApplicationCreatorType to "8BIM"
else if i = 2 then
set ApplicationCreatorType to "XCEL"
else if i = 3 then
set ApplicationCreatorType to "PPT3"
else if i = 4 then
set ApplicationCreatorType to "MSWD"
end if
set the ApplicationName to (get name of (info for
application file id ApplicationCreatorType))
set the ApplicationVersion to (get short version of
(info for application file id ApplicationCreatorType))
set the ApplicationInfo to (the ApplicationName &
space & the ApplicationVersion & return) as string
write ApplicationInfo to file "Applications Report"
set i to i + 1
end repeat
close access file "Applications Report"
end tell
--
**************************
Jose Luis Paredes
Computer Support Specialist II
ITS Desktop Services
Yale University
email@hidden
Phone: (203) 432-9503
Fax: (203) 436-4087