Invalid Namespace Error

  • Thread starter Thread starter Randy Snyder
  • Start date Start date
R

Randy Snyder

I got the script below off of the Internet. I found it in several places
so it looks to be used widely. When I try to run it, I get an invalid
namespace error. I'm executing the script on Windows XP Pro with Service
Pack 2 and have all current Microsoft patch to date. Any ideas?

strTargetSnmpDevice = "127.0.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
 
You will need to install the SNMP Provider:

1. Go to the Add/Remove Programs
2. Then go into Add/Remove Windows Components
3. Select Management and Montoring Tools
4. You can click detals to see what you are installing.
5. You will need the SNMP protocol and the Provider.
 
Back
Top