VBS & ADSI

VBS & ADSI - VB/VBA/VBS - Programmation

Marsh Posté le 03-03-2006 à 11:54:46    

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

Reply

Marsh Posté le 03-03-2006 à 11:54:46   

Reply

Marsh Posté le 03-03-2006 à 12:46:34    

non, c bon, plus besoin...

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed