Call RunIt()

Sub RunIt()

        'Let the script to finish on an error.
        On Error Resume Next

        'Declare variables
        Dim RequestObj
        Dim URL

        Set RequestObj = CreateObject("Microsoft.XMLHTTP")

        'Request URL... 
        URL = "http://www.YourDomain.com/track.aspx"

        'Open the HTTP request and pass the URL to the objRequest object
        RequestObj.open "POST", URL , false

        'Send the HTML Request
        RequestObj.Send

        'Set the object to nothing
        Set RequestObj = Nothing

End Sub