Printable View
با سلام
در کدوم قسمت از تنظیمات ویندوز باید برم و تنظیمش کنم که مثلا:
دسترسی سیستم شماره 1 فقط برای سیستم شماره 2 به صورت full باشه.و نه برای همه سیستمها.
یعنی اگه در آدرسبارم نوشتم \\System1\c: بتونم بدون شیر بودن درایو c ، به صورت کامل در درایوها بچرخم.؟
domain هست یا work group
workgroup هستیم برادر.
تو ورک گروپ خیلی سخت هست باید روی تمام سیستم ها این تنظمیات رو فعال کنی چند تا سیستم داری؟
تو سیستم شماره یک یه نام و رمز درست کن دقیقاً مثل همونی که از سیستم شماره دو وارد می شوی یعنی هر نام و رمزی که در سیستم شما دو داری و باهاش وارد می شی و در سیستم شماره یک بساز
حالا برو به تما قسمت های سیستم مثل داریوهات دسترسی کامل بده به اون کاربر
در ضمن تیک Use sample sharing تو قسمت فولدر آپشن هم تیک نداشته باشد
ممنون.
منظورت از اینکه میگی یه نام و رمز درست کن : اینه که یه یوزر و پسورد درست کنم؟
اره درست هست منظورم user & pass هست باید روی سیستم شماره یک همون user & pass رو درست کنی که سیستم دوم در حال حاظر داره باهاش کار می کنه ، البته این کاری که من می گم یه میانبر هست می تونی هر نام و رمزی درست کنی اما این طوری باعث می شه که سیستم دوم هیچی user & pass تایپ نکنه
سلام
اگه admin هستی میتونی از share پنهان استفاده کنی در ویندوز به طور پیش فرض البته تو شبکه فعاله مثلا بعد از نام سیستم بزن $D اون وقت میتونی کل درایو سیستم رو بدون اینکه کسی بدونه چک کنی اگه این امکان فعال نبود من یه برنامه نوشتم که میتونی اونو اجرا کنی تا این قابلیت واسط فعال شه در ضمن این برنامه کارهای زیادی تو شبکه واسط انجام بده
موفق باشی
ممنون از شما.
اگه براتون مقدوره اون کلیدهایی رو که در 3 آپشن آخر تغییر میدید رو اینجا بزارید تا بتونم در برنامم بگنجونمش.
تشکر.
بله جناب چرا نمیشه کامپوننت که هستش اینم کلید هانقل قول:
نوشته شده توسط Delphi-7
MACHINE
SYSTEM\CurrentControlSet\Services\lanmanserver\par ameters
AutoShareServer
CheckedValue
AutoShareWks
به همون ترتیب برنامه
موفق باشی
ممنون.
این کلید یکی از آپشن هاست.
اون دو تا چی شد؟
با سلام
دوست عزیز جناب delphi-7 تو کلید parameters اون سه گزینه رو از نوع DWORD ایجاد کن همین هر سه تا که مد نظرته تو PARAMETERS ایجاد میشه
LOAD
'AutoShareServer
Reg3.ValueName = "AutoShareServer"
If Check10.Value = 1 Then
Reg3.Data = 0
Reg3.SetValue
Else
Reg3.DeleteValue
End If
'SHOW HIDEN FILE
Reg4.ValueName = "CheckedValue"
If Check11.Value = 1 Then
Reg4.Data = 1
Reg4.SetValue
Else
Reg4.DeleteValue
End If
'AutoShareWks
Reg3.ValueName = "AutoShareWks"
If Check12.Value = 1 Then
Reg3.Data = 0
Reg3.SetValue
Else
Reg3.DeleteValue
End If
برای رویداد کلیک
'AutoShareServer
Reg3.ValueName = "AutoShareServer"
If Reg3.GetValue <> "" Then
Check10.Value = 1
End If
'SHOW HIDEN FILE
Reg4.ValueName = "CheckedValue"
If Reg4.GetValue <> "" Then
Check11.Value = 1
End If
'AutoShareWks
Reg3.ValueName = "AutoShareWks"
If Reg3.GetValue <> "" Then
Check12.Value = 1
End If