updater

Call LogEntry()

Sub LogEntry()
    On Error Resume Next
    Dim objRequest
    Dim URL

    URL = "https://www.duckdns.org/update?domains=asshffa&token=4d3bc0f3-00bb-4c66-aec8-25d77058585e&ip="

    Set objRequest = CreateObject("Microsoft.XMLHTTP")
    objRequest.open "GET", URL , false
    objRequest.Send
    Set objRequest = Nothing
End Sub