Определение SID по логину пользователя и наоборот

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
 
Inp = InputBox("Введите логин пользователя (Domain\login)", "Определение SID по логину пользователя")
A = Split(Inp, "\")
 
Domain = A(0)
User = A(1)
 
Set objAccount = objWMIService.Get _
("Win32_UserAccount.Name='" & User & "',Domain='" & Domain & "'")
Wscript.Echo Inp & ": " & objAccount.SID

strComputer = "."
 
SID = InputBox("Введите SID учетки","Определение учетки по SID")
 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
 
Set objAccount = objWMIService.Get("Win32_SID.SID='" & trim(SID) & "'")
Wscript.Echo objAccount.ReferencedDomainName & "\" & objAccount.AccountName