Ajout d'un utilisateur en tant que administrateur sur des machine sous domaine

Soyez le premier à donner votre avis sur cette source.

Snippet vu 11 583 fois - Téléchargée 19 fois

Contenu du snippet

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"

A voir également

Ajouter un commentaire

Commentaires

krisitaka
Messages postés
1
Date d'inscription
jeudi 17 avril 2008
Statut
Membre
Dernière intervention
26 janvier 2009
-
ou trouve t'on ce petit prog
Cypi007
Messages postés
13
Date d'inscription
jeudi 21 février 2008
Statut
Membre
Dernière intervention
30 octobre 2008
-
desoler mais le servuer indique que l'on execute une commande invalide donc...
le code est bidon sauf... quand il ny as pas de blockage
caiman125
Messages postés
36
Date d'inscription
mercredi 27 décembre 2006
Statut
Membre
Dernière intervention
25 novembre 2010
-
si tu remarque il lie les non des PC depuis un fichier1.txt
et il doit être exécuter avec les privilèges administrateur reseaux
slayer418
Messages postés
19
Date d'inscription
samedi 22 avril 2006
Statut
Membre
Dernière intervention
1 juillet 2009
-
Comment ca marche?

J'ai copier-coller le code dans un fichier .vbs mais quand je clic dessus tout se que ca fait ca créer un .txt avec comme nom erreurs et dont la taille augment a chaque seconde.

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.