Récupérer les comptes administrateurs d'une machine

Bonjour,

Je dois développer un script permettant de récupérer sur tous les ordinateurs du réseaux les comptes / groupes qui en sont administrateur pour les incorporer dans un fichier excel.

Pour l'instant mon script interroge l'AD pour récupérer les hostnames des PC , mais à partir de la , je ne sais pas comment interroger le PC afin de récupérer les administrateur.

J'ai cherché sur le forum ainsi que sur le site de Microsoft, mais je n'ai rien trouvé.


Merci d'avance.

Regarde dans les contributions, une personne y a laisser un script qui récupère toutes les infos du PC via les objets WMI. Tu pourrais t'en inspirer.

Merci , je viens de trouver un script pour résoudre mon probleme à l'instant ;)

Salut,

voici un script qui liste les membres du groupe local "Administrateur" :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

admgrp = "Administrateurs" strcomputer = "."   Set objNetwork = CreateObject("Wscript.Network")   Set objGroup = GetObject("WinNT://" & strcomputer & "/" & AdmGrp & ", group") For Each objMember in objGroup.Members   WScript.Echo Replace(objMember.AdsPath, "WinNT://", "")   Next

---

après tu n'as plus qu'a placer ce code dans ta boucle qui liste tes PC et remplacer strcomputer par le nom de machine que la boucle lis.

Attention le groupe "Administrateurs" va fonctionner si tes OS sont en francais, pour déterminer le nom du groupe "Administrateurs", tu peux utiliser ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

strComputer = "." Set WshNetwork = CreateObject("Wscript.Network") 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   Wscript.echo AdmGrp

---

Voilà.

A++