Enumerare gli utenti di Windows con una pagina ASP

di Andrea Palmatè, in Classic ASP, UserScript, WMI,

Ancora script dedicate alle potenzialità del servizio WMI.
L'esempio di oggi ci permette di enumerare tutti gli utenti presenti nel sistema e le loro caratteristiche:

<%
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("")

%>

Commenti

Visualizza/aggiungi commenti

| Condividi su: Twitter, Facebook, LinkedIn

Per inserire un commento, devi avere un account.

Fai il login e torna a questa pagina, oppure registrati alla nostra community.

Approfondimenti

Nessuna risorsa collegata

I più letti di oggi