VBscript & ADSIRésolu

Question

Bonjour, 
je suis &#224; 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...

cs_elpens · Accepted Answer

Non, desol&#233;, fausse alerte...


Je n'ai plus besoin de proc&#233;der comme cela...

VBscript & ADSI

1 réponse

Discussions similaires