How can I write an Applescript that will mount a subdirectory of a share by a domain user's "short name"?

Here is an example of an Applescript that can be used to mount a volume by the user's short "username", regardless of the domain user who logs into the machine:

tell application "Finder"
try
set myUserName to do shell script "whoami"
set OldDelims to AppleScript's text item delimiters
set AppleScript's text item delimiters to "@"
set myShortName to item 1 of text items of myUserName
set AppleScript's text item delimiters to OldDelims
display dialog myShortName
open location ("cifs://SERVER/SHARE/" & myUserName)
end try
end tell