| Вопрос: Помогите! | Добавлено: 02.03.06 11:37 |
Автор вопроса:  SL | ICQ: 277007669 |
| Посогите! Как установить процессу привелегию SE_SHUTDOWN_NAME (равной "SeShutdownPrivilege")? |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  sne Разработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #1 | Добавлено: 02.03.06 18:00 |
|
Private Function AdjustToken() As Long
Const TOKEN_ADJUST_PRIVILEGES = &H20: Const TOKEN_QUERY = &H8 Dim hdlProcessHandle As Long, hdlTokenHandle As Long, lBufferNeeded As Long Dim tmpLuid As LUID: Dim tkp As TOKEN_PRIVILEGES Dim tkpNewButIgnored As TOKEN_PRIVILEGES hdlProcessHandle = GetCurrentProcess() OpenProcessToken hdlProcessHandle, (TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY), hdlTokenHandle LookupPrivilegeValue "", "SeShutdownPrivilege", tmpLuid tkp.PrivilegeCount = 1 tkp.TheLuid = tmpLuid tkp.Attributes = SE_PRIVILEGE_ENABLED AdjustTokenPrivileges hdlTokenHandle, False, tkp, Len(tkpNewButIgnored), tkpNewButIgnored, lBufferNeeded End Function |
||
Страница: 1 |