Set objSnmpManager = CreateObject( "ActiveXperts.SnmpManager" ) ' Create a new Snmp instance
   objSnmpManager.Initialize 
   objSnmpManager.ProtocolVersion = WScript.Arguments.Item(2)

   ' Initialize Snmp
   objSnmpManager.Open WScript.Arguments.Item(0), WScript.Arguments.Item(1)


   If( objSnmpManager.LastError = 0 ) then
     Set objSnmpObject = objSnmpManager.Get( "system.sysDescr.0" )  ' Get SnmpObject object
     Do While( objSnmpManager.LastError = 0 )
       WScript.Echo objSnmpObject.OID & ": " &  objSnmpObject.Value

       Set objSnmpObject = objSnmpManager.GetNext()                  ' Get next SnmpObject object
	
	on error resume next     

     Loop
     objSnmpManager.Close
   End If
   objSnmpManager.Shutdown                                         ' Uninitialize Snmp