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

Discussion in 'Windows' started by gri.n, 7 Sep 2014.

  1. gri.n

    gri.n New Member

    Joined:
    12 Nov 2008
    Messages:
    124
    Likes Received:
    4
    Reputations:
    0
    Привет всем !!! Столкнулся с такой проблемой при мапе дисков 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
     
Loading...