Тема: WSH: Определить SID для TrustedInstaller
Всем, здравствуйте !
Есть у меня такой запрос через Win32_UserAccount (также пробовал и через Win32_SID).
Но почему-то не хочет возвращать SID для TrustedInstaller.
Возможно, для службы это делается как-то по другому.
Прошу помочь, пожалуйста.
+ открыть спойлер
Data = inputBox("Введите UserName: ", "GetUserBySID")
if instr(Data, "\") <> 0 then
DomainName = split(Data, "\")(0)
UserName = split(Data, "\")(1)
else
UserName = Data
DomainName = CreateObject("WScript.Network").UserDomain
end if
On Error Resume Next
Set objAcc = GetObject("winmgmts:{impersonationlevel=impersonate}!" _
& "\root\cimv2:Win32_UserAccount.Domain='" & DomainName & "'" _
& ",Name='" & UserName & "'")
If Err.Number = 0 Then
with objAcc
SID = .SID
PasswordRequired = .PasswordRequired
Disabled = .Disabled
Status = .Status
if PasswordRequired then PasswordRequired = "Да" else PasswordRequired = "Нет"
if Disabled then Disabled = "Да" else Disabled = "Нет"
end with
end if
On Error GoTo 0
if SID <> "" then
ret = inputbox("Domain: " & DomainName & vblf & _
"UserName: " & UserName & vblf & _
"Требуется пароль? " & PasswordRequired & vblf & _
"Отключена? " & Disabled & vblf & _
"Статус: " & CStr(Status), "GetSIDByUser - ответ", _
SID)
else
msgbox DomainName & "\" & UserName & " не найден!"
end if
