voila un autre petit script qui doit être exécuter sur le serveur et qui ajoute des utilisateur en tant que administrateur sur les machine liste dans le fichier fichier1.txt
Source / Exemple :
' 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"
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.