Узнать SID по имени пользователя и наоборот

'Узнать SID по имени пользователя

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set objAccount = objWMIService.Get _
("Win32_UserAccount.Name='vasya',Domain='domain'")
Wscript.Echo objAccount.SID

'Узнать имя пользователя по его SID

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set objAccount = objWMIService.Get _
("Win32_SID.SID='S-1-5-21-4122063186-443647741-4275581403-5649'")
Wscript.Echo objAccount.AccountName
Wscript.Echo objAccount.ReferencedDomainName

Ссылка на страницу источник