重启Windows2000/NT系统

RebootsaWindows2000PC.ManyexamplesshelltothekernelandjustkillthePC.Thisdoesitproperlyandtakesintoaccountauserprivilages.
　　
　　'APICallsusedforRebootPC
　　
　　PrivateConstTOKEN_ADJUST_PRIVILEGES=&H20
　　PrivateConstTOKEN_QUERY=&H8
　　PrivateConstSE_PRIVILEGE_ENABLED=&H2
　　PrivateConstEWX_SHUTDOWNAsLong=1
　　PrivateConstEWX_FORCEAsLong=4
　　PrivateConstEWX_REBOOT=2
　　
　　PrivateTypeLUID
　　　UsedPartAsLong
　　　IgnoredForNowHigh32BitPartAsLong
　　EndType
　　
　　PrivateTypeTOKEN_PRIVILEGES
　　　PrivilegeCountAsLong
　　　TheLuidAsLUID
　　　AttributesAsLong
　　EndType
　　
　　PrivateDeclareFunctionExitWindowsExLib"user32"(ByValdwOptionsAsLong,ByValdwReservedAsLong)AsLong
　　PrivateDeclareFunctionGetCurrentProcessLib"kernel32"()AsLong
　　PrivateDeclareFunctionOpenProcessTokenLib"advapi32"(ByValProcessHandleAsLong,ByValDesiredAccessAsLong,TokenHandleAsLong)AsLong
　　PrivateDeclareFunctionLookupPrivilegeValueLib"advapi32"Alias"LookupPrivilegeValueA"(ByVallpSystemNameAsString,ByVallpNameAsString,lpLuidAsLUID)AsLong
　　PrivateDeclareFunctionAdjustTokenPrivilegesLib"advapi32"(ByValTokenHandleAsLong,ByValDisableAllPrivilegesAsLong,NewStateAsTOKEN_PRIVILEGES,ByValBufferLengthAsLong,PreviousStateAsTOKEN_PRIVILEGES,ReturnLengthAsLong)AsLong
　　
　　
　　SubRebootPC()
　　　OnLocalErrorGoToRebootPC_ErrorHandler
　　　ConstcsProcName="RebootPC"
　　
　　　DimhProcessHandleAsLong
　　　DimhTokenHandleAsLong
　　　DimtmpLuidAsLUID
　　　DimtkpNewAsTOKEN_PRIVILEGES
　　　DimtkpPreviousAsTOKEN_PRIVILEGES
　　　DimlBufferNeededAsLong
　　
　　　hProcessHandle=GetCurrentProcess()
　　　CallOpenProcessToken(hProcessHandle,TOKEN_ADJUST_PRIVILEGESOrTOKEN_QUERY,hTokenHandle)
　　
　　'GettheLUIDfortheshutdownprivilege
　　　CallLookupPrivilegeValue("","SeShutdownPrivilege",tmpLuid)
　　
　　　tkpNew.PrivilegeCount=1'Oneprivilegetoset
　　　tkpNew.TheLuid=tmpLuid
　　　tkpNew.Attributes=SE_PRIVILEGE_ENABLED
　　
　　'Enabletheshutdownprivilegeintheaccesstokenofthisprocess.
　　　lBufferNeeded=0
　　　CallAdjustTokenPrivileges(hTokenHandle,False,tkpNew,Len(tkpPrevious),tkpPrevious,lBufferNeeded)
　　
　　'ForceaReboot(nooptiontosavefilestocancelout)
　　　CallExitWindowsEx(EWX_FORCEOrEWX_REBOOT,&HFFFF)
　　
　　　ExitSub
　　RebootPC_ErrorHandler:
　　　CallRaiseError(csModName,csProcName,Err.Number,Err.Description)
　　EndSub->