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...
Marsh Posté le 03-03-2006 à 12:46:34
non, c bon, plus besoin...
Make sure you enter the(*)required information where indicate.HTML code is not allowed
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...