درست کردن پوشه مشترک و مپ کردن آن

[parsakz]

با سلام
میخواهم با وبی نت2005 با کد روی سرور 2003 یک پوشه مشترک با اجازه یک کاربر تعریف شده در سرور2003 درست کنم و سپس آنرا روی کامپیوتر کاربر مپ کنم . آیا کسی تجربه ای دارد؟ با تشکر

[saeed_rezaei]

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

Public Declare Function WNetAddConnection2 Lib "mpr.dll" Alias "WNetAddConnection2A" _

( ByRef lpNetResource As NETRESOURCE, ByVal lpPassword As String, _

ByVal lpUserName As String, ByVal dwFlags As Integer) As Integer

 

     Public Declare Function WNetCancelConnection2 Lib "mpr" Alias "WNetCancelConnection2A" _

(ByVal lpName As String, ByVal dwFlags As Integer, ByVal fForce As Integer) As Integer

 

        <StructLayout(LayoutKind.Sequential)> _

    Public Structure NETRESOURCE

            Public dwScope As Integer

            Public dwType As Integer

            Public dwDisplayType As Integer

            Public dwUsage As Integer

            Public lpLocalName As String

            Public lpRemoteName As String

            Public lpComment As String

            Public lpProvider As String

        End Structure

 

    Public Const ForceDisconnect As Integer = 1

    Public Const RESOURCETYPE_DISK As Long = &H1

 

    Public Function MapDrive(ByVal DriveLetter As String, ByVal UNCPath As String) As Boolean

 

            Dim nr As NETRESOURCE

            Dim strUsername As String

            Dim strPassword As String

 

            nr = New NETRESOURCE

            nr.lpRemoteName = UNCPath

            nr.lpLocalName = DriveLetter & ":"

            strUsername = Nothing '(add parameters to pass this if necessary)

            strPassword = Nothing '(add parameters to pass this if necessary)

            nr.dwType = RESOURCETYPE_DISK

 

            Dim result As Integer

            result = WNetAddConnection2(nr, strPassword, strUsername, 0)

 

            If result = 0 Then

                Return True

            Else

                Return False

            End If

        End Function

 

    Public Function UnMapDrive(ByVal DriveLetter As String) As Boolean

        Dim rc As Integer

            rc = WNetCancelConnection2(DriveLetter & ":", 0, ForceDisconnect)

 

               If rc = 0 Then

                Return True

            Else

                Return False

            End If

 

        End Function

 

البته یه راه حل دیگه هم هستش.
شما می تونید از طریق command line هم یک دایرکتوری خالی ایجاد کنید، هم می تونید اون رو به اشتراک بگذارید و هم می تونید اونو map یا dkc کنید. من خودم این راه حل رو ترجیح می دم.

[saeed_rezaei]

اما از طریق خط فرمان از کدهای زیر استفاده کنید.

ساخت دایرکتوری

FileIO.FileSystem.CreateDirectory(مسیر و نام دایرکتوری که می خواید ایجاد کنید)

به اشتراک گذاری پوشه

Process.Start("net", "share " & txt_sharename.Text & "=" & txt_createdirectory.Text & " /UNLIMITED")

که در دستور بالا، txt_sharename نامی است که به فولدر نسبت داده می شود. و txt_createdirectory آدرس واقعی فولدری است که می خواهیم به اشتراک بگذاریم.

و با دستور زیر مپ می کنیم.

process.start ("net" ,"use " & mapname & " \\computername\sharedname " & password & " /user " & username )

[Microsoft.net]

بعضی وقتها بعد از map کردن و اجرا کردن فایل از روی کلاینتها پیغام خطا از security میده در صورتی که روی سرور نمیده ، مخصوصا وقتی با رجیستری کار کرده باشی تو برنامت ، کسی میدونه باید چی کار کرد ؟!

[parsakz]

مشکلی که من داشتم همین بود وقتی میخواستم به پوشه مشترک وصل شوم خطای امنیتی میداد لذا میخواهم این تضاد را از طریق مپ کردن پوشه حل کنم چون در هاردکد اینکار انجام داده ام . اگر به نتیجه جدید رسیدم حتما شما را در جریان میگذارم
پارسا

[Amir_Sharif]

باسلام
اگه بخوام پوشه اشتراک گذاری شده قابلیت دستکاری نداشته باشه باید چه تغییری انجام بدم؟

[Amir_Sharif]

با سلام
چطوری می تونم پوشه shar شده را از shar در بیارم.
با تشکر

[saeed_rezaei]

سلام
برای اینکه یه پوشه رو از حالت share خارج کرد بایستی اون رو با استفاده از سوویچ /delete حذف کرد
به کد زیر نگاه کنید:

process.start ("net" ," share " & sharedfoldername & " /delete")