Перейти из форума на сайт.

Новости • Файловые архивы
Поиск • Активные темы • Топ лист
Правила • Кто в on-line?
Вход • Забыли пароль? • Первый раз на этом сайте? • Регистрация
Компьютерный форум Ru.Board » Компьютеры » В помощь системному администратору » vbs logon скрипт для подключения сетевых дисков

Модерирует : lynx, Crash_Master, dg, emx, ShriEkeR

 Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7

Открыть новую тему     Написать ответ в эту тему

KPashkoff

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Тема супер очень помогла.
 
У меня все мапиться при помощи  vbs через GRO
Но сталкнулся с такой проблемой:
 
Войдя в домен пользователям мапиться одно, а если в терминал должно мапиться другое.
 
Подскажите как это реализовать.
Всего записей: 4 | Зарегистр. 11-11-2008 | Отправлено: 21:49 06-02-2010
spike



Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
DTLA

Цитата:
Вопрос такого плана, подключаю диски скриптом  
 
===========================================================
 
Set WshNetwork = CreateObject("WScript.Network")
Set objShell = CreateObject("Shell.Application")
On Error Resume Next
 
wshNetwork.RemoveNetworkDrive "V:"
wshNetwork.MapNetworkDrive "V:", "\\DFS_LINK\Share1\"
objShell.NameSpace("Y:").Self.Name = "ShareName1"
 
wshNetwork.RemoveNetworkDrive "R:"
wshNetwork.MapNetworkDrive "R:", ""\\DFS_LINK\Share2\"
objShell.NameSpace("Z:").Self.Name = "ShareName1"
 
===========================================================
 
на Windows XP (SP2 + SP3) проходит на ура (через GPO), но на Windows Vista SP1 (пользователь имеет теже самые права), подключение не проходит, UAC отключен...
 
в чем может быть загвоздка?

просто запустив скрипт диски подключаются ?
 
у меня на Windows 7 при логоне не подключаются, а вот если потом запустить, то без проблем
Всего записей: 693 | Зарегистр. 23-10-2003 | Отправлено: 17:37 09-02-2010
Agent_Alex

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Чтобы на Windows 7 заработало, нада через GPO в реестре добавлять ключик
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\EnableLinkedConnections типа DWORD со значением 1.
При этом UAC отключать не нада)
 
http://support.microsoft.com/kb/937624
Всего записей: 3 | Зарегистр. 28-10-2007 | Отправлено: 11:34 25-06-2010 | Исправлено: Agent_Alex, 11:37 25-06-2010
olview

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Привет всем, на подскажите как сменить логон-скрипт у всех пользователей в домене именно скриптом????
Всего записей: 85 | Зарегистр. 30-03-2008 | Отправлено: 05:54 28-07-2010
vladimiratm

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Добрый день.
Есть vbs скрипт для подключения сетевых дисков у пользователей.

Код:
Set fs = WScript.CreateObject("Scripting.FileSystemObject")  
Set wn = WScript.CreateObject("WScript.Network")  
Set ap = CreateObject("Shell.Application")  
if fs.DriveExists("Y:") then wn.RemoveNetworkDrive "Y:", true, true  
wn.MapNetworkDrive "Y:", "\\server\share01", false, login, password
if fs.DriveExists("Z:") then wn.RemoveNetworkDrive "Z:", true, true  
wn.MapNetworkDrive "Z:", "\\server\share02", false, login, password

Пробовал подключать таким образом диски на своём компе - всё отлично работает, попробовал запустить его для другой учётки на виртуальной тачке - появляется ошибка:

Код:
Сценарий: C:\map.vbs
Строка: 5
Символ: 1
Ошибка: Сетевой пароль указан неверно
Код: 80070056
Источник: WSHNetwork.MapNetworkDrive

Если в командной строке выполнить:

Код:
net use "\\server\share" password /user:login

то после выполнения скрипт выполняется, после перезагрузки ситуация повторяется.
Сеть без домена, подключение идёт к шаре на Samba
Всего записей: 2 | Зарегистр. 11-05-2009 | Отправлено: 15:41 01-03-2011 | Исправлено: vladimiratm, 15:42 01-03-2011
adamst



Junior Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
спасибо за скрипт, легко адаптировать под себя, очень удобно
Всего записей: 157 | Зарегистр. 25-04-2007 | Отправлено: 14:35 01-07-2011
Valery12

Silver Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
vladimiratm а пароль не в русской раскладке случайно?

Цитата:
Привет всем, на подскажите как сменить логон-скрипт у всех пользователей в домене именно скриптом????
если имеется ввиду имя скрипта, указанное в свойствах юзера, вкладка профиль, то все гораздо проще, в "Active Directory пользователи и компьютеры" выделяем сразу всех нужных юзеров, в контексном меню - свойства - вкладка профиль и указываем новое имя скрипта  
Всего записей: 2325 | Зарегистр. 21-07-2003 | Отправлено: 14:54 01-07-2011 | Исправлено: Valery12, 14:56 01-07-2011
cucmkolya

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Столкнулся с подобным на Windows7 Pro:
 
Что имеем:
 
Ноут под управлением Windows 7 Pro (в домене)
Шара на компах не в домене (шара под управлением win2003)
 
Скрипт подключения шары:
 
DayNumber = Weekday(Date())
Set wss = CreateObject("Wscript.Shell")
Set Wnet = Wscript.CreateObject("Wscript.Network")
 
Wnet.MapNetworkDrive "W:", "\\share1\disk1"
Wnet.MapNetworkDrive "Y:", "\\share2\disk2"
 
 
select case DayNumber
    case 1: wss.Popup "Сегодня выходной " &Date(), 2,"Вход домен выполнен!"
    case 2: wss.Popup "Сегодня понедельник " &Date(), 2,"Вход домен выполнен!"
    case 3: wss.Popup "Сегодня вторник " &Date(), 2,"Вход домен выполнен!"
    case 4: wss.Popup "Сегодня среда " &Date(), 2,"Вход домен выполнен!"
    case 5: wss.Popup "Сегодня четверг " &Date(), 2,"Вход домен выполнен!"
    case 6: wss.Popup "Сегодня пятница " &Date(), 2,"Вход домен выполнен!"
    case 7: wss.Popup "Сегодня суббота " &Date(), 2,"Вход домен выполнен!"
End Select
 
И естественно ничего не работает
 
Как лечится:  
Заходим в Учетные записи пользователей/Изменение параметров контроля учетных записей - опускаем бегунок в самый низ (отключаем).
После чего идем в Администрирование учетных записей и в учетных данных добавляем наши шары...а именно в виде домен\пользователь и пароль (в соответствующие поля формы).
 
т.е. получится:
 
Адрес в Интернете или в сети: share1
Имя пользователя: share1\user - обязательно прописываем домен для конкретного юзера.
Пароль: вводим пароль для нашего юзера
 
После чего выходим из домена и заходим обратно...все работает!
 
Всего записей: 28 | Зарегистр. 01-10-2009 | Отправлено: 13:34 10-08-2011
Alabin

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Если комп не в домене, как тогда получать данные о пользователе (имя, группа)
Всего записей: 8 | Зарегистр. 07-12-2009 | Отправлено: 13:51 29-09-2011
hunter11



Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
SergeyCVS
 
Как модифицировать ваш скрипт, чтобы еще дополнительно кроме групп анализировал и логины в этой группе, у нас в одной группе у разных пользователей подключаются разные шары ???
 
upd - разобрался
Всего записей: 35 | Зарегистр. 13-02-2006 | Отправлено: 14:56 28-10-2011 | Исправлено: hunter11, 09:48 30-12-2011
hunter11



Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
Как сделать отключение всех сетевых соединений (аналог net use * /delete /y)  
   
WshNetwork.RemoveNetworkDrive "*", True, True  
   
 Выдает ошибку

 
 
Вот аналог на vbs есть:
 
Set oDrives = WshNetwork.EnumNetworkDrives
For Each Drive In oDrives
    On Error Resume Next
    WSHNetwork.RemoveNetworkDrive Drive, TRUE, TRUE
next
Всего записей: 35 | Зарегистр. 13-02-2006 | Отправлено: 10:44 30-12-2011
sergey5864

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Пишу вот такой скрипт в windows server 2008 для пользователя с windows 7

Код:
 
'==========================================================================
'
' Function MapDrv(DrvLet, UNCPath)
'
DrvLet = "v:"
UNCPath = "\\172.18.1.1\Фотографии-каталог"
'
' COMMENT: Подключение сетевых дисков с записью ошибок в EventLog
'
'==========================================================================
 
 
Function MapDrv(DrvLet, UNCPath)
 
    Dim WshNetwork         ' Object variable
    Dim Msg
 
    Set WshNetwork = WScript.CreateObject("WScript.Network")
 
    On Error Resume Next
    WshNetwork.RemoveNetworkDrive DrvLet
    WshNetwork.MapNetworkDrive DrvLet, UNCPath
     
    Select Case Err.Number
        Case 0            ' No error
 
        Case -2147023694  
            WshNetwork.RemoveNetworkDrive DrvLet
            WshNetwork.MapNetworkDrive DrvLet, UNCPath
             
        Case -2147024811  
            WshNetwork.RemoveNetworkDrive DrvLet
            WshNetwork.MapNetworkDrive DrvLet, UNCPath
 
        Case Else
 
            Msg = "Mapping network drive error: " & _  
                   CStr(Err.Number) & " 0x" & Hex(Err.Number) & vbCrLf & _
                  "Error description: " & Err.Description & vbCrLf
            Msg = Msg & "Domain: " & WshNetwork.UserDomain & vbCrLf
            Msg = Msg & "Computer Name: " & WshNetwork.ComputerName & vbCrLf
            Msg = Msg & "User Name: " & WshNetwork.UserName & vbCrLf & vbCrLf
            Msg = Msg & "Device name: " & DrvLet & vbCrLf
            Msg = Msg & "Map path: " & UNCPath  
 
            WshShell.LogEvent 1, Msg, "\\SRV"
    End Select
 
End Function
 
 

 
в совйствах учетки указываю логон скрипт  
C:\Windows\SYSVOL\sysvol\h323.local\scripts\MapDisk.vbs
 
Но он не работает, в журналах ошибок не вижу..
Подскажите, что может быть ...
Всего записей: 48 | Зарегистр. 06-12-2008 | Отправлено: 21:03 08-02-2012 | Исправлено: sergey5864, 21:04 08-02-2012
CrazyMax80

Newbie		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
olview
 

Код:
 
'Инициализация
Dim objRootDSE
Set objRootDSE = GetObject("LDAP://RootDSE")
Dim strDNC
strDNC = objRootDSE.Get("DefaultNamingContext")
Dim objDomain
Set objDomain = GetObject("LDAP://" & strDNC)
 
'Типа функция main()
EnumTop(objDomain)
 
'Процедуры и функции
Sub EnumTop(objContainer)
  objContainer.Filter = Array("top")
  Dim objMember
  For Each objMember In objContainer  
    If (objMember.Name <> "Configuration") And (objMember.Name <> "Schema") Then
      If (objMember.Class = "user") And (objMember.scriptPath = "logon.cmd") Then    'сюда впиши свою проверку содержимого scriptPath
          WScript.Echo objMember.Class & " = " & objMember.AdsPath & " LS=" & objMember.scriptPath & " change to LogonScript.vbs"
          objMember.Put "scriptPath", "LogonScript.vbs"  'здесь укажи имя своего логон-скрипта
          objMember.SetInfo  
      End If  
      EnumTop(objMember)
    End If  
  Next  
End Sub
 
 
 
 

Всего записей: 27 | Зарегистр. 26-12-2006 | Отправлено: 07:37 04-02-2013
Tiotimolin

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Спасибо за скрипты, очень упрощают жизнь
Всего записей: 8 | Зарегистр. 05-07-2006 | Отправлено: 09:47 17-03-2015
Hydras



Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Добрый день всем!
 
Тема обмусолена уже тысячу раз, но никакие бубны мне не помогли
 
Есть VBS-скрипт, мапящий сетевой диск при логине доменного юзера:
 
Set objNetwork = CreateObject("WScript.Network")  
objNetwork.MapNetworkDrive "S:", "\\fs\D", true
 
Прописал этот скрипт на сценарий входа для конкретной группы пользователей, после логина диск не подмапливается, при ручном запуске скрипт работает. При методе запуска скрипта через Актив Директори - всё работает. Просто это не совсем удобно на каждого пользователя указывать данный скрипт для сценария входа в свойствах доменной учётки Актив Директори.
В предыдущей компании работало через групповые политики, а в другую контору пришёл и не хочет работать таким макаром....
Дайте пожалуйста векторы хода решения!
Всего записей: 3 | Зарегистр. 28-10-2010 | Отправлено: 19:31 11-04-2016
pshiki



Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Здравствуйте, пытаюсь реализовать подключение сетевых дисков через скрипт, использую следующий код:
 

Код:
 
Set Wnet = Wscript.CreateObject("Wscript.Network")
Wnet.EnumNetworkDrives()
Wnet.RemoveNetworkDrive("Q:")
Wnet.RemoveNetworkDrive("W:")
Wnet.MapNetworkDrive "Q:", "\\192.168.0.***\company"
Wnet.MapNetworkDrive "W:", "\\192.168.0.***\InfoBases", , "user", "******"
 

 
 
Получается следующая ситуация: когда выполняется проверка на подключенные сетевые диски, а диски не подключены - получаю ошибку... Как правильно реализовать проверку и отключение подключенных дисков для их дальнейшего подключения?
Всего записей: 13 | Зарегистр. 30-05-2014 | Отправлено: 17:28 12-09-2016
ipmanyak



Platinum Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
pshiki проверяй предварительно существование буквы диска или добавляй параметры.  
https://community.spiceworks.com/scripts/show/1356-check-map-rename-drives-logon-script-using-if-then
https://msdn.microsoft.com/en-us/library/d16d7wbf(v=vs.84).aspx
http://www.pctools.com/guides/scripting/detail/137/?act=reference


----------
В сортире лучше быть юзером, чем админом...
Всего записей: 11740 | Зарегистр. 10-12-2003 | Отправлено: 09:26 13-09-2016
pshiki



Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
ipmanyak
спасибо за информацию.
Для моего решения хватило строки On error resume next после определения констант
Всего записей: 13 | Зарегистр. 30-05-2014 | Отправлено: 10:02 13-09-2016
ilfaty

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Здравствуйте, помогите пожалуйста доработать vbs скрипт, для добавления сетевого диска. В домене на компьютерах которые не в домене, диски не добавляются, надо в скрип добавить логин и пароль доменовский, как это сделать.  
 
Вот сам скрипт:
 
On Error Resume Next
 
Set objWshNetwork = CreateObject( "WScript.Network" )
Set objShell = CreateObject("Shell.Application")
 
 
MapDrive "L:", "\\10.10.10.10\Docs", "Общая папка"
 
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
Всего записей: 2 | Зарегистр. 13-01-2017 | Отправлено: 11:40 13-01-2017
Globalizator



Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
NET share c: /DELETE
Что может быть проще?
 
Добавлено:

Цитата:
Здравствуйте, помогите пожалуйста доработать vbs скрипт, для добавления сетевого диска. В домене на компьютерах которые не в домене, диски не добавляются, надо в скрип добавить логин и пароль доменовский, как это сделать.

 
Это можно и обычным батником. Сначала NET USE на ресурс IPC$ делай с нужным логином/паролем, потом подключай диск
Всего записей: 219 | Зарегистр. 06-11-2003 | Отправлено: 14:59 16-01-2017
Открыть новую тему     Написать ответ в эту тему

Страницы: 1 2 3 4 5 6 7

Компьютерный форум Ru.Board » Компьютеры » В помощь системному администратору » vbs logon скрипт для подключения сетевых дисков


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru