Сорс код за шарване на папка!

Автор	Съобщение
dreven Чет, 19.02.09, 17:27	Търся сорс (MS-DOS,VisualBasic,VBS), който да може да шарне папка само за четене от локалната мрежа. Използвах Bat файл с примерно съдържание: Net share perl=c:\perl Но този сорс работи само, ако се стартира на ХР без сървизпак, а иначе шарва папката, но като се опитам да я отворя от друг компютър ми казва, че нямам права.
	Отговор  За печат
galkamalka Чет, 19.02.09, 18:33	Може би трябва да се "заядеш" със cacls-а: Md G:folder Net Share MyShare=G:folder Cacls G:folder /e /r Everyone Cacls G:folder /e /g Everyone:C или нещо такова... редактиран от galkamalka на 19.02.09 18:34
	Отговор  За печат
anonymous Чет, 19.02.09, 18:43	NET/? RMTSHARE от ftp.microsoft.com RMTSHAR/? за опции
	Отговор  За печат
phrozencrew Чет, 19.02.09, 19:26	Ето нещо на VBS: Const FILE_SHARE = 0 Const MAXIMUM_CONNECTIONS = 25   strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")   Set objNewShare = objWMIService.Get("Win32_Share")   errReturn = objNewShare.Create _ ("C:\Finance", "FinanceShare", FILE_SHARE, _ MAXIMUM_CONNECTIONS, "Public share for the Finance group.") Има доста сорсове за менажиране на директории тук: http://www.activexperts.com/activmonitor/windowsmanagement/scripts/storage/folders/ ПС: Като се замисля, това може и да не проработи, защото не съм сигурен какви права ще даде на папката. А и не е сигурно дали някоя "оптимизираща програма" не е спряла някой важен сервиз за шарване. редактиран от phrozencrew на 19.02.09 19:34
	Отговор  За печат
dreven Чет, 19.02.09, 20:07	phrozencrew, благодаря за скрипта, работи перфектно! Остава само да го прегледам по внимателно, за да видя как да направя папката шарната само за четене!
	Отговор  За печат
phrozencrew Чет, 19.02.09, 20:43	Мисля, че трябва да почовъркаш API функцията AddDirectorySecurity, като и зададеш параметър: FileSystemRights.Read
	Отговор  За печат
dreven Чет, 05.03.09, 21:09	Решението на проблема за превръщане на вече шарната папка в Readonly, намерих в използването на следното ехеRMTSHARE.rar , което го стартирам,чрез функцията Shell във Visual Basic 6.0. Пример: Shell "cmd /c C:\RMTSHARE.exe \\ИмеНаКомпютъра\ШарнатаПапка /grant everyone:r"                                        Благодаря на всички, които писаха по темата!
	Отговор  За печат

Коментар