Dim objOU As New DirectoryEntry("LDAP://CN=your user name, OU=users group>, DC=domain, DC=something, DC=net or com")
Dim name As String = objOU.Properties("givenName").Value.ToString()
Dim surname As String = objOU.Properties("sn").Value.ToString()
Console.WriteLine(name & " " & surname)