VbsEdit, the award-winning VBScript editor that dramatically reduces the time you spend writing .VBS scripts

Sample scripts

Networking
   SNMP
       List SNMP MIB-II System Group Information

' List SNMP MIB-II System Group Information

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

VbsEdit includes all these samples!

Download Now!

Version 5.4.1 - This package includes VbsEdit 32-bit, VbsEdit 64-bit, HtaEdit 32-bit and HtaEdit 64-bit.
The evaluation version never expires.

Home Buy Now HtaEdit Support Video What's new ?