دسترسی به یک فایل روی کلاینت یا سرور با داشتن آی پی و یوزر نیم و پسورد

[nazemmazem]

سلام

کدی وجود دارد که با داشتن یوزر نیم و پسورد و آی پی به فایلی در یک سیستم دیگر دسترسی داشته باشم بدون اینکه فولدر را share کنم؟

یا فولدر را فقط برای یک کاربر خاص share کنم و بقیه کاربران با داشتن پسورد و یوزنیم آن کاربر به آن دسترسی داشته باشند

برنامه یک نرم افزار کنترل مدارک است. با حدود مثلا دویست تا مدرک و ده پانزده تا کاربر. که دسترسی به مدارک برای هر یوزر در داخل برنامه داده شده است
برای اینکه هر کاربر فقط بتواند مدارکی که داخل برنامه به او دسترسی اش داده شده را ببیند و به بقیه مدارک دسترسی نداشته باشد چه راه حلی وجود دارد؟
ممنونم.

[nazemmazem]

من این سئوال رو توی یک تاپیک دیگه پرسیدم وجواب خوبی گرفتم
اینجا (http://barnamenevis.org/forum/showthread.php?t=222608)



نقل قول:
نوشته شده توسط mrmirlohi http://barnamenevis.org/forum/images/buttons/viewpost.gif (http://barnamenevis.org/forum/showthread.php?p=1014713#post1014713)
در پنجره RUN ويندوز آدرس آي پي كامپيوتر مقابل را تايپ كنيد آخر آدرس نام درايو كامپيوتر مقابل را به همراه كاراكتر$ تايپ كنيد اينتر زده و يوزرنيم و پسورد كامپيوتر مقابل را وارد كنيد اكنون شما به كل درايو او تسلط داريد بدون اينكه متوجه شود!
به تصوير مراجه شود
موفق باشيد

كاملا صحيح است. به طور معمول ريشه همه درايوهاي هر كامپيوتر با نام "$اسم درايو" به اشتراك گذاشته شده است. البته برخي نرم افزارها مثل TuneUp اين كار را يك ريسك مي دانند و شما را به پاك كردن حالت اشتراك آن توصيه مي كنند.
ضمنا پوشه "$Admin" نيز به پوشه "c:\windows" اشاره دارد كه آن هم از پوشه هايي است كه به طور پيش فرض به اشتراك گذاشته شده است.

لذا شما مي توانيد با توجه به پست پنجم اين تاپيك
نقل قول:
http://barnamenevis.org/forum/showthread.php?t=153972
براحتي مي توانيد با برنامه نويسي درايوي را بدون نياز به share شدن آن بدست بگيريد.

توی این تاپیک کاملا در این باره صحبت شده
و کد های VB رو زمحت کشیدن نوشتن
کسی هست که معادلش رو توی اکسس به من بده؟




این با دوخط کد ساده :
کد:






Shell ("net use X: \\Server\Share /user:Administrator password
Shell ("net use \\Server\Share /savecred /persistent:yes")






اینم با API :

کد:

Option Explicit
Private Const CONNECT_UPDATE_PROFILE = &H1
Private Const RESOURCE_CONNECTED As Long = &H1&
Private Const RESOURCE_GLOBALNET As Long = &H2&
Private Const RESOURCETYPE_DISK As Long = &H1&
Private Const RESOURCEDISPLAYTYPE_SHARE& = &H3
Private Const RESOURCEUSAGE_CONNECTABLE As Long = &H1&
Private Declare Function WNetAddConnection2 Lib "mpr.dll" _
Alias "WNetAddConnection2A" (lpNetResource As NETCONNECT, _
ByVal lpPassword As String, ByVal lpUserName As String, _
ByVal dwFlags As Long) As Long
Private Type NETCONNECT
dwScope As Long
dwType As Long
dwDisplayType As Long
dwUsage As Long
lpLocalName As String
lpRemoteName As String
lpComment As String
lpProvider As String
End Type


Public Function MapDrive(LocalDrive As String, _
RemoteDrive As String, Optional Username As String, _
Optional Password As String) As Boolean
'Example:
'MapDrive "Q:", "\\RemoteMachine\RemoteDirectory (file:///)", _
'"MyLoginName", "MyPassword"
Dim NetR As NETCONNECT
NetR.dwScope = RESOURCE_GLOBALNET
NetR.dwType = RESOURCETYPE_DISK
NetR.dwDisplayType = RESOURCEDISPLAYTYPE_SHARE
NetR.dwUsage = RESOURCEUSAGE_CONNECTABLE
NetR.lpLocalName = Left$(LocalDrive, 1) & ":"
NetR.lpRemoteName = RemoteDrive
MapDrive = (WNetAddConnection2(NetR, Username, Password, _
CONNECT_UPDATE_PROFILE) = 0)

End Function

[nazemmazem]

کسی برای تبدیل این کدها کمک نمیکند ؟