Помогите со скриптом VBS !!!

Привет всем !!! Столкнулся с такой проблемой при мапе дисков vbs скриптом не вижу название шары , только написан типа .... путь до шары и буква диска .... Как сделать так чтоб Диск, сетевой диск назывался типа "Бухгалтерия (O" ???? Помогите . Help !!!!
Вот код, что не правильно пишу ?

Option Explicit
Dim WshNetwork
Set WshNetwork = WScript.CreateObject("WScript.Network")
On Error Resume Next
WshNetwork.MapNetworkDrive "O:", "\\ADSRV\1"
ErrCheck Err.Number
Sub ErrCheck(nr)
Select Case nr
Case 0
Case -2147024811
mDrive = "O:\"
Set oShell = CreateObject("Shell.Application")
oShell.NameSpace(mDrive).Self.Name = "Бухгалтерия"
End Select
End Sub