[solved] COM need help

My code work on Windows 7
Code:
format PE64 GUI 5.0
include 'C:\fasmw17316\include\win64a.inc'
entry start
struc GUID def
 {
   match d1-d2-d3-d4-d5, def
    \{
      .Data1 dd 0x\#d1
      .Data2 dw 0x\#d2
      .Data3 dw 0x\#d3
      .Data4 db 0x\#d4 shr 8,0x\#d4 and 0FFh
      .Data5 db 0x\#d5 shr 40,0x\#d5 shr 32 and 0FFh,0x\#d5 shr 24 and 0FFh,0x\#d5 shr 16 and 0FFh,0x\#d5 shr 8 and 0FFh,0x\#d5 and 0FFh
    \}
 }
interface               IMMDeviceEnumerator,\
                                QueryInterface,\
                                AddRef,\
                                Release,\
                                EnumAudioEndpoints,\
                                GetDefaultAudioEndpoint


interface               IMMDevice,\
                                QueryInterface,\
                                AddRef,\
                                Release,\
                                Activate,\
                                OpenPropertyStore,\
                                GetId,\
                                GetState

interface IAudioMeterInformation,\
                        QueryInterface,\
                                AddRef,\
                                Release,\
                                GetPeakValue



section '.idata' import data readable writeable
        library kernel32,'KERNEL32.DLL',\
                user32,'USER32.DLL',\
                ole32,'ole32.dll'

        import  kernel32,\
                ExitProcess,'ExitProcess'
        import  user32,\
                MessageBox,'MessageBoxA'

        import  ole32,\
                CoInitialize,'CoInitialize',\
                CoInitializeEx,'CoInitializeEx',\
                CoCreateInstance,'CoCreateInstance',\
                CoUninitialize,'CoUninitialize'

section '.data' data readable writeable 
        CLASS_MMDeviceEnumerator        GUID BCDE0395-E52F-467C-8E3D-C4579291692E
        IID_IMMDeviceEnumerator         GUID A95664D2-9614-4F35-A746-DE8DB63617E6
        IID_IAudioMeterInformation          GUID C02216F6-8C67-4B5B-9D00-D008E73E0064
                        dq 0
        pMeterInfo      dq ?
        peak            dd ?
        ee dq 40 dup (0)
        CLSCTX_ALL = 0x00000007
        CLSCTX_INPROC_SERVER = 0x1
        eConsole = 0
        eRender = 0
        
        pEnumerator     IMMDeviceEnumerator
        pDevice         IMMDevice
macro testNull chP {local l1
      cmp qword [chP],0
      jnz l1
      invoke MessageBox,0,`chP#" = NULL !",0,0
      jmp ExitToWin
l1:
      }
section '.code' code readable writeable executable
start:
        sub             rsp,8
        mov rax,rrrr
        ;invoke          CoInitialize,0
        COINIT_MULTITHREADED = 0
        invoke  CoInitializeEx, NULL, COINIT_MULTITHREADED

        invoke          CoCreateInstance,CLASS_MMDeviceEnumerator,0,\
                                        dword CLSCTX_INPROC_SERVER,IID_IMMDeviceEnumerator,\
                                        pEnumerator

        testNull        pEnumerator
        invoke MessageBox,0,"0",0,0

rrrr:
        mov dword [ee+40],1
        comcall         [pEnumerator],IMMDeviceEnumerator,GetDefaultAudioEndpoint,dword 0,dword 0 ,pDevice
        invoke MessageBox,0,"2",0,0
        testNull        pDevice
        mov             rbp,[pDevice]
        invoke MessageBox,0,"3",0,0

        comcall         rbp,IMMDevice,Activate,IID_IAudioMeterInformation,dword CLSCTX_ALL, 0,pMeterInfo
        testNull        pMeterInfo
        invoke MessageBox,0,"3",0,0
        mov             rbx,[pMeterInfo]
        comcall         rbx,IAudioMeterInformation,GetPeakValue,peak
        invoke MessageBox,0,"4",0,0
        cominvk         pDevice,Release
        cominvk         pEnumerator,Release
ExitToWin:
        invoke          CoUninitialize
        invoke          ExitProcess,0