guendalf | J'ai peut-etre mal compris ta question (Quel est la signification du sigle AD ??)
Mais tu as une chaine de caracteres ("LDAP://cn=nom du groupe,ou=nom de l'ou,dc=Mon,dc=domain,dc=com" ), et tu veux extraire une sous-partie de cette chaine ??
Code :
- Public Sub fExtractGroupName()
- Dim s As String
- Dim nStartPos As Integer, nEndPos As Integer
- s = "LDAP://cn=nom du groupe,ou=nom de l'ou,dc=Mon,dc=domain,dc=com"
- nStartPos = InStr(s, "cn=" ) + Len("cn=" )
- nEndPos = InStr(nStartPos, s, "," )
- sGroupName = Mid(s, nStartPos, nEndPos - nStartPos)
- MsgBox sGroupName
- End Sub
|
---------------
Guendalf
|