Questo script serve per elencare gli utenti attivo sul dominio NT a cui appartiene il web server.
Fa uso di ADSI (Active Directory Service Interface) installato di default con Windows 2000, ed installabile su NT.
Con ADSI si possono compiere numerosi task amministrativi, tra cui cambiare le impostazioni di utenti, crearli in maniera automatizzata o modificare le impostazioni del web server, ad esempio.

<%

on error resume next

Dim Domain

set Domain = GetObject("WinNT://localhost")

Respons.write "<table><tr><td>User</td><td>Path</td><tr>"

for each User in Domain

  Response.write "<tr><td>" & User.name
  Response.write "</td><td>" & User.ADsPath
  Response.write "</td></tr>"

next

Response.write "</table>"

%>

Approfondimenti