Nettoyage groupe locaux

Le
Alain Montfranc
Bonsoir

Sur un reseau, un certain nombre de postes ont été deployes avec, dans
le groupe administrateurs locaux, un compte de l'AD aujourd'hui disparu
(on ne voit plus que le SID)

Apparement la commande
net localgroup Administrateurs S-xxxx /delete

ne marche pas :-( (le net localgroup indique que la syntaxe est
incorrecte alors que la meme commande marche avec un nom en toutes
lettres)

existe t'il un autre moyen de scripter cela ?

merci
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Gilles LAURENT [MVP]
Le #17979061
"Alain Montfranc" news:
| Bonsoir

Bonsoir,

| Sur un reseau, un certain nombre de postes ont été deployes avec, dans
| le groupe administrateurs locaux, un compte de l'AD aujourd'hui
| disparu (on ne voit plus que le SID)
|
| Apparement la commande
| net localgroup Administrateurs S-xxxx /delete
|
| ne marche pas :-( (le net localgroup indique que la syntaxe est
| incorrecte alors que la meme commande marche avec un nom en toutes
| lettres)
|
| existe t'il un autre moyen de scripter cela ?
|
| merci

En VBScript à l'aide du provider WinNT:

--- Coupez ici : CleanLocalGroup.vbs ---
Set oGroup=GetObject("WinNT://./Administrateurs,group")
For Each oUser In oGroup.Members
If Left(oUser.Name, 5)="S-1-5" Then oGroup.Remove oUser.AdsPath
Next
--- Coupez ici : CleanLocalGroup.vbs ---

--
Gilles LAURENT
MVP Windows Server - Admin Frameworks
http://glsft.free.fr
Alain Montfranc
Le #17979051
Gilles LAURENT [MVP] a écrit
"Alain Montfranc" news:
Bonsoir



Bonsoir,

Sur un reseau, un certain nombre de postes ont été deployes avec, dans
le groupe administrateurs locaux, un compte de l'AD aujourd'hui
disparu (on ne voit plus que le SID)

Apparement la commande
net localgroup Administrateurs S-xxxx /delete

ne marche pas :-( (le net localgroup indique que la syntaxe est
incorrecte alors que la meme commande marche avec un nom en toutes
lettres)

existe t'il un autre moyen de scripter cela ?

merci



En VBScript à l'aide du provider WinNT:

--- Coupez ici : CleanLocalGroup.vbs ---
Set oGroup=GetObject("WinNT://./Administrateurs,group")
For Each oUser In oGroup.Members
If Left(oUser.Name, 5)="S-1-5" Then oGroup.Remove oUser.AdsPath
Next
--- Coupez ici : CleanLocalGroup.vbs ---



merci
Publicité
Poster une réponse
Anonyme