wsnmp32.bas

vb调用api函数

Attribute VB_Name = "winsnmp"
'   WinSNMP/Manager API Version 2.0
'   Declarations & Definitions
'   1 May 1995  -- David Hall (original file)
'   15 Feb 1997 -- Bob Natale (ACE*COMM mods for VB-32)
'   9 Sep 1997  -- Doug Hunt  (corrected SNMPAPI_*TRANSLATED* constants)
'   2 Dec 1997  -- Doug Hunt  v2.0 modifications
'   2 Feb 1998  -- Doug Hunt  added padding to VALUEINT to 12 bytes
'  18 Mar 1998  -- Doug Hunt  changed OidToStr size parameter to ByVal


'   Limits
Global Const MAXOBJIDSIZ% = 128
Global Const MAXOBJIDSTRSIZE = 1408

'   ASN/BER base types
Global Const ASN_UNIVERSAL = &H0
Global Const ASN_APPLICATION = &H40
Global Const ASN_CONTEXT = &H80
Global Const ASN_PRIVATE = &HC0
Global Const ASN_PRIMITIVE = &H0
Global Const ASN_CONSTRUCTOR = &H20

'   SNMP ObjectSyntax values
Global Const SNMP_SYNTAX_SEQUENCE = ASN_UNIVERSAL Or ASN_CONSTRUCTOR Or &H10
' 0xB0
'   These values are used in the "syntax" member of VALUEs
Global Const SNMP_SYNTAX_INT = ASN_UNIVERSAL Or ASN_PRIMITIVE Or 2
' 0x02
Global Const SNMP_SYNTAX_BITS = ASN_UNIVERSAL Or ASN_PRIMITIVE Or 3
' 0x03
Global Const SNMP_SYNTAX_OCTETS = ASN_UNIVERSAL Or ASN_PRIMITIVE Or 4
' 0x04
Global Const SNMP_SYNTAX_NULL = ASN_UNIVERSAL Or ASN_PRIMITIVE Or 5
' 0x05
Global Const SNMP_SYNTAX_OID = ASN_UNIVERSAL Or ASN_PRIMITIVE Or 6
' 0x06
Global Const SNMP_SYNTAX_INT32 = SNMP_SYNTAX_INT
Global Const SNMP_SYNTAX_IPADDR = ASN_APPLICATION Or ASN_PRIMITIVE Or 0
' 0x40
Global Const SNMP_SYNTAX_CNTR = ASN_APPLICATION Or ASN_PRIMITIVE Or 1
' 0x41
Global Const SNMP_SYNTAX_GAUGE = ASN_APPLICATION Or ASN_PRIMITIVE Or 2
' 0x42
Global Const SNMP_SYNTAX_TIMETICKS = ASN_APPLICATION Or ASN_PRIMITIVE Or 3
' 0x43
Global Const SNMP_SYNTAX_OPAQUE = ASN_APPLICATION Or ASN_PRIMITIVE Or 4
' 0x44
Global Const SNMP_SYNTAX_NSAPADDR = ASN_APPLICATION Or ASN_PRIMITIVE Or 5
' 0x45
Global Const SNMP_SYNTAX_CNTR64 = ASN_APPLICATION Or ASN_PRIMITIVE Or 6
' 0x46
Global Const SNMP_SYNTAX_UINT32 = ASN_APPLICATION Or ASN_PRIMITIVE Or 7
' 0x47
'   Exception conditions in response PDUs for SNMPv2
Global Const SNMP_SYNTAX_NOSUCHOBJECT = ASN_CONTEXT Or ASN_PRIMITIVE Or 0
' 0x80
Global Const SNMP_SYNTAX_NOSUCHINSTANCE = ASN_CONTEXT Or ASN_PRIMITIVE Or 1
' 0x81
Global Const SNMP_SYNTAX_ENDOFMIBVIEW = ASN_CONTEXT Or ASN_PRIMITIVE Or 2
' 0x82

'   PDU choices:
Global Const SNMP_PDU_GET = ASN_CONTEXT Or ASN_CONSTRUCTOR Or 0
' 0xA0
Global Const SNMP_PDU_GETNEXT = ASN_CONTEXT Or ASN_CONSTRUCTOR Or 1
' 0xA1
Global Const SNMP_PDU_RESPONSE = ASN_CONTEXT Or ASN_CONSTRUCTOR Or 2
' 0xA2
Global Const SNMP_PDU_SET = ASN_CONTEXT Or ASN_CONSTRUCTOR Or 3
' 0xA3
'   SNMP_PDU_V1TRAP is obsolete in SNMPv2
Global Const SNMP_PDU_V1TRAP = ASN_CONTEXT Or ASN_CONSTRUCTOR Or 4
' 0xA4
Global Const SNMP_PDU_GETBULK = ASN_CONTEXT Or ASN_CONSTRUCTOR Or 5
' 0xA5
Global Const SNMP_PDU_INFORM = ASN_CONTEXT Or ASN_CONSTRUCTOR Or 6
' 0xA6
Global Const SNMP_PDU_TRAP = ASN_CONTEXT Or ASN_CONSTRUCTOR Or 7
' 0xA7

'   SNMP error codes returned in Error_Status field of PDU
'   (these are NOT WinSNMP API error codes!)
Global Const SNMP_ERROR_NOERROR = 0
Global Const SNMP_ERROR_TOOBIG = 1
Global Const SNMP_ERROR_NOSUCHNAME = 2
Global Const SNMP_ERROR_BADVALUE = 3
Global Const SNMP_ERROR_READONLY = 4
Global Const SNMP_ERROR_GENERR = 5
'   Error codes added for SNMPv2
Global Const SNMP_ERROR_NOACCESS = 6
Global Const SNMP_ERROR_WRONGTYPE = 7
Global Const SNMP_ERROR_WRONGLENGTH = 8
Global Const SNMP_ERROR_WRONGENCODING = 9
Global Const SNMP_ERROR_WRONGVALUE = 10
Global Const SNMP_ERROR_NOCREATION = 11
Global Const SNMP_ERROR_INCONSISTENTVALUE = 12
Global Const SNMP_ERROR_RESOURCEUNAVAILABLE = 13
Global Const SNMP_ERROR_COMMITFAILED = 14
Global Const SNMP_ERROR_UNDOFAILED = 15
Global Const SNMP_ERROR_AUTHORIZATIONERROR = 16
Global Const SNMP_ERROR_NOTWRITABLE = 17
Global Const SNMP_ERROR_INCONSISTENTNAME = 18

'   Trap generic types:
Global Const SNMP_TRAP_COLDSTART = 0
Global Const SNMP_TRAP_WARMSTART = 1
Global Const SNMP_TRAP_LINKDOWN = 2
Global Const SNMP_TRAP_LINKUP = 3
Global Const SNMP_TRAP_AUTHFAIL = 4
Global Const SNMP_TRAP_EGPNEIGHBORLOSS = 5
Global Const SNMP_TRAP_ENTERPRISESPECIFIC = 6

'   Type declarations:
'
'   WinSNMP Descriptors
Type OID
    len As Long
    ptr As Long
End Type

Type OCTET          ' Also: BITS, IPADDR, OPAQUE & NSAPADDR
    len As Long
    ptr As Long
End Type

Type OCTETSTRING
    len As Long
    ptr As String
End Type

Type CNTR64
' This is not a "Descriptor", but is a structure
' which can be used in a VALUE
    hiPart As Long
    loPart As Long
End Type

' WinSNMP Variable Binding "VALUE" definitions
Type VALUEINT
' Also INT32, UINT32, CNTR32, GAUGE32 & TIMETICKS
    syntax  As Long
    long As Long
    filler As Long 'To bring length up to 12 bytes
End Type

Type VALUECNTR64
    syntax  As Long
    hNumber As CNTR64
End Type

Type VALUEOCTET
' Also BITS, OPAQUE, IPADDR & NSAPADDR
    syntax  As Long
    octetv  As OCTET
End Type

Type VALUEOID
    syntax  As Long
    oidv    As OID
End Type

'   WinSNMP API values
'
'   Values used to indicate entity/context translation modes
Global Const SNMPAPI_TRANSLATED = 0
Global Const SNMPAPI_UNTRANSLATED_V1 = 1
Global Const SNMPAPI_UNTRANSLATED_V2 = 2

'   Values used to indicate SNMP "communications level"
'   supported by the implementation
Global Const SNMPAPI_NO_SUPPORT = 0
Global Const SNMPAPI_V1_SUPPORT = 1
Global Const SNMPAPI_V2_SUPPORT = 2
Global Const SNMPAPI_M2M_SUPPORT = 3