Leggere i gruppi del computer locale

venerdì 01 giugno 2007 - 11.21

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

Ciccio85 Profilo | Newbie

2 messaggi | Data Invio: ven 1 giu 2007 - 11:21

Ciao a tutti!

Ho un problema, mi servirebbe recuperare la lista dei gruppi del computer locale (in pratica quella che si vede facendo gestione -> utenti e gruppi locali -> gruppi, da risorse del computer).

Sono riuscito a ricavarla tramite il seguente script:

Set objDomain = GetObject("WinNT://nomeMacchina")
objDomain.Filter = Array("group")
For Each objUser In objDomain
stringa = stringa & objUser.Name & vbcrlf
'Wscript.Echo objUser.Name
Next
Wscript.Echo stringa

Poi ho cercato di fare la stessa cosa in vb.net col seguente codice:

-----------------------------------------------------------------

Dim de As DirectoryEntry
Dim ds As DirectorySearcher
de = New DirectoryEntry("WinNT://" + My.Computer.Name)
ds = New DirectorySearcher(de)
ds.Filter = "((objectCategory=Group))"

For Each res As SearchResult In ds.FindAll

Dim resultPropColl As ResultPropertyCollection = res.Properties

For Each name As Object In resultPropColl("name")
cboGruppo.Items.Add(name.ToString)
Next
Next

-----------------------------------------------------------------

Ma alla chiamata del metodo ds.FindAll lancia l'eccezione NotSupportedException:
Il provider non supporta la ricerca. Impossibile eseguire una ricerca in WinNT://nomeMacchina.

Qualcuno saprebbe aiutarmi? Oppure esiste un altro modo (forse pure più semplice) per ottenere la lista dei workgroups?

Grazie

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !