Получить данные для клиента от веб сервиса через сервер? - VB

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

Доброго времени суток,
Написал приведенный ниже код

Private Sub SOAPtest_Click()

    Dim objSClient As MSSOAPLib30.SoapClient30
    Dim fResult As String
    
    Set objSClient = CreateObject("MSSOAP.SoapClient30", "mz-YuSpryshkov")
    
    Set objSClient = New SoapClient30
    
    Call objSClient.MSSoapInit(par_WSDLFile:="http://srv-kir/ws/WS.WSDL")

    fResult = objSClient.get_RZ_from_DOCS("14", "12 02", "506072", "000")
    Set objSClient = Nothing

    Open "C:\nssoft\test.txt" For Output As #1
    Print #1, fResult
    Close #1

End Sub

для доступа к веб сервису через МSSOAP
Но при попытке обратиться не локально а к серверу выдает сообщение
Run-time error '70':
Permission denied
Что делать?

Решение задачи: «Получить данные для клиента от веб сервиса через сервер?»

textual
                            Листинг программы 
                        

                            Sub haba_haba()
On Error Resume Next
    Dim objService, objCOM, fso, txt
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set txt = fso.CreateTextFile("C:\dcom.csv", True)
    Set objService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")
    If Err.Number <> 0 Then
        Debug.Print Err.Number & ": " & Err.Description
        Exit Sub
    End If
    txt.WriteLine "Caption;AppID"
    For Each objCOM In objService.ExecQuery("SELECT * FROM Win32_DCOMApplication")
    '    Debug.Print objCOM.AppID
        Debug.Print objCOM.Caption
        txt.WriteLine objCOM.Caption & ";" & objCOM.AppID
    '    Debug.Print objCOM.Description
    '    Debug.Print objCOM.InstallDate
    '    Debug.Print objCOM.Name
    '    Debug.Print objCOM.status
    Next
    txt.Close
End Sub

                        