VBA: MSXML2.XMLHTTP: множественные запросы

Формулировка задачи:

Здравствуйте!
Написал запрос в AutoCAD для отправки данных на сервер методом GET. Т.к. я с данным языком не знаком совсем (писал методом копи-паста из чужих примеров) прошу проверить его правильность.

myGetHTTP(strAction  )

     grp  
     HttpNIPI    
     locPath     

    HttpNIPI = 
    grp =  & 
    locPath =  & 

     objHTTP   MSXML2.XMLHTTP

     objHTTP
        . , HttpNIPI & strAction & grp & locPath, False

        .send   

         objHTTP.status >=   objHTTP.status <=  
            txtXMLResult =  & objHTTP.status &  & objHTTP.statusText
        
            Text = .responseText
            Headers = .getAllResponseHeaders

     objHTTP = 

 

Проблема в том, что при запуске на разных ПК результат разный. На одном (моем, win 7 , ip 10.101.21.178), где заведен виртуальный сервер, - все идет как и задумано. На соседнем (win xp, ip 10.101.21.165) - вылетает ошибка "run-time error -2146697211 (800с0005)" на строке ".send", при этом сервер не видит никаких входящих запросов. Оба компа в локальной сети, видят друг друга и без проблем открывают шары друг на друге под "гость". По коду ошибки толком ничего не нагуглилось.
Не пойму в какую сторону копать: то ли сетевых настроек, то ли скрипта :/.

Решение задачи: «VBA: MSXML2.XMLHTTP: множественные запросы»

textual
                            Листинг программы 
                        
                            %5C%5C10.101.21.165%5Cstamp%5CStamp.xls