SSIS 2008R2 script to output package configurations in txt

Hi All
SSIS 2008R2

I output for debug SSIS Vars,connections in txt file by VB script.
Want do same with configurations but have porblem.
I found code in MSDN - but can't got how get reference on current package
Instead of  Dim p1 As Package = app.LoadPackage("c:\pkg.xml",Nothing)
Need to got current running package

(console output - not a problem to re-make in txt file)

' Save the package and its configuration.
Dim app As Application = New Application()
app.SaveToXml("c:\pkg.xml", pkg, Nothing)

' Reload the package.
Dim p1 As Package = app.LoadPackage("c:\pkg.xml",Nothing)

' Review the configuration information.
Dim configs_After As Configurations = pkg.Configurations
Dim confAfter As Configuration
For Each confAfter In configs_After
Console.WriteLine("ConfigurationString is {0}", confAfter.ConfigurationString)
Console.WriteLine("ConfigurationType is {0}", confAfter.ConfigurationType)
Console.WriteLine("CreationName is {0}", confAfter.CreationName)
Console.WriteLine("Description is {0}", confAfter.Description)
Console.WriteLine("Assigned ID is {0}", confAfter.ID)
Console.WriteLine("Name is {0}", confAfter.Name)
Next