demande d'aide sur une regexp

Bonjour,

je tente de parser cette chaîne de caractère :

Code:

---

1 2 3 4 5

dn: CN=testUser,OU=DOMAIN,DC=cars-test.fr,DC=fr,DC=local changetype: modify replace: testServeur unicodePost:: IgBOAGkAbgBpADEAMwAxADEvqAFYwBtAG8AaQAiAA==

---

mais je n'arrive pas à obtenir les éléments suivants dans quatre variable en enlevant les prefixes dn: changetype: replace: et unicodepost:

J'ai essayé de parser la première ligne mais sans grand résultats avec ce code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim modele Set modele=new regexp modele.pattern="^dn:\s*\w+\s*$" modele.global=true set correspondances=modele.execute(x) If correspondances.count<>0 Then msgbox(correspondances(0).value) Else ' pas de correspondance wscript.echo(x&"<br>Not find") End If

---

Merci pour votre aide.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Dim modele Set modele=new regexp 'modele.pattern="^dn:\s*\w+\s*$" with modele .pattern="^(\w+)::?\s*(.*?)\s*$" .global=true .multiline=true end with   set correspondances=modele.execute(x) If correspondances.count<>0 Then for i=0 to correspondances.count-1 'msgbox(correspondances(0).value) msgbox correspondances(i).submatches(0) & vbcrlf & correspondances(i).submatches(1) next Else ' pas de correspondance wscript.echo(x&"<br>Not find") End If

---