VBSCRIPT - protocole ldap

Salut,

la difficulté dans ce que tu demandes est de pouvoir transformer l'object ObjectGUID qui en format Octet String en String. Pour cela j'ai la fonction "ConvVar" qui est l'adaptation d'un code que j'avai trouvé sur le net.
Voici ce que je propose, tu remplaces "TOTO" par le nom de la personne et fabrikam par le nom de ton domaine comme d'hab' :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
    Set objConnection = CreateObject("ADODB.Connection")
    Set objCommand =   CreateObject("ADODB.Command")
    objConnection.Provider = "ADsDSOObject"
    objConnection.Open "Active Directory Provider"
    Set objCommand.ActiveConnection = objConnection
 
    objCommand.Properties("Page Size") = 1000
    objCommand.Properties("Searchscope") = 2
    objCommand.CommandText = "SELECT displayName, objectGUID FROM 'LDAP://dc=Fabrikam,dc=com' WHERE objectCategory='User' And Cn='*TOTO*'"
 
    Set objRecordSet = objCommand.Execute
 
    Do Until objRecordSet.EOF
       ObjGuid = ""
       strObjectGUID = ConvVar(ObjRecordSet.Fields("objectGUID").Value)
 
       MsgBox ObjRecordSet.Fields("displayName").Value & " - " & ObjGuid
       objRecordSet.MoveNext
    Loop
 
    Function ConvVar(ByVal TabObjectGUID)
             Dim i, ValOct
             Dim TabGUID(15)
             For i = 1 To LenB(TabObjectGUID)
                 ValOct = Hex(AscB(MidB(TabObjectGUID, i, 1)))
                 If Len(ValOct) = 1 Then ValOct = "0" & ValOct
                 ObjGuid = ObjGuid & " " & ValOct
             Next
    End Function

Dis moi si ca te convient ou pas.

A++