Suche Tool zum Auslesen von Seriennummern beim Mac

property btn_OK : {"Ok"} as string  
property btn_Cancel : {"Abbrechen"} as string  
property btn_RegisterNew : {"Neuregitration"} as string  
property btn_CleareFoncache : {"Font-Cache löschen"} as string  
property current_user : {do shell script "whoami"} as string  

property MS_reg_Doc : {"/Applications/Microsoft Office 2008/Office/OfficePID.plist"} as string  
property MS_pref_path : {"/Users/" & current_user & "/Library/Preferences/Microsoft/Office 2008/Office Registration Cache 2008"} as string  
property MS_serial_path : {"/Users/" & current_user & "/Library/Preferences/Microsoft/Office 2008/Microsoft Office 2008 Settings.plist"} as string  
property MS_fontcache_path : {"/Users/" & current_user & "/Library/Preferences/Microsoft/Office 2008/Office Font Cache (12)"} as string  

property txt_Answer_Warning : {" wird jetzt unwiderruflich durchgeführt." & return & return} as string  
property txt_Answer_allActions : {"Hiermit können Sie die \"Office 2008 Registrierung\" " & ¬  
	"und den \"Office 2008 Font-Cache\" löschen, um \"Office 2008\" mit einer anderen Seriennummer registrieren zu können " & ¬  
	"oder Fehler die durch den Font-Cache verursacht werden beheben." & return & return} as string  
property txt_Answer_onlyReg : {"Für die Neueingabe einer anderen Seriennummer können Sie hiermit die \"Office 2008 Registrierung\" löschen." & return & return} as string  
property txt_Answer_onlyFon : {"Hiermit können Sie den \"Office 2008 Font-Cache\" löschen." & return & return} as string  
property txt_Answer_noAction : {"\"Office 2008 Registrierung\" und \"Office 2008 Font-Cache\" löschen sind nicht verfügbar."} as string  
property txt_Answer_OK : {"Die Aktion für \"Office 2008\" wurde erfolgreich durchgeführt." & return & return}  

property txt_Registration_Error : {"Die Registration von \"Office 2008\" wurde noch nicht durchgeführt." & return & return & ¬  
	"Bitte registrieren Sie \"Office 2008\" durch starten von Excel oder Word." & return & return} as string  
property txt_Fontcache_Error : {"Der Font-Cache von \"Office 2008\" wurde schon gelöscht." & return & return & ¬  
	"Bitte starten Sie Excel oder Word, um den Font-Cache neu anzulegen." & return & return} as string  
property txt_Fatal_Error : {"Bei der Enfernung der Registrierungsdatei von \"Office 2008\" ist ein Fehler aufgetreten!" & return & return & ¬  
	"Bitte starten Sie Excel oder Word erneut und wiederholen Sie diese Aktion." & return & return} as string  

set the msg_icon to 1

-- Office-Pfade zu Registrationsdateien:
-- Existiert die Office FontCache-Dateien...
-- Der FontCache muss geloescht werden, sonst treten Probleme beim drucken auf
-- und Office-Programme stuetzen ab.
try
	POSIX file (MS_fontcache_path) as alias
	set file_exists_FontCache_path to true
on error
	set file_exists_FontCache_path to false
end try
-- Existiert die Office Einstellungs-Datei (User)...
try
	POSIX file (MS_pref_path) as alias
	set file_exists_MS_pref_path to true
on error
	set file_exists_MS_pref_path to false
end try
-- Existiert die Office Seriennummer- und Registrations-Datei (Global)...
try
	POSIX file (MS_serial_path) as alias
	set file_exists_MS_pref_path to true
on error
	set file_exists_MS_pref_path to false
end try
-- Existiert die Office Einstellungs- und Registrations-Datei (User)...
try
	POSIX file (MS_reg_Doc) as alias
	set file_exists_MS_pref_path to true
on error
	set file_exists_MS_pref_path to false
end try

if file_exists_FontCache_path and file_exists_MS_pref_path then
	set the msg_icon to 1
	set msg_title to "Office 2008 Optionen"  
	set msg_Answer to txt_Answer_allActions
	set theRegBtns to {btn_Cancel, btn_RegisterNew, btn_CleareFoncache}
	set the me_button to btn_CleareFoncache
else if file_exists_FontCache_path then
	set the msg_icon to 1
	set msg_title to "Office 2008 Font-Cache"  
	set msg_Answer to txt_Answer_onlyFon
	set theRegBtns to {btn_Cancel, btn_CleareFoncache}
	set the me_button to btn_CleareFoncache
else if file_exists_MS_pref_path then
	set the msg_icon to 1
	set msg_title to "Office 2008 Registration"  
	set msg_Answer to txt_Answer_onlyReg
	set theRegBtns to {btn_Cancel, btn_RegisterNew}
	set the me_button to btn_RegisterNew
else
	set the msg_icon to 2
	set msg_title to "Office 2008 nicht registriert"  
	set msg_Answer to txt_Answer_noAction & return & return & txt_Registration_Error
	set theRegBtns to {btn_OK}
	set the me_button to btn_OK
end if

tell me to display dialog msg_Answer buttons theRegBtns with title msg_title with icon msg_icon default button me_button

if the button returned of the result is btn_RegisterNew then
	if file_exists_MS_pref_path then
		display dialog "OK, \"" & btn_RegisterNew & "\"" & txt_Answer_Warning buttons ¬  
			{btn_Cancel, btn_RegisterNew} with title "Office 2008 zurücksetzen" with icon 0 default button btn_RegisterNew  
		if the button returned of the result is btn_RegisterNew then
			try
				do shell script "rm -rdf \"" & MS_reg_Doc & "\"" with administrator privileges --               Registrations-Datei aller User löschen  
				do shell script "rm -rdf \"" & MS_pref_path & "\"" with administrator privileges --             Registratinons- und Einstellungs-Datei löschen  
				do shell script "rm -rdf \"" & MS_fontcache_path & "\"" with administrator privileges --    Font Cache-Datei löschen  
				do shell script "rm -rdf \"" & MS_serial_path & "\"" with administrator privileges --           User-Cache der Registratinon löschen  
				display dialog txt_Answer_OK buttons btn_OK with icon 1 default button btn_OK giving up after 15
			on error errorMessage number errorNumber
				if errorNumber is not -128 then
					display dialog txt_Fatal_Error & return buttons ¬
						btn_Cancel with title "FEHLER! beim Zurücksetzen" with icon 0 default button btn_Cancel  
				end if
			end try
		end if
	else
		display dialog txt_Registration_Error & return buttons ¬
			btn_OK with title msg_title with icon 1 default button btn_OK
	end if
else if the button returned of the result is btn_CleareFoncache then
	if file_exists_FontCache_path then
		display dialog "OK, \"" & btn_CleareFoncache & "\"" & txt_Answer_Warning buttons ¬  
			{btn_Cancel, btn_CleareFoncache} with title msg_title with icon 0 default button btn_CleareFoncache
		if the button returned of the result is btn_CleareFoncache then
			try
				do shell script "rm -rdf \"" & MS_fontcache_path & "\"" with administrator privileges -- Font Cache-Datei löschen  
				display dialog txt_Answer_OK buttons btn_OK with icon 1 default button btn_OK giving up after 15
			on error
				display dialog txt_Fatal_Error buttons btn_Cancel with title "ERROR!" with icon 0 default button btn_Cancel  
			end try
		end if
	else
		display dialog txt_Fontcache_Error buttons (btn_OK) with title "ACHTUNG!" with icon 1 default button btn_OK  
	end if
end if