如何在程序中控制WINDOWS2000关机或者重新启动？(100分)

荷塘新月 · 2002-11-22

服务器开的久了，需要重新启动，但是机房的钥匙我没有，想通过程序让服务器重新启动， 调用哪个函数才能让WIN2000重新启动呢？

ligia · 2002-11-22

const //[EXIT CODE]   EI_SYSEXIT_LOGOFF      =$00;   EI_SYSEXIT_SHUTDOWN    =$01;   EI_SYSEXIT_REBOOT      =$02;   EI_SYSEXIT_FORCE       =$04;   EI_SYSEXIT_POWEROFF    =$08;   EI_SYSEXIT_FORCEIFHUNG =$10; //---------[退出系统]--------------------------------------------- FUNCTION FkSystemExit(vType:INTEGER;vForce:BOOL):BOOL; VAR   hToken: THANDLE;     hProc: THANDLE;     iLUID: INT64;     mPriv, mNewPriv: TOKEN_PRIVILEGES;     dLength: DWORD;     dExit

WORD; BEGIN   IF vForce THEN dExit:=vType+EWX_FORCE ELSE dExit:=vType;   //[WIN9X]   IF Win32Platform=VER_PLATFORM_WIN32_WINDOWS THEN     BEGIN Result:=ExitWindowsEx(dExit,0); END;   //[WINNT]   IF Win32Platform=VER_PLATFORM_WIN32_NT  THEN     BEGIN     hProc:=GetCurrentProcess() ;     OpenProcessToken(hProc,TOKEN_ADJUST_PRIVILEGES +TOKEN_QUERY,hToken);     LookupPrivilegeValue('','SeShutdownPrivilege',iLUID);     mPriv.PrivilegeCount:=1;     mPriv.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED;     mPriv.Privileges[0].Luid :=iLUID;     AdjustTokenPrivileges(hToken,False,mPriv,                           (4+(12*mPriv.PrivilegeCount)),                           mNewPriv,dLength);     Result:=ExitWindowsEx(dExit,0);     END;   //[END;] END; //-------------------------------------------------------------------------------

kingdeezj · 2002-11-22

-----以下代码在D5+WIN2000通过。 unit Unit1; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; type   TForm1 = class(TForm)     procedure FormCreate(Sender: TObject);   private function SetPrivilege (sPrivilegeName: string; bEnabled: Boolean) : Boolean;     { Private declarations }   public function WinExit(iFlags: integer):Boolean;     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.DFM} function TForm1.SetPrivilege(sPrivilegeName: string;   bEnabled: Boolean): Boolean; var   TPPrev,   TP       : TTokenPrivileges;   Token :THandle;   dwRetLen : DWORD; begin   result := False;   OpenProcessToken (GetCurrentProcess,                     TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,                     Token);   TP.PrivilegeCount := 1;   if LookupPrivilegeValue (nil, PChar (sPrivilegeName), TP.Privileges[0].LUID) then   begin     if bEnabled then       TP.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED     else       TP.Privileges[0].Attributes := 0;     dwRetLen := 0;     result := AdjustTokenPrivileges (     Token,     False,     TP,     SizeOf (TPPrev),     TPPrev,     dwRetLen);   end;   CloseHandle (Token); end; function Tform1.WinExit (iFlags: integer) : Boolean; begin   result := true;   if SetPrivilege ('SeShutdownPrivilege', true) then   begin     if (not ExitWindowsEx (iFlags, 0)) then     begin       // handle errors...       result := False     end;     SetPrivilege ('SeShutdownPrivilege', False)   end   else   begin     // handle errors...     result := False   end; end; procedure TForm1.FormCreate(Sender: TObject); begin  WinExit(EWX_POWEROFF + EWX_FORCE);//在这里控制是关机、重启等。 end; end.

xianjun · 2002-11-22

前提条件： 1、有那台服务器的管理员帐号、密码 2、有一台连接到那台服务器的机器 然后就可以通过下面的步骤进行远程关机、重启： 1、取得关机权限 2、用InitSystemShutdown指定服务器名关机或重启。

ljy_17 · 2002-11-22

TO：xianjun 用telnet! 木馬也行！ 還有winxp的遠程關機等！

荷塘新月 · 2002-11-22

权限和密码肯定都有，因为我是系统管理员！所没有的是机房的钥匙！谢谢各位了！

xianjun · 2002-11-22

还是要源码？给你发一段以前写的可用代码：[

] const   ADJUST_PRIV = TOKEN_QUERY or TOKEN_ADJUST_PRIVILEGES;   SHTDWN_PRIV = 'SeShutdownPrivilege';   PRIV_SIZE = SizeOf(TTokenPrivileges); //发出关机指令 procedure TForm1.Button5Click(Sender: TObject); var   Len: DWORD;   TokenPriv, Dummy: TTokenPrivileges;   Token: THandle;   lpNetRes: TNetResourceA; begin   //登录到目标计算机（要有关机权限的用户：如管理员）   FillChar(lpNetRes, SizeOf(lpNetRes), 0);   lpNetRes.dwScope := RESOURCE_GLOBALNET;   lpNetRes.dwType := RESOURCETYPE_ANY;   lpNetRes.dwDisplayType := RESOURCEDISPLAYTYPE_SERVER;   lpNetRes.lpRemoteName := PChar('//' + edtMachine.Text);   if not (WNetAddConnection2(lpNetRes, PChar(edtPass.Text), PChar(edtUser.Text),     0) in [NO_ERROR, ERROR_ALREADY_ASSIGNED]) then     RaiseLastOSError;   //取得关机权限   if not OpenProcessToken(GetCurrentProcess(), ADJUST_PRIV, Token) then     RaiseLastOSError;   if not LookupPrivilegeValue(nil, SHTDWN_PRIV, TokenPriv.Privileges[0].Luid) then     RaiseLastOSError;   TokenPriv.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;   TokenPriv.PrivilegeCount := 1;   if not AdjustTokenPrivileges(Token, False, TokenPriv, PRIV_SIZE, Dummy, Len) then     RaiseLastOSError;   if not InitiateSystemShutdown(PChar(edtMachine.Text), PChar(edtMsg.Text),     StrToIntDef(edtTimeOut.Text, 1800), False, True) then     //参数：要关的机器名显示的信息倒计时秒数强制结束程序重新启动     RaiseLastOSError; end; //取消关机指令 procedure TForm1.Button6Click(Sender: TObject); begin   AbortSystemShutdown(PChar(edtMachine.Text)); end;

xianjun · 2002-11-22

另外，你要确保你的服务器在启动过程不用人为干涉即能正常启动 否则关掉以后就不能启动了！！！ 比如设置了BIOS密码的机器就不能这么用了。

荷塘新月 · 2002-11-25

多人接受答案了。

如何在程序中控制WINDOWS2000关机或者重新启动？(100分)

荷塘新月

Unregistered / Unconfirmed

ligia

Unregistered / Unconfirmed

kingdeezj

Unregistered / Unconfirmed

xianjun

Unregistered / Unconfirmed

ljy_17

Unregistered / Unconfirmed

荷塘新月

Unregistered / Unconfirmed

xianjun

Unregistered / Unconfirmed

xianjun

Unregistered / Unconfirmed

荷塘新月

Unregistered / Unconfirmed

Similar threads