- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我有一个启动我的应用程序的 Windows 服务。此服务是一个调度程序,用于执行最终用户定义的一些自定义操作。
它作为 LocalSystem 帐户运行,并将启动我的应用程序(有窗口)。
为此,我使用函数 LogongUser , LoadUserProfile , CreateProcessAsUser .这非常有效但前提是要登录的用户是管理员组的成员。
我不能将用户保留为管理员,他需要成为默认用户(用户组的成员)。
作为管理员,它在服务中运行良好。但是当进程以默认用户身份启动时,它会异常终止:
ExitCode: 0xC0000142 STATUS_DLL_INIT_FAILED
Message: {DLL Initialization Failed} Initialization of the dynamic link library %hs failed. The process is terminating abnormally.
如果我使用该用户(Users 组的成员)登录并手动启动应用程序,一切正常。
我还没有弄清楚导致问题的库是什么。我检查了系统事件日志,但没有日志。我已经尝试过 ImporsonateLoggedOnUser但没有成功。
这是代码:
type
TProcessRec = record
Token: Cardinal;
ProfileInfo: TProfileInfo;
Job: Cardinal;
Environment: Pointer;
ProcessInfo: TProcessInformation;
WinStat: HWINSTA;
end;
TProcess = class
private
fProcess: TProcessRec;
public
constructor Create(aUser, aDomain, aPassword, aCommand, aWorkingDir: string; aUtil: TJJWServiceUtil);
destructor Destroy; override;
procedure Terminate(aExitCode: Cardinal);
function getExitCode: Cardinal;
end;
constructor TProcess.Create(aUser, aDomain, aPassword, aCommand, aWorkingDir: string; aUtil: TJJWServiceUtil);
type
TCreateProcessFuncType = (cpAsUser, cpWithLogon);
const
DES_CREATION_TYPE: array [TCreateProcessFuncType] of string =
('CreateProcessAsUser', 'CreateProcessWithLogon');
var
sa: TSecurityAttributes;
si: TStartupInfo;
limits : TJobObjectExtendedLimitInformation;
wUser, wDomain, wPassword, wCommand, wWorkingDir: WideString;
creationType: TCreateProcessFuncType;
begin
// se estiver rodando com a conta LocalSystem (em serviço de windows)
if
IsPrivilegeEnabled(SE_TCB_NAME) or IsPrivilegeEnabled(SE_INCREASE_QUOTA_NAME)
then
creationType := cpAsUser
else
creationType := cpWithLogon;
aUtil.debug('ENV: ' + AnsiReplaceStr(GetEnvironmentVariable('PATH'), '%', '%%'));
aUtil.debug('Criando novo processo em modo: ' + DES_CREATION_TYPE[creationType]);
FillChar(fProcess, SizeOf(fProcess), 0);
FillChar(sa, SizeOf(sa), 0);
sa.nLength := SizeOf(sa);
FillChar(si, SizeOf(si), 0);
si.cb := SizeOf(si);
case creationType of
cpAsUser:
begin
aUtil.debug('Efetuando o login do usuário %s', [aUser]);
// login
if not LogonUser(PChar(aUser), PChar(aDomain), PChar(aPassword), LOGON32_LOGON_INTERACTIVE, LOGON32_PROVIDER_DEFAULT, fProcess.Token) then
RaiseLastOSError;
try
aUtil.debug('Carrengado o profile do usuário %s', [aUser]);
// carrega o profile do usuário
fProcess.ProfileInfo.dwSize := SizeOf(fProcess.ProfileInfo);
fProcess.ProfileInfo.dwFlags := PI_NOUI;
fProcess.ProfileInfo.lpUserName := PChar(aUser);
if not LoadUserProfile(fProcess.Token, fProcess.ProfileInfo) then
RaiseLastOSError;
try
aUtil.debug('Criando o bloco de variáveis de ambiente do usuário %s', [aUser]);
// variaveis de ambiente
if not CreateEnvironmentBlock(fProcess.Environment, fProcess.Token, false) then
RaiseLastOSError;
aUtil.debug('Criando o JOB para associar o processo filho ao processo pai');
// job para associar
fProcess.Job := CreateJobObject(@sa, nil);
if fProcess.Job = 0 then
RaiseLastOSError;
try
// limita o job para matar o seu processo caso o processo pai termine antes
FillChar(Limits,SizeOf(Limits),0);
with Limits,BasicLimitInformation do
LimitFlags := JOB_OBJECT_LIMIT_KILL_ON_JOB_CLOSE or JOB_OBJECT_LIMIT_BREAKAWAY_OK;
if not SetInformationJobObject(fProcess.Job, JobObjectExtendedLimitInformation, @limits, SizeOf(limits)) then
RaiseLastOSError;
try
fProcess.WinStat := CreateWindowStation(SCHEDULER_WINSTAT, 0, 0, nil);
if fProcess.WinStat = 0 then
RaiseLastOSError;
si.lpDesktop := PChar(SCHEDULER_WINSTAT);
aUtil.debug('Criando o processo: %s', [aCommand]);
// processo!
if not CreateProcessAsUser(
fProcess.Token,
nil,
PChar(aCommand),
@sa,
nil,
false,
CREATE_SUSPENDED or CREATE_BREAKAWAY_FROM_JOB or NORMAL_PRIORITY_CLASS or CREATE_NEW_CONSOLE or CREATE_NEW_PROCESS_GROUP or CREATE_UNICODE_ENVIRONMENT,
fProcess.Environment,
PChar(aWorkingDir),
si,
fProcess.ProcessInfo)
then
RaiseLastOSError;
try
aUtil.debug('Associando o JOB ao processo filho');
// associa ao processo do plugin o JOB (gruda nele!)
if not AssignProcessToJobObject(fProcess.Job, fProcess.ProcessInfo.hProcess) then
RaiseLastOSError;
// VOA PROCESSO, VOA!
if ResumeThread(fProcess.ProcessInfo.hThread) = $FFFFFFFF then
RaiseLastOSError;
aUtil.debug('Processo disparado');
except
TerminateProcess(fProcess.ProcessInfo.hProcess, Cardinal(-1));
CloseHandle(fProcess.ProcessInfo.hThread);
CloseHandle(fProcess.ProcessInfo.hProcess);
FillChar(fProcess.ProcessInfo, SizeOf(fProcess.ProcessInfo), 0);
raise;
end;
except
DestroyEnvironmentBlock(fProcess.Environment);
fProcess.Environment := nil;
raise;
end;
except
CloseHandle(fProcess.Job);
fProcess.Job := 0;
raise;
end;
except
UnloadUserProfile(fProcess.Token, fProcess.ProfileInfo.hProfile);
FillChar(fProcess.ProfileInfo, SizeOf(fProcess.ProfileInfo), 0);
raise;
end;
except
CloseHandle(fProcess.Token);
fProcess.Token := 0;
raise;
end;
end;
//////////////////////////////////////////////////////////////////////////////
cpWithLogon:
begin
wUser := aUser;
wDomain := aDomain;
wPassword := aPassword;
wCommand := aCommand;
wWorkingDir := aWorkingDir;
aUtil.debug('Disparando o processo: %s', [aCommand]);
// o CreateProcessWithLogon já cria um JOB para evitar
// que o processo fique órfão no limbo
if not CreateProcessWithLogon(
PWideChar(wUser),
PWideChar(wDomain),
PWideChar(wPassword),
LOGON_WITH_PROFILE,
nil,
PWideChar(wCommand),
NORMAL_PRIORITY_CLASS or CREATE_NEW_CONSOLE or CREATE_NEW_PROCESS_GROUP,
nil,
PWideChar(wWorkingDir),
si,
fProcess.ProcessInfo
)
then
RaiseLastOSError;
end;
end;
end;
destructor TProcess.Destroy;
begin
if fProcess.ProcessInfo.hProcess > 0 then
begin
if getExitCode = STILL_ACTIVE then
TerminateProcess(fProcess.ProcessInfo.hProcess, Cardinal(-1));
CloseHandle(fProcess.ProcessInfo.hThread);
CloseHandle(fProcess.ProcessInfo.hProcess);
end;
if fProcess.Environment <> nil then
DestroyEnvironmentBlock(fProcess.Environment);
if fProcess.Job > 0 then
CloseHandle(fProcess.Job);
if fProcess.ProfileInfo.hProfile > 0 then
UnloadUserProfile(fProcess.Token, fProcess.ProfileInfo.hProfile);
if fProcess.Token > 0 then
CloseHandle(fProcess.Token);
if fProcess.WinStat > 0 then
CloseWindowStation(fProcess.WinStat);
FillChar(fProcess, SizeOf(fProcess), 0);
inherited;
end;
function TProcess.getExitCode: Cardinal;
begin
if not GetExitCodeProcess(fProcess.ProcessInfo.hProcess, Result) then
RaiseLastOSError;
end;
这很有用
最佳答案
根据这个:Starting an Interactive Client Process in C++
还有这个:CreateProcessAsUser() windowstations and desktops
我解决了创建新的 WindowStation 和 Deskyop 以启动进程的问题:
myWinStat := CreateWindowStation('myWinStat', 0, GENERIC_READ or GENERIC_WRITE, nil);
myDesk := CreateDesktop('myDesktop', nil, nil, 0, GENERIC_READ or GENERIC_WRITE, nil);
startupInfo.lpDesktop := 'myDesktop';
try
// createProcessAsUser...
// Wait for process termination...
finally
CloseDesktop(myDesk);
CloseWindowStation(myWinStat);
end;
关于windows - CreateProcessAsUser 来自服务和用户安全问题,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/15158888/
为什么我可以在控制台 window.window.window.window 中执行此操作并无限追加 .window 并返回 DOM 窗口? 最佳答案 因为 window 对象有一个指向它自身的 wi
Windows管理员用户和系统用户之间有什么权限区别吗? 有些时候,我必须将 cmd 窗口提升到系统权限才能删除一些文件。这可能是因为系统用户锁定了文件,或者系统用户可能具有更高的访问权限,我希望找出
按照目前的情况,这个问题不适合我们的问答形式。我们希望答案得到事实、引用或专业知识的支持,但这个问题可能会引发辩论、争论、投票或扩展讨论。如果您觉得这个问题可以改进并可能重新打开,visit the
Windows 服务和 Windows 进程之间的区别是什么? 最佳答案 服务是真正的 Windows 进程,没有区别。服务的唯一特殊之处在于它由操作系统启动并在单独的 session 中运行。一个独
我有一个 Windows 网络 (peer-2-peer) 以及 Active Directory,我需要记录向服务器发送任何类型打印的用户的名称。我想编写一个程序来记录他们的用户名和/或他们各自的
当我让一个 Windows 服务尝试安装另一个 Windows 服务时遇到问题。 具体来说,我有一个 TeamCity 代理在 Windows 2008 AWS 实例上为我运行测试。这些测试是用 Ja
我创建了一个应用程序来接收广播的 Windows 消息,效果很好。当我把它变成一个服务、安装它并启动服务时,该服务没有收到消息。 最佳答案 服务可能必须被授予访问桌面的权限。从服务属性、“登录”选项卡
我正在使用 Delphi 2010 编写应用程序。我希望在 Windows 启动时启动我的应用程序。我需要它在最新版本的 Windows XP、7.0 和最新的服务器中工作。 将其存储在以下关键工作下
我想开发一个适用于所有三个版本的 Windows XP、Vista 和 7 的应用程序。该应用程序允许人们选择要打开的文件,并允许他们在某些操作后保存文件。三个版本的 Windows 中的每一个都有不
对于\Windows\中的文件类型与\Windows\System32 中的文件类型是否有标准约定? 我正在开发一个 SDK,其中包含各种 DLL、帮助程序 exe 和 Windows 服务 exe。
要求是,必须在 WINDOWS7 机器上配置自动登录,但是这个自动登录应该等待(即延迟)直到另一个 Windows 服务发出继续自动登录的信号。 我使用了自定义凭据提供程序,它在其中等待另一个 Win
很抱歉,这不是一个大问题,而是更多的帮助人们解决这些特定问题的方法。我正在解决的问题要求使用串行I/O,但主要在Windows CE 6.0下运行。但是,最近有人问我是否也可以在Windows下运行该
关闭。这个问题不符合Stack Overflow guidelines .它目前不接受答案。 这个问题似乎不是关于 a specific programming problem, a softwar
不幸的是 SC 命令在 W2000 上还不可用,所以我不能使用它。 我正在尝试检查服务是否在 W2000 服务器上运行,如果它没有运行,脚本应该能够启动该服务。 如何在 Windows 2000 上执
如何在登录到 Windows 之前启动 Windows 窗体应用程序?是否可以在登录到 Windows 之前启动 Windows 窗体应用程序?如果不是,我是否有机会在登录前启动 Windows 服务
关闭。这个问题不符合Stack Overflow guidelines .它目前不接受答案。 这个问题似乎不是关于 a specific programming problem, a softwar
我想在 XML 文件中区分 Windows XP 和 Windows 7。我想我会在 XML 中为它使用一个环境变量。 但是我找不到在 Windows 中定义的任何系统环境变量来提供此信息。 我看到了
有谁知道我可以在注册表中的哪个位置检查机器上是否安装了这些应用程序: Windows 通讯录 Windows 联系人 最佳答案 来自 Microsoft:我知道它说的是 win 95,但 reg 是一
我正在尝试从我的 Windows 服务器调用放置在远程 Windows 服务器上的批处理文件。我在远程服务器上安装了 freeSSHd。我尝试使用 putty/plink 但没有结果。 我使用的命令语
( 大家好。我是 Windows 编程的新手,所以如果已经有人问过我,我提前道歉,我只是不知道要搜索什么,但这个问题一直让我发疯,我知道有人可能真的很容易回答这个问题。) 我的公司有一个在 Windo
我是一名优秀的程序员,十分优秀!