Discussion :

[Bazunga]

Bonjour à tous,

Je suis en train de faire une gestion de comptes NT via asp(VB script). Sachant que mon code pour extraite les utilisateurs NT est

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
sub displayuser()
	Dim Computer,User
	set Computer=getobject("WinNT://" & domain_uti)
	Computer.Filter=Array("User")
	compteur=0
	For Each User in Computer
		if compteur Mod 2 = 0 then
			couleur="#f4f4f4"
		else
			couleur="#ffffff"
		end if
		Response.Write("<tr style='background:" & couleur & "'><td>" & User.name & "</td><td>" & User.FullName & "</td><td style='width:30%'>" & User.Description & "</td><td style='text-align:center'><a href='liste_compte.asp?group=" & User.name & "' title='Groupe(s)'/><img src='img/inter.png' alt='infos'/></a></td></tr>")
		compteur=compteur+1
	Next
End sub

J'aimerai savoir si il est possible de trier directement par odre alphabétique, car par défaut ils s'affichent par odre de création.

Merci


PS: quand je dis directement c'est donc sans passer par un tri du tableau mais par la requête.

[gderenne]

Salut,

En ASP/VBScript, j'ai finalement opté pour cette solution pour l'Active Directory :

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
Const ADS_SCOPE_SUBTREE = 2
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") = ADS_SCOPE_SUBTREE 
' - Execution de la requete SQL sur le LDAP -
objCommand.CommandText = "SELECT SN, givenName, samAccountName, telephoneNumber, mail FROM 'LDAP://dc=TON_DOMAINE_NT,dc=local' WHERE objectCategory='User' ORDER BY 1"
Set objRecordSet = objCommand.Execute
 
' - Gestion du RecordSet -
objRecordSet.MoveFirst
 
Do While Not objRecordSet.EOF
  nom = objRecordSet.Fields("SN").Value
  objRecordSet.MoveNext
Loop
 
objRecordSet.Close
Set objRecordSet = Nothing
Set objCommand = Nothing
Set objConnection = Nothing

J'ai vu sur d'autres forums que certains avaient des problèmes de lenteur sur ce type de requete. Chez-moi, c'est instantanné.