Indeed, a number of ways
 Code:
Break On
;Declare variables
Dim $Name, $CN
;Initialize variables
$Name = "CN=James Doe,OU=Users,DC=something,DC=com"
;Code
$CN = Split(Split($Name,",")[AScan(Split($Name,","),"CN=",,,1)],"=")[1]
$CN ?