Declare
Status
,
Val
; Init SNMP Manager
SnmpInit
Status
,
"RdWr"
,
"RdWr"
,
"localhost"
GoSub
"CheckFatal"
,
Status
; Get Operations
SnmpGet
Status
,
Val
,
"1.3.6.1.2.1.1.1.0"
,
"sysDescr"
GoSub
"CheckStatus"
,
Status
,
"GET"
,
"sysDescr"
,
Val
SnmpGet
Status
,
Val
,
"1.3.6.1.2.1.1.2.0"
,
"sysObjectID"
GoSub
"CheckStatus"
,
Status
,
"GET"
,
"sysDescr"
,
Val
SnmpGet
Status
,
Val
,
"1.3.6.1.2.1.1.3.0"
,
"sysUpTime"
GoSub
"CheckStatus"
,
Status
,
"GET"
,
"sysDescr"
,
Val
SnmpGet
Status
,
Val
,
"1.3.6.1.2.1.1.4.0"
,
"sysContact"
GoSub
"CheckStatus"
,
Status
,
"GET"
,
"sysDescr"
,
Val
; Set Operation
Val
=
"Sam Smith"
SnmpSet
Status
,
"1.3.6.1.2.1.1.4.0"
,
Val
,
"sysContact"
,
"String"
GoSub
"CheckStatus"
,
Status
,
"SET"
,
"sysDescr"
,
Val
; Verify SET
SnmpGet
Status
,
Val
,
"1.3.6.1.2.1.1.4.0"
,
"sysContact"
GoSub
"CheckStatus"
,
Status
,
"GET"
,
"New sysDescr"
,
Val
End
; Exit Current Test
;-------------------------------------------
<CheckStatus>
i_Status
,
i_Op
,
i_VarName
,
i_Val
If
i_Status
==
0
Then
TMMessage
GT_InfoID
,
i_VarName
$
": "
$
i_Val
Return
; Back to the caller
EndIf
TMMessage
GT_ErrorID
,
"SNMP "
$
i_Op
$
" failed. Status="
$
i_Status
Return
; Back to the caller
<CheckFatal>
i_Status
If
i_Status
==
0
Then
Return
; Back to the caller
TMMessage
GT_ErrorID
,
"SNMP fatal error. Status="
$
i_Status
End
; Exit Current Test