Function Main()

Main = DTSTaskExecResult_Success

svr = "svr
uid = ""
pwd = ""

Set oDTSApp = CreateObject("DTS.Application")
Set oGetPkg = oDTSApp.GetPackageSQLServer(svr, uid, pwd, DTS.DTSSQLServerStorageFlags.DTSSQLStgFlag_UseTrustedConnection)
Set cPkgs = oGetPkg.EnumPackageInfos("", True, "")
Set pack = CreateObject("DTS.Package")

For Each oPkg In cPkgs
desc = oPkg.Description
msgbox "Description:" + desc

If InStr(desc, "LA_") <> 0 Or InStr(desc, "LU_") <> 0 Then 
pack.LoadFromSQLServer svr, uid, pwd, DTSSQLStgFlag_UseTrustedConnection , "", "", "", oPkg.Name
'GO THROUG THE GLOBAL VARIABLES, THE LAST IS THE CONNECTION NAME
For Each v in pack.GlobalVariables
msg = v.Name
Next

Set oConn = pack.GlobalVariables.Parent.Connections("" + msg)

'THIS SHOWS THE RIGHT PATH OF THE FILE
msgbox "Path:    " + oConn.DataSource

'CAN'T OVERWRITE IT
oConn.DataSource = "Test"


msgbox "Packagename:" + oPkg.Name

Else
msgbox "Not a LA or LU Package!"
End If
Next

Set oGetPkg = Nothing
End Function