salut dans un petit prog (petit car je dévute en vb à petit pas      
 
donc j'attaque une AD comme ceci :
 
Set objUser = GetObject _
    ("LDAP://cn=usertest,ou=OuTest,dc=Mon,dc=domain,dc=com" )
 
ceci est valable pour un user, quand je récupere la liste des groupes du user j'obtient :
 
 
("LDAP://cn=nom du groupe,ou=nom de l'ou,dc=Mon,dc=domain,dc=com" ) ce qui est peu lisible,
 
comment faire pour obtenir seulement le nom du groupe ?
je pensais créer une variable et la formater pour que je n'obtienne que la valeur de "cn" mais je sais pas faire      
 
help me please    
 
ou peut être faut-il faire autrement ?

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 ??

merci pour ta réponse, en faite Ad est l'abréviation de Active directory.
 
pour ton code comment faire pour le coller dans un bouton car j'obtient le message suivant : End sub attendu
 
dans mon bouton j'ai le code suivant :
 
Private Sub Command1_Click()
 
Public Sub fExtractGroupName()
Dim s As String
Dim nStartPos As Integer, nEndPos As Integer
 
s = strAdsPath
nStartPos = InStr(s, "cn=" ) + Len("cn=" )
nEndPos = InStr(nStartPos, s, "," )
sGroupName = Mid(s, nStartPos, nEndPos - nStartPos)
MsgBox sGroupName
 
 
End Sub
 
merci par avance de ton aide

comme ca

Sub designe la declaration d'une procedure et End Sub la fin de la procedure. Tu ne peux pas declarer une procedure a l'interieur d'une autre, mais tu peux en appeller une par contre:

Mais je te conseil de lire des tutoriaux de VB pour plus de details..

Ok et merci
 
une dernière chose où puis-je trouver des tutoriaux sur vb ?
 
merci encore

developpez.com ou vbfrance.com pour des codes a adapter.