MacCentre.ru Форум :: Просмотр темы - Скрипт переподключения сетевых шар

MacCentre.ru Форум
Форум по компьютерам Mac, Mac OS X и продукции Apple

Правила

FAQ

Поиск

Регистрация

Профиль

Войти и проверить ЛС

Вход

Скрипт переподключения сетевых шар

Автор

Сообщение

Hisoka

Репутация: 0

Зарегистрирован: 23.01.2017
Сообщения: 99

Добавлено: Пн Сен 25, 2017 15:01
Скрипт переподключения сетевых шар

Здравствуйте знатоки.
Достался такой скрипт на подключение сетевых шар:

Код:

set uName to "логин:пароль"

set myVolumeLabel1 to "шара1"
set myVolumeLabel2 to "шара2"
set myVolumeLabel3 to "шара3"
set myVolumeLabel4 to "шара4"
--set myvolumeLabel5 to "старый_сервер"
set myVolumeLabel6 to "шара1-1"
set myVolumeLabel7 to " шара2-1"
set myVolumeLabel8 to "шара3-1"
set myVolumeLabel9 to "шара4-1"
--set myvolumeLabel10 to "старый_сервер-1"
set myVolumeLabel11 to "шара1-2"
set myVolumeLabel12 to "шара2-2"
set myVolumeLabel13 to "шара3-2"
set myVolumeLabel14 to "шара4-2"
--set myvolumeLabel15 to "старый_сервер-2"

set myMountString1 to "smb://домен;логин:пароль@сервер1/шара1"
set myMountString2 to "smb:// домен;логин:пароль @ сервер2/ шара2"
set myMountString3 to "afp:// домен;логин:пароль @сервер3/ шара3"
--set myMountString3 to "smb:// домен;логин:пароль @старый_сервер/шара"
set myMountString4 to "http:// домен;логин:пароль @сервер4/ шара4"
--set myMountString5 to "afp:// домен;логин:пароль @старый_сервер2/шара"

set myMountString6 to "smb:// домен;логин:пароль@сервер1/шара1-1"
set myMountString7 to "smb:// домен;логин:пароль @ сервер2/ шара2-1"
set myMountString8 to "afp:// домен;логин:пароль @сервер3/ шара3-1"
--set myMountString8 to "smb:// домен;логин:пароль @старый_сервер/шара-1"
set myMountString9 to "http:// домен;логин:пароль @сервер4/ шара4-1"
--set myMountString10 to "afp:// домен;логин:пароль @старый_сервер2/шара-1"

set myMountString11 to "smb:// домен;логин:пароль@сервер1/шара1-2"
set myMountString12 to "smb:// домен;логин:пароль @ сервер2/ шара2-2"
set myMountString13 to "afp:// домен;логин:пароль @сервер3/ шара3-2"
--set myMountString13 to "smb:// домен;логин:пароль @старый_сервер/шара-2"
set myMountString14 to "http:// домен;логин:пароль @сервер4/ шара4-2"
--set myMountString15 to "afp:// домен;логин:пароль @старый_сервер2/шара-2"

tell application "Finder"

repeat while (disk myVolumeLabel1 exists)
   eject myVolumeLabel1
   delay 1
end repeat

repeat while (disk myVolumeLabel2 exists)
   eject myVolumeLabel2
   delay 1
end repeat

repeat while (disk myVolumeLabel3 exists)
   eject myVolumeLabel3
   delay 1
end repeat

repeat while (disk myVolumeLabel4 exists)
   eject myVolumeLabel4
   delay 1
end repeat

-- repeat while (disk myvolumeLabel5 exists)
--    eject myvolumeLabel5
--    delay 1
-- end repeat

repeat while (disk myVolumeLabel6 exists)
   eject myVolumeLabel6
   delay 1
end repeat

repeat while (disk myVolumeLabel7 exists)
   eject myVolumeLabel7
   delay 1
end repeat

repeat while (disk myVolumeLabel8 exists)
   eject myVolumeLabel8
   delay 1
end repeat

repeat while (disk myVolumeLabel9 exists)
   eject myVolumeLabel9
   delay 1
end repeat

-- repeat while (disk myvolumeLabel10 exists)
--    eject myvolumeLabel10
--    delay 1
-- end repeat

repeat while (disk myVolumeLabel11 exists)
   eject myVolumeLabel11
   delay 1
end repeat

repeat while (disk myVolumeLabel12 exists)
   eject myVolumeLabel12
   delay 1
end repeat

repeat while (disk myVolumeLabel13 exists)
   eject myVolumeLabel13
   delay 1
end repeat

repeat while (disk myVolumeLabel14 exists)
   eject myVolumeLabel14
   delay 1
end repeat

-- repeat while (disk myvolumeLabel15 exists)
--    eject myvolumeLabel15
--    delay 1
-- end repeat

end tell

tell application "Finder"

mount volume myMountString1
mount volume myMountString2
mount volume myMountString3
mount volume myMountString4
-- mount volume myMountString5

end tell

однако недавно начались проблемы с одной из шар (пусть будет шара1), с ней периодически пропадает коннект и через какое-то время снова становится доступной. Перезапуск скрипта никак не помогает заного переподключить шару, приходится ручками искать подключённую шару и делать ей дисконнект.
Нельзя ли как-нибудь автоматизировать это?

Hisoka

Репутация: 0

Зарегистрирован: 23.01.2017
Сообщения: 99

Добавлено: Вт Сен 26, 2017 14:56

как идею, нашёл: сидим, пингуем пинг пропал, запускаем цикл восстановления: пингуем до восстановления связи, потом под монтируем диск, перезапускаем программу, выходим из цикла восстановления сидим, пингуем дальше. кто может помочь со скриптом?

Показать сообщения:

Перейти:

Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах
Вы можете добавлять приложения в этом форуме
Вы можете скачивать файлы в этом форуме