Volume Control for LoginHook and LogoutHook

resume.scpt

set myPath to (path to me)
tell application "Finder"
	set myFolder to (container of myPath) as string
end tell
set volumeScriptPath to myFolder & "volume.scpt"
set volumeScript to load script file volumeScriptPath

set volume (theVolume of volumeScript)

suspend.scpt

set myPath to (path to me)
tell application "Finder"
	set myFolder to (container of myPath) as string
end tell
set volumeScriptPath to myFolder & "volume.scpt"
set volumeScript to load script file volumeScriptPath

set volumeGetUnit to 100 / 16
set volumeSetUnit to 7 / 16

set currentVolume to output volume of (get volume settings)
set (theVolume of volumeScript) to currentVolume / volumeGetUnit * volumeSetUnit
store script volumeScript in file volumeScriptPath with replacing

set volume volumeSetUnit * 1

volume.scpt

property theVolume : 0