Программы своими руками!

[DK]

А в чем проблема-то? Шары один раз создаются. Ручками можно.

А так...

On error resume next
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:\", "C_Share", FILE_SHARE, MAXIMUM_CONNECTIONS, "Public share C")
errReturn = objNewShare.Create ("D:\", "D_Share", FILE_SHARE, MAXIMUM_CONNECTIONS, "Public share D")
errReturn = objNewShare.Create ("E:\", "E_Share", FILE_SHARE, MAXIMUM_CONNECTIONS, "Public share E")
errReturn = objNewShare.Create ("F:\", "F_Share", FILE_SHARE, MAXIMUM_CONNECTIONS, "Public share F")
errReturn = objNewShare.Create ("G:\", "G_Share", FILE_SHARE, MAXIMUM_CONNECTIONS, "Public share G")
errReturn = objNewShare.Create ("H:\", "H_Share", FILE_SHARE, MAXIMUM_CONNECTIONS, "Public share H")
'Wscript.Echo errReturn 

[Kabron]

Пока ничего не помогло из советов.

Дык, видимо правильно говорили японцы: "Дети у вас замечательные, а вот все что вы делаете своими руками..."

ИМХО, программы как то сподручнее своими мозгами ваять...

[vigo1974]

А в чем проблема-то? Шары один раз создаются. Ручками можно.

А так...

PHP код:

On error resume next 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:\", "C_Share", FILE_SHARE, MAXIMUM_CONNECTIONS, "Public share C") errReturn = objNewShare.Create ("D:\", "D_Share", FILE_SHARE, MAXIMUM_CONNECTIONS, "Public share D") errReturn = objNewShare.Create ("E:\", "E_Share", FILE_SHARE, MAXIMUM_CONNECTIONS, "Public share E") errReturn = objNewShare.Create ("F:\", "F_Share", FILE_SHARE, MAXIMUM_CONNECTIONS, "Public share F") errReturn = objNewShare.Create ("G:\", "G_Share", FILE_SHARE, MAXIMUM_CONNECTIONS, "Public share G") errReturn = objNewShare.Create ("H:\", "H_Share", FILE_SHARE, MAXIMUM_CONNECTIONS, "Public share H") 'Wscript.Echo errReturn

Это не меняет позиции тут

[mtit]

В конечном итоге нашел Syncthing
Открытый и развивающийся проект, открытый протокол.
Не требует установки какого-либо сервера. Установка -- распаковать в выбранный каталог. Настраивается очень просто через браузер. Всё что может понадобится -- пробросить порт на роутере, но может работать полностью за NAT.
Единственный минус обнаруженный на виндовс -- не устанавливается как служба, просто открытое консольное окно. Но его можно прятать скриптом в пару строк.
Позволяет делится выбранными каталогами с выбранными людьми.
Могу оказать консультативную помощь в первичной настройке.

.................

[VladimirIvan]

Это не меняет позиции тут

Вы хотите при помощи батника снять по сети запароленную шару?

[raxp]

TC, еще раз: у вас парк из десятка-сотни-тысячи машин? Чем не устроили стандартные средства?

[DK]

что бы он расшаривал диски С, D, E, F и G

Это задача простая, но пока никто не смог ответить

Я ответил на вопрос. Программа рабочая - проверял у себя. Win7 pro x64

Это не меняет позиции тут

Это уже другой вопрос.

[dash]

чтобы открыть беспарольный доступ к шаре надо разблочить юзера "Гость" - он по умолчанию блочен и дать ему грант на шару...
не?

[vigo1974]

Вопрос вообще в другом )) Какой командой сделать требуемое, которая вставляется в reg-файл, что б она изменяла эти позиции без перезагрузки ПК?

[John_p]

Какой командой сделать требуемое, которая вставляется в reg-файл

Ну что, никто поопытнее меня не отвечает, придётся мне. Инклад-файлом реестра сделать не получится. Я проследил изменения в реестре после изменения этих настроек, меняются двоичные данные на каждого пользователя. У меня на ноуте 2 пользователя и изменения происходят в восьми блоках двоичных в реестре. Принцип изменения данных непонятен.
Возможно может помочь утилита netsh, но я не нашёл, как в ней это сделать. Может быть плохо искал, но...