|
strComputer = "NOMDELAMACHINE"
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colAccounts = objWMIService.ExecQuery _
("Select * From Win32_UserAccount Where Domain = '" & strComputer & "'")
For Each objAccount in colAccounts
If Left (objAccount.SID, 6) = "S-1-5-" and Right(objAccount.SID, 4) = "-500" Then
Wscript.Echo objAccount.Name
End If
Next
 Proposer un script
|
Notre avis :
Votre avis :
Réactions :
0
Votants :
3
Visites :
6862
|
