property qlpreviewPath : missing value -- leave this alone, you will be prompted to locate it if needed

-- variables, Note: all variables need to be strings
set imageType to "jpg" --> jpg, png, or tif
set JPEGimageQuality to "90" --> only applicable when the "imageType" is jpg. Defines the amount of compression used. Must be a value between 0 and 100, 0-max compression and 100-no compression.
set maxWidth to "512" --> the maxWidth in pixels of the preview image
set maxHeight to "512" --> the maxHeight in pixels of the preview image
set asIcon to "yes" --> do you want a pretty icon format?
set preferFileIcon to "no" -- when yes the file icon is returned even if the preview image exists
set generatePreviewOnly to "yes" -- a generic icon is returned if the preview image can't be found instead of the normal file icon

set inPaths to choose file with prompt "Choose the file you want the image of:" with multiple selections allowed without invisibles
repeat with inPath in inPaths
    set inPathName to item 1 of (getName_andExtension(inPath))
    tell application "Finder" to set inPathContainerFolder to container of inPath
    set outPath to (((path to "cusr") as string) & "Library:tmp:" & inPathName & "." & imageType)    
    -- get the path to qlpreview if needed
    try
        alias qlpreviewPath
    on error
        set qlpreviewPath to (choose file with prompt "Please select the unix exe qlpreview..." without invisibles) as text
    end try    
    -- setup the shell command
    set cmd to quoted form of POSIX path of qlpreviewPath & space & "-imageType" & space & imageType & space & "-JPEGimageQuality" & space & JPEGimageQuality & space & "-maxWidth" & space & maxWidth & space & "-maxHeight" & space & maxHeight & space & "-asIcon" & space & asIcon & space & "-inPath" & space & quoted form of POSIX path of inPath & space & "-outPath" & space & (quoted form of POSIX path of outPath as string) & space & "-preferFileIcon" & space & preferFileIcon & space & "-generatePreviewOnly" & space & generatePreviewOnly
    -- run it!
    try
        try
            tell application "Finder" to move outPath as string to trash
        end try
        do shell script cmd
    on error theError number errorNumber
        tell me
            activate
            display dialog "There was an error:" & return & return & theError & return & return & "Error Number: " & errorNumber as text buttons {"OK"} default button 1 with icon stop
        end tell
    end try

    tell application "Preview"
        activate
        open (outPath as alias)
    end tell
    
    tell application "System Events"
        tell application process "Preview"
            tell window 1
                keystroke "a" using command down
                delay 1
                keystroke "c" using command down
                delay 1
                keystroke "w" using command down
                delay 1
            end tell
        end tell
    end tell
    
    tell application "Finder"
        activate
        set infoWindow to open information window of (inPath as alias)
        set infoWindowName to name of infoWindow
    end tell
    
    tell application "System Events"
        tell application process "Finder"
            tell window infoWindowName
                keystroke tab
                delay 1
                keystroke "v" using command down
                delay 1
            end tell
        end tell
    end tell
    
    tell application "Finder"
        close infoWindow
    end tell
end repeat
(*=========== SUBROUTINES ============*)
on getName_andExtension(f)
    set f to f as Unicode text
    set {name:Nm, name extension:Ex} to info for file f
    if Ex is missing value then set Ex to ""
    if Ex is not "" then
        set Nm to text 1 thru ((count Nm) - (count Ex) - 1) of Nm
        set Ex to "." & Ex
    end if
    return {Nm, Ex}
end getName_andExtension

set JPEGimageQuality to "90" --> only applicable when the "imageType" is jpg. Defines the amount of compression used. Must be a value 

set outPath to (((path to "cusr") as string) & "Library:tmp:" & inPathName & "." & imageType) 

try
alias qlpreviewPath
on error
set qlpreviewPath to (choose file with prompt "Please select the unix exe qlpreview..." without invisibles) as text
end try 

try
tell application "Finder" to move outPath as string to trash
end try

tell application process "Preview"
tell window 1
keystroke "a" using command down
[b]delay 1[/b]
...
end tell

property qlpreviewPath : missing value -- leave this alone, you will be prompted to locate it if needed

-- variables, Note: all variables need to be strings
set imageType to "tif" --> jpg, png, or tif -- info: jpg has no transparency
set maxWidth to "128" --> the maxWidth in pixels of the preview image
set maxHeight to "128" --> the maxHeight in pixels of the preview image
set asIcon to "yes" --> do you want a pretty icon format?
set preferFileIcon to "no" -- when yes the file icon is returned even if the preview image exists
set generatePreviewOnly to "yes" -- a generic icon is returned if the preview image can't be found instead of the normal file icon
set delayTime to "0.0" -- set delay time, depending on your computer's speed

set inPaths to choose file with prompt "Choose the file you want the image of:" with multiple selections allowed without invisibles
repeat with inPath in inPaths
    set inPathName to item 1 of (getName_andExtension(inPath))
    tell application "Finder" to set inPathContainerFolder to container of inPath
    set outPath to (((path to "cusr") as string) & "Library:Services:" & inPathName & "." & imageType)
    -- get the path to qlpreview if needed
    try
        set qlpreviewPath to "/usr/bin/qlpreview"
    on error
        set qlpreviewPath to (choose file with prompt "Please select the unix exe qlpreview..." without invisibles) as text
    end try
    -- setup the shell command
    set cmd to quoted form of POSIX path of qlpreviewPath & space & "-imageType" & space & imageType & space & "-maxWidth" & space & maxWidth & space & "-maxHeight" & space & maxHeight & space & "-asIcon" & space & asIcon & space & "-preferFileIcon" & space & preferFileIcon & space & "-generatePreviewOnly" & space & generatePreviewOnly & space & "-inPath" & space & quoted form of POSIX path of inPath & space & "-outPath" & space & (quoted form of POSIX path of outPath as string)
    -- run it!
    try
        do shell script cmd
    on error theError number errorNumber
        tell me
            activate
            display dialog "There was an error:" & return & return & theError & return & return & "Error Number: " & errorNumber as text buttons {"OK"} default button 1 with icon stop
        end tell
    end try
    
    tell application "Preview"
        activate
        open (outPath as alias)
    end tell
    
    tell application "System Events"
        tell application process "Preview"
            tell window 1
                keystroke "a" using command down
                delayTime
                keystroke "c" using command down
                delayTime
                keystroke "w" using command down
                delayTime
            end tell
        end tell
    end tell
    
    tell application "Finder"
        activate
        set infoWindow to open information window of (inPath as alias)
        set infoWindowName to name of infoWindow
    end tell
    
    tell application "System Events"
        tell application process "Finder"
            tell window infoWindowName
                keystroke tab
                delayTime
                keystroke "v" using command down
                delayTime
            end tell
        end tell
    end tell
    
    tell application "Finder"
        close infoWindow
        move outPath as string to trash
    end tell
end repeat
(*=========== SUBROUTINES ============*)
on getName_andExtension(f)
    set f to f as Unicode text
    set {name:Nm, name extension:Ex} to info for file f
    if Ex is missing value then set Ex to ""
    if Ex is not "" then
        set Nm to text 1 thru ((count Nm) - (count Ex) - 1) of Nm
        set Ex to "." & Ex
    end if
    return {Nm, Ex}
end getName_andExtension

…
set generatePreviewOnly to "yes" -- a generic icon is returned if the preview image can't be found instead of the normal file icon

set qlpreviewPath to "/usr/bin/qlpreview"
set temp to ((path to "temp") as string)
set delayTime to "0.0" -- set delay time, depending on your computer's speed

set inPaths to choose file with prompt "Choose the file you want the image of:" with multiple selections allowed without invisibles
repeat with inPath in inPaths
    set inPathName to item 1 of (getName_andExtension(inPath))
    tell application "Finder"
        set inPathContainerFolder to container of inPath
        set outPath to temp & inPathName & "." & imageType
    end tell
    
    -- setup the shell command
…