Einzelnen Beitrag anzeigen

Benutzerbild von HaZe
HaZe

Registriert seit: 1. Jul 2004
Ort: Oberottmarshausen
57 Beiträge
 
Delphi 6 Professional
 
#1

win2k kann kein winxp über netzwerk herrunterfahren

  Alt 23. Dez 2004, 09:43
hi

ich weis nicht ob das normal ist, aber ich bekomm einfach die xp pcs in meinen netzwerk über remote herruntergefahren, alle andere nt oder 2k gehtn nur die xp's machen probleme. ich hab auch schon das tool von assarbad probiert ohne erfolg.
ich verwende folgenden code

Delphi-Quellcode:
function TimedShutDown(Computer: string; Msg: string; Time: Word; Force: Boolean; Reboot: Boolean): Boolean;
var
  rl: Cardinal;
  hToken: Cardinal;
  tkp: TOKEN_PRIVILEGES;
begin
  //get user privileges to shutdown the machine, we are talking about win nt and 2k here
  if not OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken) then
    ShowMessage('Cannot open process token.')
  else
  begin
    if LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tkp.Privileges[0].Luid) then
    begin
      tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
      tkp.PrivilegeCount := 1;
      AdjustTokenPrivileges(hToken, False, tkp, 0, nil, rl);
      if GetLastError <> ERROR_SUCCESS then
       ShowMessage('Error adjusting process privileges.');
    end
  else
    ShowMessage('Cannot find privilege value.');
  end;

  Result := InitiateSystemShutdown(PChar(Computer), PChar(Msg), Time, Force, Reboot)
end;

//Start shut down
procedure TForm1.Button1Click(Sender: TObject);
begin
  if not TimedShutDown(pcED.text, byeED.text, 30, true, true) then
    ShowMessage('function failed...');
end;
ich bekomm keine meldung, es tut sich auch nichts


hat auch jmd dieses problem und kennt vielleicht ne lösung ?


MfG

HaZe
Domenik
--
Nur, weil man vor sich eine CPU hat, muß man das Denken nicht
einstellen.
  Mit Zitat antworten Zitat