Запуск приложения от имени администратора

[773FF]

Необходимо запустить приложение от имени администратора в сеансе пользователя с неадминистраторскими правами под ОС Windows 7, причём без участвия пользователя. Т. е. где-то сохранить зашифрованный пароль админа и им пользоваться.
Пробовал так:

Код: Выделить всё

        Dim myProcess As New Process()
        myProcess.StartInfo.FileName = "App.exe"
        myProcess.StartInfo.WorkingDirectory = My.Application.Info.DirectoryPath
        myProcess.StartInfo.Verb = "Open"
        Dim s As String = "Password"
        Dim ApplicationPasswords As New System.Security.SecureString()
        For Each c As Char In s
            ApplicationPasswords.AppendChar(c)
        Next
        myProcess.StartInfo.UseShellExecute = False
        myProcess.StartInfo.UserName = "User"
        myProcess.StartInfo.Password = ApplicationPasswords
        myProcess.StartInfo.WindowStyle = ProcessWindowStyle.Normal
        myProcess.Start()

Из сеанса администратора работает, в сеансе простого пользователя выдаёт ошибку: "Требуеться повышение".

Тогда я попробовал класс RunAs_Impersonator: http://williamfaulkner.co.uk/wordpress/2009/04/vbnet-run-as-administrator-impersonate-a-user-2008/.

Код: Выделить всё

            Dim imp As New RunAs_Impersonator

            imp.ImpersonateStart("", "User", "Password")

            Dim myProcess As New Process()
            myProcess.StartInfo.FileName = "App.exe"
            myProcess.StartInfo.WorkingDirectory = My.Application.Info.DirectoryPath
           
             imp.ImpersonateStop

Что-то не помогло, приложение запускается, но выдаёт какую-то ошибку инициализации.

Как это самое повышение сделать без участия пользователя?

[773FF]

Кажется сам нашёл ошибку: надо " imp.ImpersonateStart("", "User", "Password")" заменить на " imp.ImpersonateStart(".", "User", "Password")".
Сейчас проверю, отпишусь.

[773FF]

Увы, но работает только из сеанса администратора или от имени администратора. В сеансе пользователя выдаёт "Unknown error (0x2)". Что делать?

[773FF]

Если кому-то это интересно, то работает так:

Код: Выделить всё

        Dim myProcess As New Process()
        myProcess.StartInfo.FileName = "App.exe"
        myProcess.StartInfo.WorkingDirectory = My.Application.Info.DirectoryPath
        myProcess.StartInfo.Verb = "Open"
        Dim s As String = "Password"
        Dim ApplicationPasswords As New System.Security.SecureString()
        For Each c As Char In s
            ApplicationPasswords.AppendChar(c)
        Next
        myProcess.StartInfo.UseShellExecute = False
        myProcess.StartInfo.UserName = "UserName"
        myProcess.StartInfo.Password = ApplicationPasswords
        myProcess.StartInfo.Domain = Nothing
        myProcess.StartInfo.WindowStyle = ProcessWindowStyle.Normal
        myProcess.Start()

Просто, если домена нет, то

Код: Выделить всё

myProcess.StartInfo.Domain = Nothing

Это работает.
P. S.: когда UAC выключен

[AlekseyVB]

где-то сохранить зашифрованный пароль админа и им пользоваться

То есть надо изначально знать пароль админа? А можно как-нибудь не зная его?

В XP работает данный способ?

[Viper]

где-то сохранить зашифрованный пароль админа и им пользоваться

То есть надо изначально знать пароль админа? А можно как-нибудь не зная его?

В XP работает данный способ?

Это уже из области "как прочитать файл не открывая его"