o que eu faria está chamando o netstat do código vb6 using Shell e para registrar a saída a alguma lima do resultado, a seguir para analisá-la gramaticalmente e começ a informação que eu preciso sobre os portos:
por exemplo, para o porto 443:
RetVal não ofuscante
RetVal = Shell (“netstat - | achado”: 443 " > c:\temp\netstat.log ", 1)
a lima de saída deve olhar qualquer outra coisa semelhante:
TCP 0.0.0.0: 443 0.0.0.0: 0 ESCUTANDO
TCP 172.20.1.78: 37623 216.166.12.33: 443 ESTABELECIDO
TCP 172.20.1.78: 37625 216.166.12.33: 443 ESTABELECIDO
TCP 172.20.1.78: 37629 216.166.12.33: 443 ESTABELECIDO
TCP 172.20.1.78: 37630 216.166.12.33: 443 ESTABELECIDO
TCP 172.20.1.78: 37648 216.166.12.33: 443 ESTABELECIDO
TCP 172.20.1.78: 37649 216.166.12.33: 443 ESTABELECIDO
TCP [::]: 443 [::]: 0 ESCUTANDO