Home Automation Domotica Forum Europe, Bwired Forum

Code: Select all

ScriptingReferences=System.XML;System.XML.dll,System.Data;System.Data.dll,System.Web;System.web.dll,SNMPDLL;SNMPDll.dll,TableReader;TableReader.dll

Code: Select all

Imports SNMPDll

Sub Main(parm as object)

  Dim sUptime As String = "1.3.6.1.2.1.1.3.0"
  Dim sTrafficIn As String = "1.3.6.1.2.1.2.2.1.16.1"
  Dim sTrafficOut As String = "1.3.6.1.2.1.2.2.1.10.1"
  Dim sExternalIP As String = "1.3.6.1.2.1.4.20.1.1.84.197.3.196"
  Dim iTrafficIn As Int64
  Dim iTrafficOut As Int64
  Const EventRefreshRateSecs As Integer = 60
  
  Dim TrafficIn As Decimal
  Dim TrafficOut As Decimal
  
  Dim a As SNMPAgent = New SNMPAgent("10.111.0.1", "public", "public")
  Dim uptime As SNMPObject = New SNMPObject(sUptime)
  Dim externalIP As SNMPObject = New SNMPObject(sExternalIP)
 
iTrafficIn = CType(New SNMPObject(sTrafficIn).getSimpleValue(a), Int64)
iTrafficOut = CType(New SNMPObject(sTrafficOut).getSimpleValue(a), Int64)

hs.SetDeviceString("V70",  uptime.getSimpleValue(a))
hs.SetDeviceLastChange("V70",now)

hs.SetDeviceString("V71",  externalIP.getSimpleValue(a))
hs.SetDeviceLastChange("V71",now)

TrafficIn = (iTrafficIn - hs.DeviceValue("V72")) / 1024 / EventRefreshRateSecs
TrafficOut = (iTrafficOut - hs.DeviceValue("V73")) / 1024 / EventRefreshRateSecs

hs.SetDeviceString("V74",  TrafficIn.Tostring("0.00") + " KB/sec")
hs.SetDeviceLastChange("V74",now)

hs.SetDeviceString("V75",  TrafficOut.Tostring("0.00") + " KB/sec")
hs.SetDeviceLastChange("V75",now)

hs.SetDeviceString("V72", iTrafficIn.ToString)
hs.SetDeviceValue("V72", iTrafficIn)
hs.SetDeviceLastChange("V72",now)

hs.SetDeviceString("V73",  iTrafficOut.ToString)
hs.SetDeviceValue("V73", iTrafficOut)
hs.SetDeviceLastChange("V73",now)

End Sub

Code: Select all

Imports SNMPDll
Sub Main(parm as object)
  Dim a As SNMPAgent = New SNMPAgent("10.1.1.1", "public", "public")
  Dim drivetemp As SNMPObject = New SNMPObject("1.3.6.1.4.1.24681.1.2.11.1.3")

hs.writelog("SNMP_01", "<B>START SNMP</b>")
hs.WriteLog("SNMP_01",  drivetemp.getSimpleValue(a))
hs.writelog("SNMP_01", "<B>STOP SNMP</b>")
End Sub

Code: Select all

[color=#FF0000]11/09/2010 10:35:58  - Error - Scripting runtime error: System.Reflection.TargetInvocationException: Exception has been thrown by the target of an invocation. ---> System.NullReferenceException: Object reference not set to an instance of an object.   at SNMPDll.SNMPAgent.getValue(SNMPObject mySNMPObject)   at SNMPDll.SNMPObject.getSimpleValue(SNMPAgent myAgent)   at scriptcode5.scriptcode5.Main(Object parm)   --- End of inner exception stack trace ---   at System.RuntimeMethodHandle._InvokeMethodFast(Object target, Object[] arguments, SignatureStruct& sig, MethodAttributes methodAttributes, RuntimeTypeHandle typeOwner)   at System.RuntimeMethodHandle.InvokeMethodFast(Object target, Object[] arguments, Signature sig, MethodAttributes methodAttributes, RuntimeTypeHandle typeOwner)   at System.Reflection.RuntimeMethodInfo.Invoke(Object obj, BindingFlags invokeAttr, Binder binder, Object[] parameters, CultureInfo culture, Boolean skipVisibilityChecks)   at System.Reflection.RuntimeMethodInfo.Invoke(Object obj, BindingFlags invokeAttr, Binder binder, Object[] parameters, CultureInfo culture)   at System.Reflection.MethodBase.Invoke(Object obj, Object[] parameters)   at Scheduler.VsaScriptHost.Invoke(String ModuleName, String MethodName, Object[] Arguments)[/color]

Code: Select all

Imports SNMPDll

Sub Main(parm as object)

  Dim myMib As Mib = new Mib()
  myMib.loadDirectoryMib("C:\Program Files\HomeSeer 2\")


  Dim a As SNMPAgent = New SNMPAgent("10.1.1.1", "public", "private")
  Dim drivetemp As SNMPObject = New SNMPObject(".1.3.6.1.4.1")

hs.writelog("SNMP_01", "<B>START SNMP</b>")
hs.WriteLog("SNMP_01",  drivetemp.getSimpleValue(a))
hs.writelog("SNMP_01", "<B>STOP SNMP</b>")

End Sub