TUTOS.EU

Lister les sid des comptes locaux et du domaine

Script vbs qui permet de lister les sid des comptes windows locaux et du domaine

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

'Set colAccounts = objWMIService.ExecQuery ("Select * From Win32_UserAccount Where LocalAccount = TRUE")
Set colAccounts = objWMIService.ExecQuery ("Select * From Win32_UserAccount")
For Each objAccount in colAccounts
	Wscript.Echo objAccount.Name & VbTab & objAccount.SID
Next
Lien vers le fichier : cliquez ici Copier le code

Si vous voulez le sid d'un compte en particulier

varLoginAccount = InputBox("Entrez le login rechercher","Login","yourlogin")

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

'Set colAccounts = objWMIService.ExecQuery ("Select * From Win32_UserAccount Where LocalAccount = TRUE")
Set colAccounts = objWMIService.ExecQuery ("Select * From Win32_UserAccount")
For Each objAccount in colAccounts
	If objAccount.Name = Lcase(varLoginAccount) Then Wscript.Echo objAccount.Name & VbTab & objAccount.SID
	'Wscript.Echo objAccount.Name & VbTab & objAccount.SID
Next
Lien vers le fichier : cliquez ici Copier le code

Article(s) en relation(s)

2