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

[LAZ1488]

Есть скрипт на подключение шары юзверю в определённой группе.

При монтирование получается такое имя 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 Я в этом деле новичок поэтому и прошу у вас помощи.

[Petya V4sechkin]

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

[LAZ1488]

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

[LAZ1488]

Цитата LAZ1488:



везде ошибка "Несовпадение типов

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

текст скрипта (в тегах CODE) + полное сообщение об ошибке (с номером ошибочной строки)