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" )
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...
