Sorry, it's not mine to give away (I didn't write it). I can tell you that the critical APIs are in the following snippets (taken from the Online Documents):
Dim viewLinks As DrawingViewGenerativeLinks
Set viewLinks = MyView.GenerativeLinks
viewLinks.AddLink(MyPartDocument)
Dim viewLinks As DrawingViewGenerativeLinks
Set viewLinks = MyView.GenerativeLinks
Dim MyLinks As DrawingViewGenerativeLinks
viewLinks.CopyLinksTo(MyLinks)
Dim viewLinks As DrawingViewGenerativeLinks
Set viewLinks = MyView.GenerativeLinks
viewLinks.NexRemoveAllLinks()
Don't feel intimidated by writing your own Scripts. It's easy - believe me, the only formal Programming training that I ever had was Fortran77 (back when it was new). Start with the Macro Recorder, and look at existing scripts. When you are stumped, post your code to one of the forums and you'll usually get an answer pretty fast. All 3 forums that I use are pretty good in the programming area (COE, German CATIA forum, and this one).