自宅サーバのアドレスをDDNSなどに登録する人向け、でしょうか。 Dim deviceFinder Set deviceFinder = CreateObject("UPnP.UPnPDeviceFinder") Dim devices, device, service Set devices = deviceFinder.FindByType("urn:schemas-upnp-org:service:WANIPCo…