Excel VBA. Определение статуса порта

  1. При выполнении этого кода возвращается статус порта (Open либо Close).
Sub TestPortCheck()
    Dim ip As String
    Dim port As String
    Dim result As String
    
    ip = "127.0.0.1"
    port = "1234"
    
    result = CheckPortWithPowerShell(ip, port)
    
    ' Выведите результат в окно отладки
    Debug.Print "Result for IP " & ip & " and Port " & port & ": " & result
End Sub
  1. При выполнении этого кода возвращается статус порта (всегда Open).
Sub TestPortCheck2()
    Dim ip As String
    Dim port As String
    Dim result As String
    
    ' Получение IP и порта из ячеек
    ip = Range("A2").Value
    port = Range("B2").Value
    
    ' Проверка порта с помощью PowerShell
    result = CheckPortWithPowerShell(ip, port)
    
    ' Выведите результат в окно отладки
    Debug.Print "Result for IP " & ip & " and Port " & port & ": " & result
End Sub

В чем ошибка? По какой причине во втором варианте может неправильно определится статус порта? Что нужно поменять в коде?


Ответы (0 шт):