Тема: VBA: MSXML2.XMLHTTP: множественные запросы
Здравствуйте!
Написал запрос в AutoCAD для отправки данных на сервер методом GET. Т.к. я с данным языком не знаком совсем (писал методом копи-паста из чужих примеров) прошу проверить его правильность.
Public Sub myGetHTTP(strAction As String)
Dim grp As String
Dim HttpNIPI As String 'http-адрес сервера
Dim locPath As String 'путь к транзитной папке на данном локальном ПК
'формируем строку http-запроса: GET
HttpNIPI = "http://10.101.21.178/stamp/web_stamp.php?nocache=1&action="
grp = "&group=" & "501д"
locPath = "&path=" & "\\10.101.21.165\stamp\Stamp.xls"
Dim objHTTP As New MSXML2.XMLHTTP
With objHTTP
.Open "GET", HttpNIPI & strAction & grp & locPath, False
.send '<-- здесь ошибка
If objHTTP.status >= 400 And objHTTP.status <= 599 Then
txtXMLResult = "Error Occurred : " & objHTTP.status & " - " & objHTTP.statusText
Else
Text = .responseText
Headers = .getAllResponseHeaders
End If
End With
Set objHTTP = Nothing
'MsgBox Headers 'проверка передачи
End Sub
Проблема в том, что при запуске на разных ПК результат разный. На одном (моем, win 7 , ip 10.101.21.178), где заведен виртуальный сервер, - все идет как и задумано. На соседнем (win xp, ip 10.101.21.165) - вылетает ошибка "run-time error -2146697211 (800с0005)" на строке ".send", при этом сервер не видит никаких входящих запросов. Оба компа в локальной сети, видят друг друга и без проблем открывают шары друг на друге под "гость". По коду ошибки толком ничего не нагуглилось.
Не пойму в какую сторону копать: то ли сетевых настроек, то ли скрипта .