Etat du script: Fonctionnel

Présentation:

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:

Historique:

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