Discussion :

[Invité]

Bonjour,je souhaite parvenire à trouvé le GUiD à l'aide d'un script créer en vbscript mais pour cela il faut utilisé le protocole ldap qui m'est totalement inconue. J'aimerais savoir si vous connaissez des sites avec des tutoriaux ou des didacticiels formant au protocol ldap .
merci de votre aide

Configuration: Windows XP
Internet Explorer 7.0

[RadPAT]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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