DNAME

[Stephane Maillard]

Bonjour,

Code : Tout sélectionner

Option Public
Const DN_DELIM = "/"
Const DN_DELIM_STR = "/"
Const DN_DELIM_RDN = "+"
Const DN_DELIM_RDN_ABBREV = "+"
Const DN_DELIM_LDAP = ","
Const DN_TYPE_DELIM = "="
Const DN_TYPE_DELIM_STR = "="
Const DN_OUNITS = 4
Const DN_MAX_COMMENTS = 3
Const DN_DCS = 16
Const DN_OUS_EXT = 12

Const DN_NONSTANDARD = &h0001
Const DN_NONDISTINGUISHED = &h0002
Const DN_CN_OU_RDN = &h0008
Const DN_O_C_RDN = &h0010
Const DN_NONABBREV = &h0020

Const DN_ABBREV_INCLUDEALL = &h00000001
Type DN_COMPONENTS
   Flags As Long
   CLength As Integer
   C As String
   OLength As Integer
   O As String
   OULength(DN_OUNITS) As Integer
   OU(DN_OUNITS) As String
   CNLength As Integer
   CN As String
   DomainLength As Integer
   Domain As String
   ' Fin de la section V3, ajout des champs de la V4
   PRMDLength As Integer
   PRMD As String
   ADMDLength As Integer
   ADMD As String
   GLength As Integer
   G As String
   SLength As Integer
   S As String
   ILength As Integer
   I As String
   QLength As Integer
   Q As String
   ' Fin de la section V4, ajout des champs V5
   PhraseLength As Integer
   Phrase As String
   LPLength As Integer
   LP As String
   RLength As Integer
   R As String
   CMTLength(DN_MAX_COMMENTS) As Long
   CMT(DN_MAX_COMMENTS) As String
   Address821Length As Integer
   Address821 As String
   HierarchyOnlyLength As Integer
   HierarchyOnly As String
   UID As String
   UIDLength As Integer
   L As String
   LLength As Integer
   STLength As Integer
   ST As String
   STREETLength As Integer
   STREET As String
   DCLength(DN_DCS) As Integer
   DC(DN_DCS) As String
   CN2Length As Integer
   CN2 As String
   OUExtLength(DN_OUS_EXT) As Integer
   OUExt(DN_OUS_EXT) As String
End Type

Declare Function DNAbbreviate Lib "nnotes.dll" (Flags As Long, TemplateName As String, InName As String, OutName As String, OutSize As Integer, OutLength As Integer) As Long
Declare Function DNCanonicalize Lib "nnotes.dll" (Flags As Long, TemplateName As String, InName As String, OutName As String, OutSize As Integer, OutLength As Integer) As Long
Declare Function DNParse Lib "nnotes.dll" (Flags As Long, TemplateName As String, InName As String, Comp As DN_COMPONENTS, CompSize As Integer) As Long