Visualizzazione dei risultati da 1 a 8 su 8
  1. #1
    Utente di HTML.it L'avatar di Jupy64
    Registrato dal
    Sep 2004
    Messaggi
    1,151

    [VB6] Elenco utenti windows (nt/2000/2003/xp)

    Ciao a tutti, c'è un'api che mi permetta di avere un elenco, e magari anche altre info, degli utenti che sono stati creati in un computer?
    Grazie
    Jupy

  2. #2
    Usa le query WMI ottieni molte piu' informazioni.

    Questo link ti sarà utile:

    http://msdn.microsoft.com/library/de..._reference.asp

    Lavora come se ti collegassi ad un DataBase

  3. #3
    Utente di HTML.it L'avatar di Jupy64
    Registrato dal
    Sep 2004
    Messaggi
    1,151
    Ciao, grazie per l'indirizzo. Effettivamente stavo proprio pensando che forse la libreria WMI avrebbe potuto essermi utile (visto che in pratica si puo' fare molto), anche se, fino a questo momento, non ho mai avuto bisogno di usarle... vedrò cosa riusciro' a tirar fuori.
    Jupy

  4. #4
    Beh tu calcola che dal Database WMI, tiri fuori tutte le informazioni relative a Macchina, Utenti, Group Policy e permessi sulle Cartelle, insomma un po' tutto.

    L' unica difficoltà sta nell' individuare la query che serve a te, visto che non sono proprio un paio.


  5. #5
    Utente di HTML.it L'avatar di Jupy64
    Registrato dal
    Sep 2004
    Messaggi
    1,151
    Ciao, effettivamente c'è talmente tanta roba..che ci si perde nei meandri delle classi..
    Comunque ci sono più classi con le quali si possono tirar fuori gli utenti, e tra queste quella che farebbe al caso mio è la Win32_UserAccount (ci sarebbe anche la Win32_Account ma da meno informazioni)
    e il codice per leggere gli utenti è questo:
    codice:
       Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
       Set colItems = objWMIService.ExecQuery("Select * from Win32_UserAccount Where SIDType=1")
    
    Private Sub ElencoAccount()
       For Each objItem In colItems
          List1.AddItem "Name: " & objItem.Name
          List1.AddItem "Disabled: " & objItem.Disabled
          List1.AddItem "=============================="
       Next
    End Sub
    Ora però non riesco a fare una cosa, disabilitare gli utenti! Leggendo qui: http://msdn.microsoft.com/library/de...seraccount.asp
    la proprietà Disabled si può sia leggerla che scriverla, di conseguenza deduco che tramite questa sia possibile disabilitare un account che voglio io.. e invece niente!
    In pratica una cosa del genere non funziona:
    codice:
    Private Sub DisabilitaAccount(nomeAcc as String)
       For Each objItem In colItems
          if objItem.Name=nomeAcc Then
             objItem.Disabled = True
          End if
       Next
    End Sub
    Sbaglio qualcosa o ci sono altri modi??
    Jupy

  6. #6
    A questo punto escono di scena le conoscenze da programmatore e entrano quelle da System Admin.
    Puoi farlo ma devi soddisfare due prerogative, tipiche di Microsoft, cioè:

    1-Devi far parte degli utenti Admin di DOminio
    2-Devi farlo in un Dominio.

    Prova a farlo girare sul DC come Admin vedrai che funzia!


  7. #7
    Utente di HTML.it L'avatar di Jupy64
    Registrato dal
    Sep 2004
    Messaggi
    1,151
    Ciao, premetto che per il momento non c'è un server di dominio, e che nel computer, dove sto facendo le prove, entro come amministratore. Dunque tu mi dici che ci vuole per forza un server di dominio? non basta entrare come amministratore e usare quel comando? Mi sembra strano che non ci sia qualche altra via.. in verità un'altra strada l'ho trovata. In pratica una volta che ho l'elenco degli utenti (tramite le wmi), seleziono quelli che voglio attivare/disattivare e lancio, tramite la funzione Shell, il comando: NET USER NOME_UTENTE /ACTIVE:[YES | NO] e questo funzia sicuramente... per questo penso che ci possa essere anche qualche api o classe della wmi..
    Jupy

  8. #8
    Certo la Shell!!


Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.