Как переименовать сетевой диск на vbs

[Diver]

Здраствуйте. Проблема
код:

Код: Выделить всё


Set shel = CreateObject("Shell.Application")
shel.NameSpace("W:")Self.Name = "Preved"


На хр работает, а на вин2000 выдает ошибку

Код: Выделить всё

Ошибка: Требуется объект: 'shel.NameSpace(...)'
Код: 800A01A8
Источник: Ошибка выполнения Microsoft VBScript


Устанавливал Windows scripts 5.6, без толку. Как переименовать сетевой диск?

[Sebas]

Никак, такая функциональность Windows не поддерживается.

Отключить и подключить по новой.

[Diver]

я и так его оключаю и подключаю при каждом логине. а как имя задать? Неужели впринципе невозможно переименовать сетевой диск в вин2000?
Руками то можно переименовать, почему скриптом нельзя?

[ALX_2002]

Челы, я возможно глупость скажу, но а если через вот так ?

Код: Выделить всё


Dim WSH,RetVal

Set WSH = CreateObject("WScript.Shell")

Retval = WSH.Exec("subst F: сетевой путь").StdOut.ReadAll

RetVal = DosToWin(RetVal)

msgbox RetVal

Set WSH = Nothing

Function DosToWin(s)
Dim i,k,ss
  ss=""
  For i=1 To Len(s)  ' Цикл по всем символам в строке
    k = Asc(Mid(s,i,1))  ' Определяем ANSI-код i-го символа
    ' Изменяем код k на код соответствующего символа в
    ' Windows-кодировке
    If (128 <= k) And (k <= 175) Then
      k=k+64
    ElseIf (224 <= k) And (k <= 239) Then
      k=k+16
    ElseIf k = 240 Then
      k=168
    ElseIf k = 241 Then
      k=184
    End If
    ss=ss+Chr(k)  ' Возвращаем преобразованную строку
  Next
DosToWin=ss
End Function


P.S Виноват, если не в тему.

За скрипт перекодировки спасибо Ruslan Demidow

[Diver]

Походу нашел. Надо вроде вот так

Код: Выделить всё


shel.NameSpace("W:\")Self.Name = "Preved"


Т.е. не "W:" а "W:\"