Elenco degli utenti di un gruppo

All'interno di una rete locale, sono stabiliti per ciascun utente i gruppi ai quali appartiene. Questo permette di gestire con più facilità l'accesso ai programmi ed alle risorse della rete.

Ad esempio il gruppo "contabilità" potrà accedere ad una serie di programmi. Le proprietà di accesso a questi programmi saranno impostate in modo da permetterne l'esecuzione solo al gruppo "contabilità".

Quando si vuole abilitare un utente all'uso di questi programmi, sarà sufficiente metterlo nel gruppo "contabilità", senza doverlo abilitare ad ogni singolo programma.

Può però essere necessario, a volte, sapere QUALI UTENTI sono abilitati a questo gruppo, per essere certi che non ci siano intrusi. Oppure devo far preparare una presentazione in powerpoint ma non so quali utenti sono abilitati all'uso di questo programma.

Chiedere al server informazioni sui gruppi non è difficile, basta conoscere un paio di istruzioni che servono allo scopo.

Con "Set objDomain = GetObject("WinNT://" & strDomain)" punto al dominio, mentre con l'istruzione successiva chiedo di accedere alle informazioni sui gruppi, ed in particolare al gruppo il cui nome è nella variabile stringa strGroup.

A questo punto chiedo il nome di ogni "member" del gruppo. Lo metto in una variabile, separato con una tabulazione (vbTab).

E mostro il risultato in una finestra messaggio.

Copia il programma riportato qui sotto in un file con estensione ".vbs" oppure scarica l'archivio zip contentente lo script.

'************************************************
' File:    Visualizza Utenti di un Gruppo.vbs
' Autore:  Giovanni Cenati 
'          Visualizza i membri appartenenti
'          ad un gruppo del dominio. 
' http://digilander.libero.it/Cenati
' Codice vbs liberamente utilizzabile citando il sito.
'************************************************
Set WshShell = WScript.CreateObject("WScript.Shell")

' Ottiene il nome del dominio e dell'utente
strDomain = WshShell.ExpandEnvironmentStrings("%USERDOMAIN%")

strGroup = inputbox ("Per quale gruppo vuoi ricercare gli utenti che vi appartengono?", _
           "Visualizza Gruppi","Domain Users")
if strGroup ="" then wscript.quit 'Se premuto annulla

Set objDomain = GetObject("WinNT://" & strDomain)
Set objGroup = objDomain.GetObject("group", strGroup)

' Crea la lista dei gruppi di appartenenza dell'utente
For Each objUser In objGroup.members
	strUserList = strUserList & vbtab & objUser.Name
next

msgbox strUserlist, ,"Utenti del gruppo "& strGroup
'*** Fine Programma - Visualizza Utenti di un Gruppo.vbs

Cenati Giovanni

home | e-mail e contatti | Introduzione al sito | Cosa e' e come imparare VbScript