Windows 10 - System nicht ausschalten, nachdem Windows heruntergefahren wurde

[TUX_der_Pinguin]

Hallo,

mit folgendem Code lasse ich den Computer herunterfahren, jetzt möchte ich aber gerne das die gute alte Meldung "Es ist jetzt sicher den Computer auszuschalten" erscheint und nicht das der automatisch abgeschaltet wird. Dazu habe ich herausgefunden das es eine Option in den Gruppenrichtlinien (Computerkonfiguration\Administrative Vorlagen\System\System nicht ausschalten, nachdem Windows heruntergefahren wurde) gibt (siehe Anhang) und mit dem Flag 'SHUTDOWN_NOREBOOT' veranlasst man den Computer auch genau dieses zu tun. In der Theorie alles wunderbar und auch unter Windows 7 läuft alles so wie man es will, herunterfahren wird angestoßen, ggf. werden Updates installiert und im Anschluss bleibt der Rechner an und zeigt die Meldung. Unter Windows 10 Enterprise LTSB Evaluation Version funktioniert das jedoch nicht. Der Rechner fährt zwar herunter aber schaltet sich ab, entweder wird die Gruppenrichtline ignoriert oder der API Aufruf. :gruebel:

Hat jemand von euch eine Idee bzw. Erfahrung damit?

Delphi-Quellcode:

procedure WindowsShutDown( Computer: PChar; Msg: PChar; Time: Word; Force: Boolean; Reboot: Boolean );
var
  rl : Cardinal;
  hToken: THandle;
  tkp : TOKEN_PRIVILEGES;
  flags : DWORD;

begin
  {$WARN SYMBOL_PLATFORM OFF}

  Win32Check( OpenProcessToken( GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken ) );
  Win32Check( LookupPrivilegeValue( nil, 'SeShutdownPrivilege', tkp.Privileges[ 0 ].Luid ) );

  tkp.Privileges[ 0 ].Attributes := SE_PRIVILEGE_ENABLED;
  tkp.PrivilegeCount := 1;

  Win32Check( AdjustTokenPrivileges( hToken, False, tkp, 0, nil, rl ) );

  if Win32MajorVersion >= 6
  then
    begin
      // Flags
      if Reboot
      then
        flags := SHUTDOWN_FORCE_SELF or SHUTDOWN_GRACE_OVERRIDE or SHUTDOWN_RESTART
      else
        flags := SHUTDOWN_FORCE_SELF or SHUTDOWN_GRACE_OVERRIDE or SHUTDOWN_INSTALL_UPDATES or SHUTDOWN_NOREBOOT;

      // Befehl ausführen
      Win32CheckSuccess( InitiateShutdown( Computer, Msg, Time, flags, 0 ) );
    end
  else
    Win32Check( InitiateSystemShutdown( Computer, Msg, Time, Force, Reboot ) );

  {$WARN SYMBOL_PLATFORM ON}
end;

[Der schöne Günther]

Schau doch mal in die Doku zu InitiateShutdown , da steht es eigentlich ;-)

[Aviator]

Hast du die GPOs lokal über gpedit.msc eingetragen oder seid ihr in einer Domain wo das über den Server gemacht wird? Wenn letzteres zutrifft, welche Server-Version verwendet ihr?

[jaenicke]

Vielleicht ist die Beschreibung der Richtlinie ja tatsächlich ernst gemeint, und es funktioniert wirklich nur mit den beiden dort angegebenen Funktionen. Du verwendest ja eine andere (InitiateShutdown).

[TUX_der_Pinguin]

Zitat:

Zitat von Aviator (Beitrag 1362864)

Hast du die GPOs lokal über gpedit.msc eingetragen oder seid ihr in einer Domain wo das über den Server gemacht wird? Wenn letzteres zutrifft, welche Server-Version verwendet ihr?

Sowohl der Windows 7 als auch der Windows 10 Test Rechner sind nicht teil einer Domäne. Habe die GPOs lokal via gpedit.msc eingestellt.

[TUX_der_Pinguin]

Zitat:

Zitat von jaenicke (Beitrag 1362866)

Vielleicht ist die Beschreibung der Richtlinie ja tatsächlich ernst gemeint, und es funktioniert wirklich nur mit den beiden dort angegebenen Funktionen. Du verwendest ja eine andere (InitiateShutdown).

Das habe ich mir auch gedacht und war dann positiv überrascht das es unter Windows 7 doch ging. Tja ist das nun ein Bug bei Windows 7, das es funktioniert oder bei Windows 10, das es nicht funktioniert.

[TUX_der_Pinguin]

Zitat:

Zitat von Der schöne Günther (Beitrag 1362863)

Schau doch mal in die Doku zu InitiateShutdown , da steht es eigentlich ;-)

Vielleicht bin ich Blind aber was meint du? Ich habe ja auf Grund dieser Doku erst das Flag 'SHUTDOWN_NOREBOOT' gefunden.

[Der schöne Günther]

Zitat:

Zitat von TUX_der_Pinguin (Beitrag 1362874)

Vielleicht bin ich Blind aber was meint du? Ich habe ja auf Grund dieser Doku erst das Flag 'SHUTDOWN_NOREBOOT' gefunden.

Ich meine das hier:

Zitat:

Beginning with InitiateShutdown running on Windows 8, you must include the SHUTDOWN_HYBRID flag with one or more of the flags in this table to specify options for the shutdown.

Beginning with Windows 8, InitiateShutdown always initiate a full system shutdown if the SHUTDOWN_HYBRID flag is absent.

[Aviator]

Zitat:

Zitat von TUX_der_Pinguin (Beitrag 1362870)

Zitat:

Zitat von Aviator (Beitrag 1362864)

Hast du die GPOs lokal über gpedit.msc eingetragen oder seid ihr in einer Domain wo das über den Server gemacht wird? Wenn letzteres zutrifft, welche Server-Version verwendet ihr?

Sowohl der Windows 7 als auch der Windows 10 Test Rechner sind nicht teil einer Domäne. Habe die GPOs lokal via gpedit.msc eingestellt.

Hast du mal mit

Code:

gpresult /h gp.html

oder mit

Code:

rsop

geprüft, ob die GPOs überhaupt greifen? Damit wird eine HTML Datei erstellt in der alle Richtlinien aufgelistet sind.

Wenn du Mitglied einer Domain bist bin ich nicht sicher, ob die lokalen Richtlinien überhaupt noch greifen.

Falls nicht, müsstest du die Richtlinien mal am Server eintragen und dann die Tests ausführen. Alternativ kannst du das auch direkt am Sever in der Gruppenrichtlinienverwaltung testen indem du ein neues Gruppenrichtlinienergebnis Objekt erstellst und dann prüfst, ob die GPOs auf dem entfernten Rechner angewendet werden. Hierfür muss allerdings der RPC-Server auf dem zu prüfenden Rechner laufen und die Firewall muss entsprechend konfiguriert werden.

Welche Server Version von Windows Server verwendet ihr? 2008, 2008 R2, 2012, 2012 R2 oder 2016?

[TUX_der_Pinguin]

Zitat:

Zitat von Der schöne Günther (Beitrag 1362876)

Ich meine das hier:

Zitat:

Beginning with InitiateShutdown running on Windows 8, you must include the SHUTDOWN_HYBRID flag with one or more of the flags in this table to specify options for the shutdown.

Beginning with Windows 8, InitiateShutdown always initiate a full system shutdown if the SHUTDOWN_HYBRID flag is absent.

Ich habe mal die Flags um 'SHUTDOWN_HYBRID' erweitert, aber es funktioniert immer noch nicht. Wäre ja auch zu einfach gewesen.

Delphi-Quellcode:

      // Flags
      if Reboot
      then
        flags := SHUTDOWN_FORCE_SELF or SHUTDOWN_GRACE_OVERRIDE or SHUTDOWN_RESTART
      else
        flags := SHUTDOWN_FORCE_SELF or SHUTDOWN_GRACE_OVERRIDE or SHUTDOWN_HYBRID or SHUTDOWN_INSTALL_UPDATES or SHUTDOWN_NOREBOOT;