Вырубить комп!

.386
.model  flat, stdcall
option  casemap:none
include    \myasm\include\windows.inc
include    \myasm\include\kernel32.inc
includelib \myasm\lib\kernel32.lib
include    \myasm\include\user32.inc
includelib \myasm\lib\user32.lib
include    \myasm\include\advapi32.inc
includelib \myasm\lib\advapi32.lib

FShutdownSystem proto
GetVersionEx    proto :DWORD
ShutdownSystem  proto
GetRights       proto
.data
    tkp        TOKEN_PRIVILEGES<>
    sys        OSVERSIONINFO<>    
    SeShut     DB "SeShutdownPrivilege"
.code
start:
invoke FShutdownSystem
invoke ExitProcess,0
FShutdownSystem proc
    mov sys.dwOSVersionInfoSize,sizeof OSVERSIONINFO
    invoke GetVersionEx,offset sys
    .if sys.dwPlatformId==2
        INVOKE GetRights
        invoke ExitWindowsEx,EWX_SHUTDOWN or EWX_FORCE or EWX_POWEROFF,0
    .else
        invoke ExitWindowsEx,EWX_SHUTDOWN or EWX_FORCE or EWX_POWEROFF,0
    .ENDIF

    mov eax,FALSE
    ret
FShutdownSystem Endp

ShutdownSystem proc
    mov sys.dwOSVersionInfoSize,sizeof OSVERSIONINFO
    invoke GetVersionEx,offset sys
    .if sys.dwPlatformId==2
        INVOKE GetRights
        invoke ExitWindowsEx,EWX_SHUTDOWN or EWX_POWEROFF,0
    .else
        invoke ExitWindowsEx,EWX_SHUTDOWN or EWX_POWEROFF,0
    .ENDIF

    mov eax,FALSE
    ret
ShutdownSystem Endp
GetRights proc
    LOCAL pro:DWORD
    LOCAL hto:DWORD
    push ecx
    invoke GetCurrentProcess
    mov ecx,eax
    invoke OpenProcessToken,ecx,TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,addr hto
    mov ecx,eax
    jecxz erro
    invoke LookupPrivilegeValue,0,offset SeShut,offset tkp.Privileges[0].Luid
    mov ecx,eax
    jecxz erro
    mov tkp.PrivilegeCount,1
    mov tkp.Privileges[0].Attributes,SE_PRIVILEGE_ENABLED
    invoke AdjustTokenPrivileges,hto,0,addr tkp,0,0,0
    mov ecx,eax
    jecxz erro
    pop ecx
    xor eax,eax
    inc eax
    ret
erro:    
    xor eax,eax
    ret
GetRights Endp
end start