Netshareadd - отказано в доступе

[RG]

Private Sub Command1_Click()
nPath = StrConv("Share", vbUnicode)
ShareRemark = StrConv("Remark for new share", vbUnicode)
SharePath = StrConv("C:\Share", vbUnicode)
SI502.shi502_current_uses = 0
SI502.shi502_max_uses = 10
SI502.shi502_netname = nPath
SI502.shi502_path = SharePath
SI502.shi502_permissions = 127
SI502.shi502_remark = ShareRemark
SI502.shi502_reserved = 0
SI502.shi502_security_descriptor = Security
SI502.shi502_type = STYPE_DISKTREE

nerr = NetShareAdd(0&, 2, SI502, ret)

End Sub
Открываю папку на компе c XP. nerr возвращает 0. Захожу с другого (XP) - отказано в доступе, хотя со своего через сетевое окружение захожу без проблем. Подскажите, пожалуйста, в чем дело?

[RayShade]

В пермиссиях. Посмотри свойства папки, кому она расшарена и как. И NTFS пермиссии на папку тоже посмотри.

[RG]

Если я правильно понял, доступ к папке разрешен пользователям только моего компьютера, но разве ...permissions = ACCESS_ALL не устанавливает доступ всем пользователям сети? Папку другие пользователи видят, а войти не могут ...

[RayShade]

Есть 2 типа пермиссий. На файловую систему и на шару. Проверь их оба.