AJOUT D'UN UTILISATEUR EN TANT QUE ADMINISTRATEUR SUR DES MACHINE SOUS DOMAINE

' VBScript source code
on error resume next

''''''''''''''ouverture du fichier d'erreur pour savoire les nom de machine inaccessible
Set def = CreateObject("Scripting.FileSystemObject")
set defaut = def.OpenTextFile("erreurs.txt",2 ,true)

defaut.writeline("          debut de rapport d'erreur le " & Now)
defaut.WriteBlankLines(2)

''''''''''''''ouverture du fichier liste.txt
Set fso = CreateObject("Scripting.FileSystemObject")
Set list = fso.OpenTextFile("fichier1.txt",1,false)

''''''''''''''Connection Reseaux
Set net = CreateObject("WScript.Network") 

do until list.AtEndOfStream
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    strComputer = list.readline
    domaine = "nom du domaine"
    users = array("user1","user2")
    for each value in users
        Set objGroup = GetObject("WinNT://" & strComputer & "/Administrateurs,group")
        Set objUser = GetObject("WinNT://" & domaine & "/" & users)
        'wscript.echo objUser.name
        objGroup.Add(objUser.ADsPath)
        'if err.number<>0 then
            defaut.WriteLine(strcomputer & "        |" & err.number & "        |" & err.Description & "     |" & Now)
            err.Clear()
        'end if 
    next
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
loop    
    wscript.echo "Terminée"