WMI using QTP

[aj_r]

Hey,

Im trying to work with WMI on QTP. I wish to get and set values of an SNMP device. I am able to get any value i want but am having problems with setting values of parameters of the SNMP device.

MSDN provides the following example for writing to an SNMP device.

Code:

Set objLocator = CreateObject("wbemscripting.swbemlocator")
Set objServices = objLocator.ConnectServer(, "root\snmp\mngd_hub")
objServices.security_.privileges.AddAsString("SeSecurityPrivilege")
Set obj= objServices.Get("SNMP_NET_DEVICE_123=@")
obj.deviceLocation = "40/5073"
obj.put_

I am having problems with the obj.put_ line. my code is as follows.

Code:

strTargetSnmpDevice = "137.237.178.160"
strTargetSnmpCommunity = "public"

set objWmiLocator  = CreateObject("WbemScripting.SWbemLocator")
set objWmiServices = objWmiLocator.ConnectServer("", "root\snmp\localhost")

set objWmiNamedValueSet  = CreateObject("WbemScripting.SWbemNamedValueSet")
objWmiNamedValueSet.Add "AgentAddress", strTargetSnmpDevice
objWmiNamedValueSet.Add "AgentReadCommunityName", strTargetSnmpCommunity
objWmiNamedValueSet.Add "Correlate", FALSE, 0
objWmiServices.security_.privileges.AddAsString("SeSecurityPrivilege")

set colSystem = objWmiServices.InstancesOf("SNMP_DELTA_parameterTable", , objWmiNamedValueSet)
For Each objSystem In colSystem
'Getting Value
msgbox "Value="&objSystem.parameterRate
'Setting value
objSystem.parameterRate="3200000"
objSystem.put_ !!!!!!!!!!!PROBLEM!!!!!!!!!!!!!!
Next

The error I am getting is "Invalid Class" for objSystem. What is wrong!!??!

Please do help me out as this is urgent!

Thanks in advance!!

Arjun