VBscript & ADSI [Résolu]

Signaler
Messages postés
260
Date d'inscription
vendredi 2 décembre 2005
Statut
Membre
Dernière intervention
3 novembre 2007
-
Messages postés
260
Date d'inscription
vendredi 2 décembre 2005
Statut
Membre
Dernière intervention
3 novembre 2007
-
Bonjour,
je suis à la recherche d'un bon site pour travailler sur un vbscript & sur Active directory :

En fait, j'essaie de rechercher les si les groupes des utilisateurs (definit par un SAMaccountName) contiennent une certaine string.

Ex. :
Function getCmpId()
Set Sam_List = GetObject("[ldap://OU=Companies,DC=swatchgroup,DC=net/ LDAP://OU=Companies,DC=swatchgroup,DC=net]")
Sam_List.Filter = ("(SAMAccountName=" & user.sAMAccountName & ")")

For Each group In Sam_List.memberOf
If Instr(group, "myString") <> 0 Then

Dim endCount = Instr(group, "-myString")
Dim startCount = Instr(group, "CN=")
startCount += 3

Dim abbr = group.Substring(startCount, (endCount - startCount))
selCommandSQL = "SELECT idCompany FROM Company WHERE abbr LIKE" & abbr


Conn.Open()
Set idCmp = SQLConn.Execute(selCommandSQL)
Conn.Close()
End If
'next group
Next

Merci d'avance...

1 réponse

Messages postés
260
Date d'inscription
vendredi 2 décembre 2005
Statut
Membre
Dernière intervention
3 novembre 2007

Non, desolé, fausse alerte...


Je n'ai plus besoin de procéder comme cela...
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 195 internautes nous ont dit merci ce mois-ci