Bannière

Métadonnées du document:
[ Auteur : Clockover ][ Création le : 05/08/2009 ][ Dernière modification le : 05/08/2009 ][ Version : 1.1 ]

Ajouter un membre au groupe administrateurs local d'un poste [VBS]

Etat du script: Fonctionnel

Présentation:

Ce script en VBS ajoute au groupe administrateur local d'un poste, un utilisateur que l'on aura définit.
Il fonctionne sans interaction utilisateur.

Il fait double emploi avec la stratégie de groupes restreints mais peut se révéler utile.

Le script:

'Ajouter un compte comme administrateur local d'un poste.
'Version 0.1 20090805 by Clockover

'Variables de configuration
strComputer = "."						'Ordinateur qui doit subir la modification. "." étant lui-même.
strDomain = "Domaine.local"					'Domaine de l'utilisateur à ajouter.
strUser = "administrateur"					'user à ajouter.

'Script
on error resume Next

'Recherche des comptes administrateurs locaux de l'ordinateur.
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colAccounts = objWMIService.ExecQuery("Select * From Win32_Group Where LocalAccount = TRUE And SID = 'S-1-5-32-544'")
 
For Each objAccount in colAccounts
    AdmGrp = objAccount.Name
Next
 
'Ajout du compte utilisateur dans le groupe administrateur local.
Set objgroup= GetObject("WinNT://"& strComputer & "/" & AdmGrp)
Set objUser = GetObject("WinNT://" & strDomaine & "/" & strUser)
objGroup.Add(objUser.ADsPath) 

TODO Liste:

-Vide

Historique:

flecheflecheVersion 0.1 (2009/08/05)
-Création du script et test en production avec succès.

Il y a 0 commentaire(s) sur ce sujet.
L'intégralité du portail est placé sous licence Creative Commons License NC v2.0 (sauf mentions contraires indiquées sur les pages et/ou documents concernés !). Version: 4.2
Ce portail répond normalement aux critères de compatibilité XHTML v1.1 et CSS v2.0 du W3C:
Valid XHTML 1.1! Valid CSS 2.0!

Page générée en 0.006 secondes