Hi moinky ...

Ich kann zwar kein VB, hier aber ein Codeschnipsel für Delphi,
vielleicht kannst Du es in VB portieren:

-----------------------------------------------------------------
function TForm1.WindowsDowner(flag:word): Boolean;
var
VInfo: TOSVersionInfo;
hToken: THandle;
tp: TTokenPrivileges;
dw: DWord;
begin
Result:=false;
VInfo.dwOSVersionInfoSize:=SizeOf(VInfo);
GetVersionEx(VInfo);
if VInfo.dwPlatformId = VER_PLATFORM_WIN32_NT then
begin // WinNT/Win2k
OpenProcessToken(GetCurrentProcess(),
TOKEN_ADJUST_PRIVILEGES, hToken);
LookupPrivilegeValue(nil,'SeShutdownPrivilege',
tp.Privileges[0].Luid);
tp.PrivilegeCount:=1;
tp.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED;
dw:=0;
AdjustTokenPrivileges(hToken, False, tp, 0,
PTokenPrivileges(nil)^, dw);
CloseHandle(hToken);
Result:=ExitWindowsEx(flag, 0);
end else
begin // Win95/98
Result:=ExitWindowsEx(flag, 0);
end;
end;
-----------------------------------------------------------------

Aufrufen kannst Du dann die Funktion so:
-----------------------------------------------------------------
WindowsDowner(EWX_POWEROFF Or EWX_FORCE);
-----------------------------------------------------------------

Gruß Ojo

@ MacGyver
Also bei funktioniert diese Funktion unter Win XP einwandfrei.
Kann mir nicht vorstellen, das es unter 2k nicht klappen sollte,
da ich diesen Codeschnipsel unter der Rubrik "Wie fahre ich Win 2k
runter" gefunden habe. Aber komische Zufälle gibt es immer wieder.
Nun frage ich mich warum 2k diesen API Aufruf ignoriert aber unter
XP funktioniert ! ???

Gruß Ojo

Edit: Habe hier noch ein VB Beispiel gefunden, benutzt aber auch für
Win 2000 diesen "ExitWindowsEx" API Aufruf.

http://www.planet-source-code.com/vb/scr…=11156&lngWId=1