Buen día compañeros,
me gustaría saber cómo se puede obtener el dominio ya sea de una pc o de un usuario del directorio activo desde visual basic, encontre un ejemplo por la web pero no me funciona:

Sub Main()
If TypeOf My.User.CurrentPrincipal Is Security.Principal.WindowsPrincipal Then
Dim parts() As String = Split(My.User.Name, "\")
Dim domain As String = parts(0)
MsgBox(My.User.Name)
Else
MsgBox("otro tipo de autenticacion")
End If
End Sub

Muchas gracias por su ayuda.