Bonjour à tous
Je voudrais afficher la propriété TelephoneNumber d'un utilisateur sur le domaine
voici ce que j'ai fais
Merci d'avance
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
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
pour votre aide
Partager