Update Device Attributes with SNMP values (VBscript / JScript)

Edited May 20, 2019 at 11:28 AM

Here as Text

' Get database
Set objDB = Context.GetDB
If objDB Is Nothing Then
Context.SetResult 1,"Error connecting to database"
Else
nDeviceID = Context.GetProperty("DeviceID")
' SNMP Update
Set objSNMPRqst = CreateObject("CoreAsp.SnmpRqst")
Set objSNMPResult = objSNMPRqst.Initialize(nDeviceID)
If Not objSNMPResult.Failed Then
' Get sysDescr
Set objSNMPResult = objSNMPRqst.Get("1.3.6.1.2.1.1.1.0")
If Not objSNMPResult.Failed Then
strSNMPsysDescr = Trim(objSNMPResult.GetPayload)
If Not strSNMPsysDescr = "" Then
Do Until InStr(strSNMPsysDescr,Chr(13)) = 0 And InStr(strSNMPsysDescr,Chr(10)) = 0
intPosCR = InStr(strSNMPsysDescr,Chr(13))
If intPosCR <> 0 Then
strSNMPsysDescr = Left(strSNMPsysDescr,intPosCR-1) & " " & Right(strSNMPsysDescr,Len(strSNMPsysDescr)-intPosCR)
End If
intPosLF = InStr(strSNMPsysDescr,Chr(10))
If intPosLF <> 0 Then
strSNMPsysDescr = Left(strSNMPsysDescr,intPosLF-1) & Right(strSNMPsysDescr,Len(strSNMPsysDescr)-intPosLF)
End If
Loop
' Update database
strSQL = "UPDATE DeviceAttribute SET sValue = '" & strSNMPsysDescr & "' WHERE nDeviceID = '" & nDeviceID & "' AND sName = 'Description'"
Set objResult = objDB.Execute(strSQL)
End If
End If
' Get sysObjectID
Set objSNMPResult = objSNMPRqst.Get("1.3.6.1.2.1.1.2.0")
If Not objSNMPResult.Failed Then
strSNMPsysObjectID = Trim(objSNMPResult.GetPayload)
If Not strSNMPsysObjectID = "" Then
' Update database
strSQL = "UPDATE Device SET sSnmpOID='" & strSNMPsysObjectID & "' WHERE nDeviceID = '" & nDeviceID & "'"
Set objResult = objDB.Execute(strSQL)
End If
End If
Context.SetResult 0,"Done"
Else
Context.SetResult 1,"SNMP failed"
End If
End If

Community Archive (Customer)
7 years ago
Yes, the API has the feature.
Expand Post
Community Archive (Customer)
7 years ago
WOW. This is the only solution I found that helps me dynamically update attributes for dynamic grouping. Do you have a way to update custom attributes instead of a description attribute?

Expand Post
Community Archive (Customer)
Edited May 20, 2019 at 11:28 AM
Here as Text
' Get database Set objDB = Context.GetDB If objDB Is Nothing Then Context.SetResult 1,"Error connecting to database" Else nDeviceID = Context.GetProperty("DeviceID") ' SNMP Update Set objSNMPRqst = CreateObject("CoreAsp.SnmpRqst") Set objSNMPResult = objSNMPRqst.Initialize(nDeviceID) If Not objSNMPResult.Failed Then ' Get sysDescr Set objSNMPResult = objSNMPRqst.Get("1.3.6.1.2.1.1.1.0") If Not objSNMPResult.Failed Then strSNMPsysDescr = Trim(objSNMPResult.GetPayload) If Not strSNMPsysDescr = "" Then Do Until InStr(strSNMPsysDescr,Chr(13)) = 0 And InStr(strSNMPsysDescr,Chr(10)) = 0 intPosCR = InStr(strSNMPsysDescr,Chr(13)) If intPosCR <> 0 Then strSNMPsysDescr = Left(strSNMPsysDescr,intPosCR-1) & " " & Right(strSNMPsysDescr,Len(strSNMPsysDescr)-intPosCR) End If intPosLF = InStr(strSNMPsysDescr,Chr(10)) If intPosLF <> 0 Then strSNMPsysDescr = Left(strSNMPsysDescr,intPosLF-1) & Right(strSNMPsysDescr,Len(strSNMPsysDescr)-intPosLF) End If Loop ' Update database strSQL = "UPDATE DeviceAttribute SET sValue = '" & strSNMPsysDescr & "' WHERE nDeviceID = '" & nDeviceID & "' AND sName = 'Description'" Set objResult = objDB.Execute(strSQL) End If End If ' Get sysObjectID Set objSNMPResult = objSNMPRqst.Get("1.3.6.1.2.1.1.2.0") If Not objSNMPResult.Failed Then strSNMPsysObjectID = Trim(objSNMPResult.GetPayload) If Not strSNMPsysObjectID = "" Then ' Update database strSQL = "UPDATE Device SET sSnmpOID='" & strSNMPsysObjectID & "' WHERE nDeviceID = '" & nDeviceID & "'" Set objResult = objDB.Execute(strSQL) End If End If Context.SetResult 0,"Done" Else Context.SetResult 1,"SNMP failed" End If End If

Expand Post

Related Questions