It would be nice to use the VBS scripting commands getMoralLevel, addToMoral and getMoraleLongTerm to control the AI units moral levels.
This would provide better functionality for AI scripts with things such as: knowing when the AI should surrender, knowing when to fall back and many other hints that mission makers will come up with.