Dim objPkg

 ' Get Package object

 Set objPkg = DTSGlobalVariables.Parent

This will get you a reference to the package itself. Then you can access all the properties you just mind have to google ad dig around for what you need syntax wise. I have no test machin here so if you need more help leave a message and I can check after work next week in my test environment.