Compléter code problème

Bonjour à tous,

J'essaie de compléter un script en vbsedit.
Je veux qui ajoute les utilisateurs pomme et fraise avec comme mot de passe pommefraise10.

j'ai commencé le script il reste à le compléter
Code:

1 2 3 Set objReseau = CreateObject("Wscript.Network") strOrdinateur = objReseau.ComputerName Set colComptes = GetObject("WinNT://" & strOrdinateur & "")
Cordialement,

Marjolaine