Esto debe trabajar:
sCn dévil como secuencia = result.GetDirectoryEntry (). Características (“distinguishedname”). Value.ToUpper
iLength dévil como el número entero = InStr (InStrRev (sCn, “OU="), sCn,”, ") - (InStrRev (sCn, “OU=") + 3)
lblOU.Text = mediados de (sCn, InStrRev (sCn, “OU=") + 3, iLength)