let oldAddr = prompt("Old Internet address")
let newAddr = prompt("New Internet address")
for(let s = 1; s <= ActivePresentation.Slides.Count; s++) {
    for(let h = 1; h <= ActivePresentation.Slides.Item(s).Hyperlinks.Count; h++) {
        if(ActivePresentation.Slides.Item(s).Hyperlinks.Item(h).Address.toLowerCase() == oldAddr) {
            ActivePresentation.Slides.Item(s).Hyperlinks.Item(h).Address = newAddr
        }
    }
}