TUTOS.EU

Lister les membres du groupe local administrateurs sur plusieurs machines

Comment obtenir la liste des comptes administrateurs locaux de plusieurs machines

Le script vbs se connecte à une liste de machines donnée.
Il essaye d'abord d'accéder au groupe local Administrateurs. Si il n'y arrive pas il essaye le groupe Administrators.

Dim ListeMachines
Dim strComputer

ListeMachines = "Machine1;Machine2;Machine3"

ParseCaracter = ";"
TableauMachines = Split(ListeMachines, ParseCaracter)
For Each strComputer In TableauMachines 

	strGroup = "Administrators"
	WScript.Echo "Computer: " & strComputer
	Err.Clear
	On Error Resume Next
	Set objGroup = GetObject("WinNT://" & strComputer & "/" & strGroup & ",group")
	If Err.Number <> 0 Then
		Err.Clear
		strGroup = "Administrateurs"
		Set objGroup = GetObject("WinNT://" & strComputer & "/" & strGroup & ",group")
	End If
	
	If Err.Number = 0 Then
		WScript.Echo "  Administrators group members for " & strComputer
		For Each objMember In objGroup.Members
		  WScript.Echo VbTab & objMember.Name
		Next
	End If

Next
Lien vers le fichier : cliquez ici

Article(s) en relation(s)