<%
Function ShowNTUserAccounts(vComputerName)

  Dim objLocator, objService, objWEBMCol, objWEBM

  Set objLocator = Server.CreateObject("WbemScripting.SWbemLocator")

  'Connettiamoci a WMI
  If isEmpty(vComputerName) = True then
    Set objService = objLocator.ConnectServer
  Else
    Set objService = objLocator.ConnectServer(vComputerName)
  End If

  'Recuperiamo l'oggetto al servizio Webm
  Set objWEBMCol = objService.InstancesOf("Win32_Account")

  Response.write "<H2>Account utenti NT:</H2><HR><UL>"

  'Enumeriamoli
  For Each objWEBM in objWEBMCol
    Response.write "<LI>Intestazione: " & objWEBM.Caption & _
                   ", <BR>Descrizione: " & objWEBM.Description & _
                   ", <BR>Dominio: " & objWEBM.Domain & _
                   ", <BR>Identificativo di Sicurezza: " & objWEBM.SID & _
                   ", <BR>Tipo SID: " & objWEBM.SIDType & _
                   ", <BR>Stato: " & objWEBM.Status & "<BR></LI>"
  Next
  Response.write "</UL>"

  'Chiudiamo gli oggetti
  Set objLocator = Nothing
  Set objService = Nothing
  Set objWEBMCol = Nothing
  Set objWEBM = Nothing

End Function

Call ShowNTUserAccounts("")

%>