List SNMP MIB-II System Group Information

You can use any of the VBScript programs below in ActiveXperts Network Monitor. Click here for an explanation about how to include scripts in ActiveXperts Network Monitor.

Example(s)

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 colSystem = objWmiServices.InstancesOf("SNMP_RFC1213_MIB_system", , _
    objWmiNamedValueSet)
 
For Each objSystem In colSystem
    WScript.Echo "sysContact:  " & objSystem.sysContact  & vbCrLf & _
        "sysDescr:    " & objSystem.sysDescr    & vbCrLf & _
            "sysLocation: " & objSystem.sysLocation & vbCrLf & _
                "sysName:     " & objSystem.sysName     & vbCrLf & _
                    "sysObjectID: " & objSystem.sysObjectID & vbCrLf & _
                        "sysServices: " & objSystem.sysServices & vbCrLf & _
                            "sysUpTime:   " & objSystem.sysUpTime
Next