在WIN98下可以通过RUNDLL32.EXE USER.EXE EXITWINDOWS 命令以及计划任务来实现定时关机,但在WIN 2000 下却不能,WIN200应如何实现呢???

Question

delphi 中是这样的  把它改为vb就可以了
var
hToken :thandle;
tkp,ptkpTOKEN_PRIVILEGES;
i:dword;
/////////
OpenProcessToken(GetCurrentProcess(),
        TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken);
tkp.PrivilegeCount := 1;
LookupPrivilegeValue(Nil,'SeShutdownPrivilege',
       tkp.Privileges[0].Luid);tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
AdjustTokenPrivileges(hToken,FALSE,tkp,sizeof(ptkp),ptkp,i);
CloseHandle(hToken);
ExitWindowsEx(EWX_reboot, 0);