![]() Loading |
VBScript |
JavaScript |
Powershell |
Search Options: List SNMP MIB-II TCP and UDP Connections and Listening Ports
|
||
' Description: Retrieves and displays SNMP MIB-II (RFC 1213) TCP (and UDP) connections and listening ports from an SNMP managed node using the WMI SNMP Provider. Equivalent to running netstat -a -n (which displays all connections and listening ports in numerical form).
strTargetSnmpDevice = "192.168.0.1" Set objWmiLocator = CreateObject("WbemScripting.SWbemLocator") Set objWmiServices = objWmiLocator.ConnectServer("", "root\snmp\localhost") Set objWmiNamedValueSet = CreateObject("WbemScripting.SWbemNamedValueSet") objWmiNamedValueSet.Add "AgentAddress", strTargetSnmpDevice objWmiNamedValueSet.Add "AgentReadCommunityName", "public" Set colTcpConnTable = _ objWmiServices.InstancesOf("SNMP_RFC1213_MIB_tcpConnTable", , _ objWmiNamedValueSet) Set colUdpTable = _ objWmiServices.InstancesOf("SNMP_RFC1213_MIB_udpTable", , _ objWmiNamedValueSet) WScript.Echo "TCP Connections and Listening Ports" & vbCrLf & _ "-----------------------------------" For Each objTcpConn In colTcpConnTable WScript.Echo objTcpConn.tcpConnLocalAddress & ":" & _ objTcpConn.tcpConnLocalPort & " => " & _ objTcpConn.tcpConnRemAddress & ":" & _ objTcpConn.tcpConnRemPort & " " & _ "[State: " & objTcpConn.tcpConnState & "]" Next WScript.Echo vbCrLf & "UDP Ports" & vbCrLf & "---------" For Each objUdp In colUdpTable WScript.Echo objUdp.udpLocalAddress & ":" & objUdp.UdpLocalPort Next | ||
© 2008 - 2013 Boris Toll :: Scripts available: 6.481 :: :: scriptbox.toll.at :: :: powered by www.toll.at :: |