这个不难。程序核心代码如下:var rl:Cardinal; hToken:Cardinal; tkp:TOKEN_PRIVILEGES; begin OpenProcessToken(GetCurrentProcess,TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,hToken); if LookupPrivilegeValue(0,'SeShutdownPrivilege',tkp.Privileges[0].Luid) then begin tkp.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED; tkp.PrivilegeCount:=1; AdjustTokenPrivileges(hToken,False,tkp,0,nil,rl); InitiateSystemShutdown("IP地址",NULL,0,TRUE,FALSE);//关闭指定IP的计算机。 end else //这个Else语句一般不会被执行: Messagebox(0,chr(13)+'关机权限提升失败!程序意外终止!','信息',Mb_ok+Mb_Iconinformation); 注意,需要关闭的计算机必须指派权限。具体如下: 单击“开始”中的“运行”,输入gpedit.msc,确定,进入“策略组”窗口。s1y 依次展开“计算机配置→Windows 设置→安全设置→本地策略→用户权限指派”。然后,双击窗口右侧的“从远端系统强制关机”。单击“添加用户或组”,在弹出的对话框中单击“高级”,再单击“立即查找”,将列表中的“Guest”用户选中,最后单击“确定”保存设置。
aaakkk6060() ( ) 信誉:100 Blog 2006-10-23 08:40:00 得分: 0
rl:Cardinal;
hToken:Cardinal;
tkp:TOKEN_PRIVILEGES;
begin
OpenProcessToken(GetCurrentProcess,TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,hToken);
if LookupPrivilegeValue(0,'SeShutdownPrivilege',tkp.Privileges[0].Luid) then
begin
tkp.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED;
tkp.PrivilegeCount:=1;
AdjustTokenPrivileges(hToken,False,tkp,0,nil,rl);
InitiateSystemShutdown("IP地址",NULL,0,TRUE,FALSE);//关闭指定IP的计算机。
end
else //这个Else语句一般不会被执行:
Messagebox(0,chr(13)+'关机权限提升失败!程序意外终止!','信息',Mb_ok+Mb_Iconinformation);
注意,需要关闭的计算机必须指派权限。具体如下:
单击“开始”中的“运行”,输入gpedit.msc,确定,进入“策略组”窗口。s1y
依次展开“计算机配置→Windows 设置→安全设置→本地策略→用户权限指派”。然后,双击窗口右侧的“从远端系统强制关机”。单击“添加用户或组”,在弹出的对话框中单击“高级”,再单击“立即查找”,将列表中的“Guest”用户选中,最后单击“确定”保存设置。
不用客户端,怎么实现呢“》???
--------------------------------------------------------------
找漏洞,装木马,其实还是要客户端......
关键字:Delphi ExitWindowsEx Win2000
http://www.delphibox.com/article.asp?articleid=1871