!include LogicLib.nsh
!define CSIDL_NETWORK 0x0012
!define CSIDL_NETHOOD 0x0013
!define CSIDL_COMPUTERSNEARME 0x003d
!define BIF_BROWSEFORCOMPUTER 0x00001000
system::call 'shell32::SHGetFolderLocation(i $hwndparent,i ${CSIDL_NETWORK},i0,i0,*i.r3)i.r0'
${If} $0 <> 0
    StrCpy $3 0
${EndIf}
system::call '*(&t257)i.r2'
system::call '*(i $hwndparent,i $3,ir2,i,i ${BIF_BROWSEFORCOMPUTER},i,i,i)i.r0'
system::call 'shell32::SHBrowseForFolder(i r0)i.r1'
${If} $3 <> 0
    system::call 'Shell32::ILFree(i $3)'
${EndIf}
${If} $1 <> 0
    system::call 'Ole32::CoTaskMemFree(ir1)'
    system::call '*$2(&t257.r0)'
${Else}
    StrCpy $0 "user cancel"
${EndIf}
system::free $0

system::free $2
messagebox mb_ok $0