add some error output:
Code:

$HTML = CreateObject("microsoft.XMLhttp")
if @error exit @error endif
        $HTML.Open("GET", $URL, Not 1)
        if @error exit @error endif
        $HTML.Send
        if @error exit @error endif
        If $HTML.Status = 200
                $GetPage = $HTML.Responsebody
                if @error exit @error endif



and what the error is:
Code:

GetPage("http://10.10.10.1/kix/kix64.dll?Login") ? ?
if @error
 "error occured." ?
 "error: " @error ?
 "descr: " @serror ?
else
 "exited without errors." ?
endif
_________________________
!

download KiXnet