This Microsoft® Visual Basic® sample demonstrates how to run a Visual Basic Scripting Edition (VBScript) script as part of a Data Transformation Services (DTS) Task. The script in this task shows a Message Box.
C:\Program Files\Microsoft SQL Server\80\Tools\Devtools\Samples\Dts\Dtstasks\DTSActiveScriptTask