Delete All Alpha Channels in Photoshop Document

Any idea how this might be accomplished via AppleScript and Photoshop?

Writing a script that re-sizes images and saves for web use, and the source files are very complex Photoshop documents at times with layers and alpha channels. Flattening (removing layers) was easy, but can’t figure out how to purge the alpha channels.

tell application "Adobe Photoshop CS2"
	set Doc_Ref to the current document
	tell Doc_Ref
		delete (every channel whose kind is not component channel)
	end tell
end tell