script remonter une propriété du utilisateur dans L'AD

Bonjour à tous

Je voudrais afficher la propriété TelephoneNumber d'un utilisateur sur le domaine

voici ce que j'ai fais

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
31
32
33
34
Option explicit
Dim FSO
Dim WMI
Dim StrComputer
Dim StrName
Dim colComputer
Dim objComputer
Dim objetConnexion
Dim objetCommande
Dim MonUtilisateur
 
 
strComputer =inputbox("Entrer un poste")
Set FSO=CreateObject("Scripting.FileSystemObject")
Set WMI =GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colComputer = WMI.ExecQuery _
    ("Select * from Win32_ComputerSystem")
For Each objComputer in colComputer
	StrName=replace(objComputer.UserName,"glpi\","")
    wscript.echo "Utilisateur authentifié : " & StrName	
Next
 
 
Const ADS_SCOPE_SUBTREE = 2
 
Set objetConnexion = CreateObject("ADODB.Connection")
objetConnexion.Open "Provider=ADsDSOObject;"
Set objetCommande = CreateObject("ADODB.Command")
objetCommande.ActiveConnection = objetConnexion
objetCommande.CommandText = _
        "SELECT * FROM 'LDAP://dc=glpi,dc=lan' WHERE objectCategory='user' " & _
            "AND samAccountName='" & strName & "'"
Wscript.echo " l'utisisateur  est  : "& strName

Merci d'avance
pour votre aide