You can use the DTS object model within a ActiveX script task. Use the following code to put the Name and ID's into Global Variable's
Dim objCurrentPackage
Set objCurrentPackage = DTSGlobalVariables.Parent
DTSGlobalVariables("PackageName") = objCurrentPackage.Name
DTSGlobalVariables("VersionID") = objCurrentPackage.VersionID
DTSGlobalVariables("PackageID") = objCurrentPackage.PackageID
Happy coding,
Diane