Программистские изыски на коленке - эсклюзив
Самый нужный и очень трудный скрипт (хоть и небольшой) - это автоматическое подключение расшаренных папок на ДРУГОМ компьютере к вашему ( с отображением в МОЙ КОМПЬЮТЕР всместе со всеми дисками какие есть в системе).
И так делаем два файла - один скрипт , другой список подсоединяемых дисков, буквы для дисков нам не нужны так как скрипт автоматически отыскивает свободные буквы и подключает эти расшаренные папки как положено с буквой , названием и возможностью посмотреть сколько осталось на этом диске свободного пространства - т.е. точно также как физического диска.
Имейте ввиду - скрипт это моя интеллектуальная собственность и перепечатывать можно только с указанием откуда ( с Пикабу) взяли.
Скрипт (в блокноте с расширением .vbs) должен лежать в одной папке с списком, запускаться от имени администратора :
On Error Resume Next
Dim WshNetwork
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set oDrives = WshNetwork.EnumNetworkDrives
For Each Drive In oDrives
On Error Resume Next
WSHNetwork.RemoveNetworkDrive Drive, TRUE, TRUE
next
WScript.Sleep 2000
Set wss = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set foo = fso.OpenTextFile("disk.txt", 1)
Dim str0 : str0 = foo.ReadLine
Do While Not foo.AtEndOfStream
Dim str : str = foo.ReadLine
Dim str1 : str1 = foo.ReadLine
Dim str2 : str2 = foo.ReadLine
WScript.Sleep 500
Set oShell = CreateObject("Shell.Application")
WshNetwork.MapNetworkDrive AvailableDriveLetter,str, ,str1,str2
Set oShell = CreateObject("Shell.Application")
WScript.Sleep 500
str = foo.ReadLine
oShell.NameSpace(AvailableDriveLetter2).Self.Name = str
WScript.Sleep 500
loop
'-------------------------------------------------
Function AvailableDriveLetter
With CreateObject("Scripting.FileSystemObject")
For i = Asc("D") To Asc("Z")
If Not .DriveExists(Chr(i)) Then
AvailableDriveLetter = Chr(i) & ":"
AvailableDriveLetter2 = AvailableDriveLetter
Exit For
End If
Next
End With
End Function
А теперь пример как пишется список (в том же блокноте - обычный текст с именем disk.txt), внимательнее - первая строка является комментарием (убирать её не следует , а так пишите что хотите туда.) , далее идет адрес,имя пользователя (если вы используете папку с разрешением ВСЕ - то пишите что хотите в графу) , пароль (точно такие же требования как к имени пользователя) , ИМЯ диска - как называться ваш подключенный диск будет.
Вот пример:
:путь - логин - пароль - имя ресурса в Мой компьютер
\\192.168.0.10\f
2-ПК
777777
NEWtorrent
\\nasmini\P1_A_4
2-ПК
777777
NASMINI30
Далее как на стороне другого ПК расшарить папку - выбираем папку (или диск - но лучше всеже папку) , правая клавиша мыши - свойства - Доступ -
расширенная настройка -галка на Открыть общий доступ к этой папке (далее если хотите обзывайте имя общего ресурса - но он не нужен - мы сами скриптом переименуем) - жмем ок. Лезем тамже в вкладку Безопасность - Кнопка Изменить - Кнопка Добавить - Кнопка Дополнительно - Кнопка Поиск , и в открывшемся списке ищем пользователя под именем ВСЕ - тыкаем в него - Кнопка ОК-Опять Кнопка ОК - В списке Группы или Пользователи находи нашего Все и тыкнув внизу ставим галочки на всех пунктах столбца Разрешить ( мы ему все разрешаем ). - тыкаем кнопку Ок - И закрываем окно кнопкой Закрыть.
После этого коп надо перезагрузить и на данном компе появляется расшаренная папка с полными правами заходить кому хошь и что хошь в ней делать - что как раз и отлично в домашней сети в которой вы создали сетевое хранилище таким образом на старом компе, и с рабочего компа на максимальной скорости можете пользоваться этими подключениями как дополнительными дисками.
Чтоб после этого воспользоваться скриптом - вам надо знать СТАТИЧЕСКИЙ адрес вашего сетевого хранилища (таго самого компа который расшарили ) и поставить ярлык с скрипта на рабочий столь или а автозагрузку. И радоваться подключению к своему новому своими ручками собранному сетевому хранилищу .
Далее жду вопросов.