overrise
25-01-2018, 11:20
Доброе время.
Стоит сервер 2016. Сервер просто в рабочей группе. Пользователи тоже в рабочей группе. IP сервера 192.168.0.1
Клиенты Windows 7,10. Если монтировать шару и оставить галочку подключать автоматически - после перезагрузки шара не монтируется.
Нашел VBS(ниже) скрипт, который монтирует, если его отправить в автозагрузку, но монтирует не на всех машинах. Думаю проблема в инициализации сетевого интерфейса, у кого быстрее - там подключился диск, у кого медленнее - не подключился. Пользователь сам может скрипт этот запустить вручную, но хочется, чтобы сетевая шара подключалась автоматически.
Пароль при этом сохранен в системе.
Может быть посоветуете более здравые варианты, как подмонтировать диск? Может быть есть программа какая нибудь, как сервис стартующая и монтирует шару, если она стала доступна? Скажем юзер пришел домой, диск сетевой отпал. Пришел на работу - он автоматом подцепился. Реально?
On Error Resume Next
Set objWshNetwork = CreateObject( "WScript.Network" )
Set objShell = CreateObject("Shell.Application")
MapDrive "X:", "\\files\files", "Базы"
Sub MapDrive(strDrive, strPath, strName)
On Error Resume Next
objWshNetwork.RemoveNetworkDrive strDrive, vbTrue, vbTrue
objWshNetwork.MapNetworkDrive strDrive, strPath
objShell.NameSpace(strDrive).Self.Name = strName
End Sub
Стоит сервер 2016. Сервер просто в рабочей группе. Пользователи тоже в рабочей группе. IP сервера 192.168.0.1
Клиенты Windows 7,10. Если монтировать шару и оставить галочку подключать автоматически - после перезагрузки шара не монтируется.
Нашел VBS(ниже) скрипт, который монтирует, если его отправить в автозагрузку, но монтирует не на всех машинах. Думаю проблема в инициализации сетевого интерфейса, у кого быстрее - там подключился диск, у кого медленнее - не подключился. Пользователь сам может скрипт этот запустить вручную, но хочется, чтобы сетевая шара подключалась автоматически.
Пароль при этом сохранен в системе.
Может быть посоветуете более здравые варианты, как подмонтировать диск? Может быть есть программа какая нибудь, как сервис стартующая и монтирует шару, если она стала доступна? Скажем юзер пришел домой, диск сетевой отпал. Пришел на работу - он автоматом подцепился. Реально?
On Error Resume Next
Set objWshNetwork = CreateObject( "WScript.Network" )
Set objShell = CreateObject("Shell.Application")
MapDrive "X:", "\\files\files", "Базы"
Sub MapDrive(strDrive, strPath, strName)
On Error Resume Next
objWshNetwork.RemoveNetworkDrive strDrive, vbTrue, vbTrue
objWshNetwork.MapNetworkDrive strDrive, strPath
objShell.NameSpace(strDrive).Self.Name = strName
End Sub