Discussion :

[Darkthur]

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.

[ced600]

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.

[Darkthur]

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

[RadPAT]

Salut,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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++