Скрипт определения 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
Скрипт определения логина пользователя по 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