Daten in einem Array kürzen

#include <Array.au3>

Dim $array[5]
$array[0]=4
$array[1]='CN=SophosAdministrator,OU=Users,OU=_Admins,DC=AA,DC=DOM,DC=bb,DC=cc'
$array[2]='CN=Account Operators,CN=Builtin,DC=AA,DC=DOM,DC=bb,DC=cc'
$array[3]='CN=Distributed COM Users,CN=Builtin,DC=AA,DC=DOM,DC=bb,DC=cc'
$array[4]='CN=Administrators,CN=Builtin,DC=AA,DC=DOM,DC=bb,DC=cc'

for $i = 1 to $array[0]
$array[$i] = StringMid($array[$i], 4, StringInStr($array[$i], ",") - 4)
Next
_ArrayDisplay($array)

#include <Array.au3>

Dim $array[5]
$array[0]=4
$array[1]='CN=SophosAdministrator,OU=Users,OU=_Admins,DC=AA,DC=DOM,DC=bb,DC=cc'
$array[2]='CN=Account Operators,CN=Builtin,DC=AA,DC=DOM,DC=bb,DC=cc'
$array[3]='CN=Distributed COM Users,CN=Builtin,DC=AA,DC=DOM,DC=bb,DC=cc'
$array[4]='CN=Administrators,CN=Builtin,DC=AA,DC=DOM,DC=bb,DC=cc'

For $i = 1 to $array[0]
$array[$i] = StringRegExpReplace($array[$i], '(CN=)(.+?)(,.+)', '$2')
Next
_ArrayDisplay($array)