Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум

Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - Помогите переделать скрипт

Ответить
Настройки темы
VBS/WSH/JS - Помогите переделать скрипт

Новый участник


Сообщения: 4
Благодарности: 0

Профиль | Отправить PM | Цитировать

Есть скрипт на подключение шары юзверю в определённой группе.
При монтирование получается такое имя otdel1 на "server\otdel1"
Как сделать чтобы имя выглядело так: Общая папка %имяотдела% ???

Option Explicit

Dim WSHShell, WSHNetwork, user, domain, adspath, adsobj, prop, computer

set wshNetwork = WScript.CreateObject( "WScript.Network")
Set wshShell = WScript.CreateObject("WScript.Shell")

do while WSHNetwork.username = ""
WScript.Sleep 250
loop

user = wshNetwork.username
domain = wshNetwork.userdomain
'computer= wshNetwork.usercomputer
'Wscript.echo "Logging on " & ucase(domain) & "\" & user & "..."

' используя ADSI получаем список групп, в которые входит пользователь
adspath = "WinNT://" & domain & "/" & user
Set adsobj = GetObject(adspath)

'
'Подключаем сетевые диски в зависимости от членства пользователя в группе безопасности
'
for each prop in adsobj.groups
select case prop.name
case "otdel1"
WSHNetwork.MapNetWorkDrive "B:", "\\server\otdel1"
MSgBox "Общий ресурс для otdel1 диск B:\"
case "otdel2"
WSHNetwork.MapNetWorkDrive "B:", "\\server\otdel2"
MSgBox "Общий ресурс для otdel2 диск B:\"
case "otdel3"
WSHNetwork.MapNetWorkDrive "B:", "\\server\otdel3"
MSgBox "Общий ресурс для otdel3 диск B:\"
end select
next

P.S Я в этом деле новичок поэтому и прошу у вас помощи.

Отправлено: 15:33, 17-09-2009

 

 


Moderator


Сообщения: 53441
Благодарности: 15497

Профиль | Отправить PM | Цитировать

[решено] Скрипт - подключить сетевой диск и назначить ему имя

Отправлено: 16:00, 17-09-2009 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Новый участник


Сообщения: 4
Благодарности: 0

Профиль | Отправить PM | Цитировать

пробЫвал подстовлять по разному везде ошибка "Несовпадение типов"

Отправлено: 16:37, 17-09-2009 | #3


Googler


Сообщения: 3665
Благодарности: 1563

Профиль | Отправить PM | Цитировать

Цитата LAZ1488:
везде ошибка "Несовпадение типов »
текст скрипта (в тегах CODE) + полное сообщение об ошибке (с номером ошибочной строки)

Отправлено: 11:02, 18-09-2009 | #4



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - Помогите переделать скрипт

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Скрипт, который можно переделать под MC(rap) баттл KingLink Вебмастеру 5 10-09-2009 02:50
Помогите переделать OEMINFO.cmd в Автоит скрипт Pozia AutoIt 0 03-03-2009 20:44
Помогите найти скрипт на JS rfcr Вебмастеру 9 11-08-2006 19:59
Помогите найти скрипт dr zero Программирование и базы данных 8 13-09-2004 07:34
Помогите написать скрипт!!! Sergei Antoshkin Вебмастеру 1 13-03-2003 18:22


« Предыдущая тема | Следующая тема »


 
Переход