Dieses sollte arbeiten:
Schwaches sCn als Schnur = result.GetDirectoryEntry (). Eigenschaften („distinguishedname“). Value.ToUpper
Schwaches iLength als ganze Zahl = InStr (InStrRev (sCn, „OU="), sCn,“, ") - (InStrRev (sCn, „OU=") + 3)
lblOU.Text = mittler (sCn, InStrRev (sCn, „OU=") + 3, iLength)