' Kod zwraca wyniki bardzo podobne jak polecenie netstat an.  
' Kod wymaga, aby na zdalnym komputerze by zainstalowany protok SNMP 
' i komponent WMI SNMP Provider.
' ------ KONFIGURACJA SKRYPTU ------
strComputerIP = "127.0.0.1"
' ------ KONIEC KONFIGURACJI ---------
set objLocator = CreateObject("WbemScripting.SWbemLocator")
set objWMI = objLocator.ConnectServer("", "root/snmp/localhost")
set objNamedValueSet = CreateObject("WbemScripting.SWbemNamedValueSet")
objNamedValueSet.Add "AgentAddress", strComputerIP
objNamedValueSet.Add "AgentReadCommunityName", "public"
objNamedValueSet.Add "AgentWriteCommunityName", "public"

WScript.Echo " Protok  Lokalny adres   Zdalny adres       Status"
set colTCPConns = objWMI.Instancesof("SNMP_RFC1213_MIB_tcpConnTable",, _
                                     objNamedValueSet )
for each objConn in colTCPConns
        WScript.echo "  TCP   " & objConn.tcpConnLocalAddress & ":" & _
                     objConn.tcpConnLocalPort & _
                     "         " & objConn.tcpConnRemAddress & ":" & _
                     objConn.tcpConnRemPort & "       " & objConn.tcpConnState 
next

set colUDPConns = objWMI.Instancesof("SNMP_RFC1213_MIB_udpTable",, _ 
                                     objNamedValueSet )
for each objConn in colUDPConns
        WScript.echo "  UDP   " & objConn.udpLocalAddress & ":" & _
                     objConn.udpLocalPort & "         *:*"
next
