'Auteur: Patrick Gagnon-Renaud
'Date: 14 octobre 2009
'Objectif: Ajouter les administrateurs Admin2 et Admin3

Option Explicit
Dim colComptes
Dim objUser
Dim objFileSystem
Dim filFichier
Dim strNomUser
Dim strPasswdUser
Dim objWSh

'Obtient l'objet FileSystem
Set objFileSystem = WScript.CreateObject("Scripting.FileSystemObject")

'Obtient l'objet Shell
set objWSh = WScript.CreateObject("WScript.Shell")

'Obtient les comptes des utilisateur de l'ordinateur strOrdinateur
Set colComptes = GetObject("WinNT://127.0.0.1")

'Ouvre le fichier strNomFichier en lecture
Set filFichier = objFileSystem.OpenTextFile("tp3_user.txt", 1, false)

'Tant que ce n'est pas la fin, créé le dossier qui est sur la ligne
Do While Not filFichier.AtEndOfStream
        strNomUser = filFichier.ReadLine()
        strPasswdUser = filFichier.ReadLine()

        If Not strNomUser = "" And Not strPasswdUser = "" Then
                Set objUser = colComptes.Create("user", strNomUser)
                objUser.SetPassword strPasswdUser
                objUser.SetInfo
                WScript.Echo "L'utilisateur " & strNomUser & " a été créé."
        End if
Loop

'Ferme le fichier
filFichier.Close