VPF::Запуск процесса под другим пользователем

Андреy

Дата 1.12.2008, 10:44 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 9.4.2008

Репутация: нет
Всего: нет

Всем добрый день.
Никак не получается открыть файл под другим пользователем.
GetLastError возвращает код 1326 — unknown user name or bad password.
Но имя пользователя и пароль ВЕРНЫ!
Потому что вот такой код работает:

Код


Dim SInfo As STARTUPINFOW
Dim PInfo As PROCESS_INFORMATION

SInfo.cb = Len(SInfo)
SInfo.lpReserved = 0
SInfo.dwFlags = 0
SInfo.wShowWindow = WindowStyle
    
    If Directory = "" Then
        sDir = CurDir
    Else
        sDir = Directory
    End If
        
Res = CreateProcessWithLogonW(sUsername, sDomain, sPwd, _
                              LOGON_NETCREDENTIALS_ONLY, _
                              "C:\Program Files\Microsoft Office\OFFICE11\excel.exe", _
                              "/r " & Chr(34) & fName & Chr(34) & "", _
                              0&, _
                              ByVal 0&, _
                              StrPtr(sDir), _
                              SInfo, PInfo)

Код выше запускает Excel, но файл открыть не может (пользователь, под которым запущен комп, не имеет к нему доступа, а пользователь sUsername — имеет, поэтому под ним Excel и запускается.)
Вообще нужно использовать параметр LOGON_WITH_PROFILE. Код ниже не работает, и ошибка 1326:

Код


Dim SInfo As STARTUPINFOW
Dim PInfo As PROCESS_INFORMATION

SInfo.cb = Len(SInfo)
SInfo.lpReserved = 0
SInfo.dwFlags = 0
SInfo.wShowWindow = WindowStyle
    
    If Directory = "" Then
        sDir = CurDir
    Else
        sDir = Directory
    End If
        
Res = CreateProcessWithLogonW(sUsername, sDomain, sPwd, _
                              LOGON_WITH_PROFILE, _
                              "C:\Program Files\Microsoft Office\OFFICE11\excel.exe", _
                              "/r " & Chr(34) & fName & Chr(34) & "", _
                              0&, _
                              ByVal 0&, _
                              StrPtr(sDir), _
                              SInfo, PInfo)

Пробую сделать просто вход (LogonUser) — и тоже ошибка 1326.

Код


r = LogonUser(sUsername, sDomain, sPwd, _
              LOGON32_LOGON_INTERACTIVE, LOGON32_PROVIDER_DEFAULT, Token)

При этом эксперементировал с параметрами dwLogonType и dwLogonProvider — иногда код ошибки меняется.
LOGON32_LOGON_INTERACTIVE, LOGON32_PROVIDER_DEFAULT — код 1326
LOGON32_LOGON_INTERACTIVE, LOGON32_PROVIDER_WINNT50 — код 1326
LOGON32_LOGON_BATCH, LOGON32_PROVIDER_DEFAULT — код 1909 (the referenced account is currently locked out and may not be logged on to)
LOGON32_LOGON_BATCH, LOGON32_PROVIDER_WINNT50 — код 1326
LOGON32_LOGON_NETWORK, LOGON32_PROVIDER_DEFAULT — код 1326
LOGON32_LOGON_NETWORK , LOGON32_PROVIDER_WINNT50 — код 1909

В чем может быть причина? Пароль и пользователь верны. Работаю под XP — значит жесткое условие на функцию LogonUser отпадает (я про супер-пупер права учетки).

mihanik

Дата 4.12.2008, 21:37 (ссылка)

(нет голосов)

Загрузка ...

-=Белый Медведь=-

Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109

Андреy!!!
Мил человек!!! Тебе нужно в ветку соответствующего языка программирования!!!
А тут скажу "исрользуй команду винды runas"

--------------------

Программистами не рождаются, - это родовая травма...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »