GarfildNewNEW

Программистские изыски на коленке - эсклюзив⁠⁠

Самый нужный и очень трудный скрипт (хоть и небольшой) - это автоматическое подключение расшаренных папок на ДРУГОМ компьютере к вашему ( с отображением в МОЙ КОМПЬЮТЕР всместе со всеми дисками какие есть в системе).

И так делаем два файла - один скрипт , другой список подсоединяемых дисков, буквы для дисков нам не нужны так как скрипт автоматически отыскивает свободные буквы и подключает эти расшаренные папки как положено с буквой , названием и возможностью посмотреть сколько осталось на этом диске свободного пространства - т.е. точно также как физического диска.

Имейте ввиду - скрипт это моя интеллектуальная собственность и перепечатывать можно только с указанием откуда ( с Пикабу) взяли.

Скрипт (в блокноте с расширением .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

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

End With

End Function

А теперь пример как пишется список (в том же блокноте - обычный текст с именем disk.txt), внимательнее - первая строка является комментарием (убирать её не следует , а так пишите что хотите туда.) , далее идет адрес,имя пользователя (если вы используете папку с разрешением ВСЕ - то пишите что хотите в графу) , пароль (точно такие же требования как к имени пользователя) , ИМЯ диска - как называться ваш подключенный диск будет.

Вот пример:

:путь - логин - пароль - имя ресурса в Мой компьютер

\\192.168.0.10\f

2-ПК

777777

NEWtorrent

\\nasmini\P1_A_4

2-ПК

777777

NASMINI30

Далее как на стороне другого ПК расшарить папку - выбираем папку (или диск - но лучше всеже папку) , правая клавиша мыши - свойства - Доступ -

расширенная настройка -галка на Открыть общий доступ к этой папке (далее если хотите обзывайте имя общего ресурса - но он не нужен - мы сами скриптом переименуем) - жмем ок. Лезем тамже в вкладку Безопасность - Кнопка Изменить - Кнопка Добавить - Кнопка Дополнительно - Кнопка Поиск , и в открывшемся списке ищем пользователя под именем ВСЕ - тыкаем в него - Кнопка ОК-Опять Кнопка ОК - В списке Группы или Пользователи находи нашего Все и тыкнув внизу ставим галочки на всех пунктах столбца Разрешить ( мы ему все разрешаем ). - тыкаем кнопку Ок - И закрываем окно кнопкой Закрыть.

После этого коп надо перезагрузить и на данном компе появляется расшаренная папка с полными правами заходить кому хошь и что хошь в ней делать - что как раз и отлично в домашней сети в которой вы создали сетевое хранилище таким образом на старом компе, и с рабочего компа на максимальной скорости можете пользоваться этими подключениями как дополнительными дисками.

Чтоб после этого воспользоваться скриптом - вам надо знать СТАТИЧЕСКИЙ адрес вашего сетевого хранилища (таго самого компа который расшарили ) и поставить ярлык с скрипта на рабочий столь или а автозагрузку. И радоваться подключению к своему новому своими ручками собранному сетевому хранилищу .

Далее жду вопросов.

Тема номер два - удаленное управление рабочем столом средствами винды.

1) Включаем на компе который будет ПРОСМАТРИВАТЬСЯ УДАЛЕННО возможность удаленного управления без запроса:

Кнопка пуск - Панель управления-Система и безопасность (или просто система зависимости от винды) - Слева тыкаем Настройка удаленного доступа - галку на Разрешить подключение удаленного помошника к этому компьютеру, ( а также через кнопку Дополнительно - ставим галку на Разрешить удаленное управление этим компьютером-кнопка ОК), галку на Разрешить подключения от компьютеров с любой версией удаленного рабочего стола, внизу кнопку Выбрать пользователей- Добавить-Дополнительно -Поиск- выкрать пользователя ВСЕ - кнопка Ок - Кнопка Ок -Опять кнопка ок

После перезагрузить - И получаем комп к которому можно подключаться.

2) И так работы на компе С КОТОРОГО ВЫ УПРАВЛЯЕТЕ ЧУЖИМ РАБОЧИМ СТОЛОМ.

Нас интересует программа mstsc.exe ( находящаяся по пути C:\Windows\System32\mstsc.exe если хотите сами там её запустите или создайте ярлык с строкой пути до неё - не важно как её запустите - она нам нужна только один раз)

Запускаем , получаем окно Подключение к удаленному рабочему столу,

в графу Компьютер вводи имя компа , но лучше его аупишник - так надежнеё ,кликаем вниза на стрелочку Показать параметры и офигев от изобилия настроек , в дополнительную строку вводим пользователя (именно вашего компа а не этого - не забываем - мы разрешили пользователю ВСЕ подключаться ) , если спросят пароль пишем пароль любой рандомный (но желательно от вашего компа).НЕ ТЫКАЕМ В КНОПКУ ПОДКЛЮЧИТЬ ПОКА НЕ ПРОСМОТРИМ ВСЕ НАСТРОЙКИ! -после тыкаем кнопку сохранить и сохраняем на ваш рабочий стол конвигурационный файл (одзовите его как хотите) - именно его вы будите запускать для МГНОВЕННОГО доступа к рабочему столу удаленного компа.

(в закладке Дополнительно - есть пункт Проверка подлинности сервера - ставим Подключать без предупреждения (тогда на удаленном столе не спросят разрешения на подключение , а сразу подключат.)

3)Пользуемся в целях управления сетевыми хранилищами без мониторов или чужими компами соседей через вайфай играя на их игровых компах с ихнего разрешения - пока их дома нет :)))

Если интересует как подключиться к компу соседа по вай фаю - тут распишу.

Прилагаю программки бесплатные сделанные мной в программе Multimedia Builder.

Желтый листок https://cloud.mail.ru/public/26wS%2FX5K43SeMj

Часы для превращения планшета или ноута на винде в часы с будильником и отличным онлайн радиоприемником:

Версия первая 1.0 так сказать https://cloud.mail.ru/public/92s2%2FkZoQodPtQ

Версия вторая для планшетов - чтоб тыкать а не клавишами - https://cloud.mail.ru/public/KzJK%2Fi2bbc6ZhG

Если интерсно есть ещё 3 версии часов для слеповатых :)))