encontre este codigo en internet:
Código vb:
Ver originalDim de As New DirectoryEntry
de.Path = "WinNT://"
For Each d As DirectoryEntry In de.Children
Label1.Text = d.Name
Next
pero creo que el path winnt en win7 no es el correcto alguno sabe cual es ?
Saludos