Помогите переделать скрипт
 

Есть скрипт на подключение шары юзверю в определённой группе.
При монтирование получается такое имя 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 Я в этом деле новичок поэтому и прошу у вас помощи.

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

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