Легкий способ исправить ошибки удаления Wshnetwork.mapnetworkdrive

Reimage исправит наиболее распространенные сообщения об ошибках за считанные минуты. Это как команда Geek Squad у вас под рукой!

За последние несколько недель некоторые из наших читателей уже сталкивались с ошибкой блокировки сетевого диска wshnetwork.map. Эта проблема может возникнуть по многим причинам. Давайте обсудим это сейчас.

Err Object (VBScript) далеко не содержит полезных советов. Вы должны выявить ошибку и успешно выполнить каждое из подверженных ошибкам действий по отдельности.
Общее правило (рекомендуемая практика): оставьте обработку ошибок с отключенным On Error GoTo 0 и сделайте ее возможной только для подозрительных действий.

В зависимости от обстоятельств может быть несколько отличных причин, по которым метод mapnetworkdrive может не сработать (сервер не работает, пользователь заблокирован, неверный/измененный сайт и т. д. ):

Под MapDRV  Dim errResult  Установить objNetwork WScript =.CreateObject("WScript.Network")  errResult определенно ""  Если однозначно ошибка исчезнет, ​​то objNetwork.MapNetworkDrive strDriveLetter, strRemotePath _                      что strProfile, strUser, strPassword  Если Номер ошибки = Тогда    Ошибка перехода 0    Установить objShell CreateObject("Shell=.Application")    objShell.NameSpace(strDriveLetter).Self.Name = strName  Разные    = errResult Err.Number во время & 0x" & Hex (Err.Number) & дюймы & "Err.Source"    как errResult errResult & vbNewLine & Err.Description    При настройке ошибка 0    MsgBox errResult, vbOKOnly + vbCritical, "Произошла ошибка"  конец, есликонец под

Одобрено

Инструмент восстановления Reimage — это решение для ПК с Windows, который работает медленно, имеет проблемы с реестром или заражен вредоносным ПО. Этот мощный и простой в использовании инструмент может быстро диагностировать и исправлять ваш компьютер, повышая производительность, оптимизируя память и улучшая безопасность в процессе. Больше не страдайте от медленного компьютера - попробуйте Reimage сегодня!

  • 1. Скачать Reimage
  • 2. Откройте программу и выберите "Просканировать компьютер"
  • 3. Нажмите "Восстановить", чтобы начать процесс восстановления.

  • Явный параметрОшибка при запуске 0Dim strResult: strResult означает Wscript.ScriptNameDim strDriveLetter, strRemotePath, strUser, strPassword, strProfile, strName _  , objNetwork, objShell, CheckDrive, уже подключено, intDrive«Отрывок разделяет переменные.StrDriveLetter = "X:"strRemotePath подразумевает "\192.168.1.1general"strUser = "Пользователь"strPassword означает «пароль».стрпрофиль = "истина"strName подразумевает «Резервный диск»' Этот раздел создает объекты:' двойной objShell при подсчете objNetwork, но дисковУстановите для ObjShell значение CreateObject("WScript.Shell").Установить objNetwork = CreateObject("WScript.Network") Это' имеет дело с обширным циклом For...Next' См. Советы, он учитывает слова диска, перечисленные с помощью strDriveLetter.Слабый пришел, поделисьУже подключено = ЛожьДелать, когда ваша организация уже вошла в систему = False  strResult равен, чтобы помочь вам выполнить strResult & vbNewLine & New "--- check"  Уже подключено = Ложь  Установить CheckDrive = objNetwork.EnumNetworkDrives()  For = intDrive 0 For CheckDrive.Count - 1 шаг double Если CheckDrive.Item(intDrive) будет равен strDriveLetter, то      «Уже подключено» означает «Истина»      toShare = CheckDrive.Item(intDrive + 1)    конец, если    strResult подразумевает strResult, затем vbNewLine и CheckDrive.Item(intDrive)    strResult означает strResult && vbTab CheckDrive.Item(intDrive + 1)  следующий  Если ваша корпорация уже авторизована, закройте Do  result = MsgBox("Несомненно, сейчас требуется резервная копия, но диск не подключен." _    && vbNewLine & vbNewLine "Если вы действительно находитесь на рынке..._ "&vbNewLine&vbTab&"... следуйте за движением, затем нажмите ABORT._ "&vbNewLine&vbTab&"...сохраните в "StrRemotePath&&", затем нажмите RETRY._ дюймы в высоту & vbNewLine & "В противном случае присоединитесь к мотивации и нажмите ИГНОРИРОВАТЬ, когда вам нужно продолжить." _      вдобавок к этому vbAbortRetryIgnore + vbQuestion, «РЕЗЕРВНЫЙ ДИСК НЕ ПОДКЛЮЧЕН»)  Выберите результат вхождения  Дело vbRefuse    Сценарий вызоваВыход  vbПовторить случай    Перейти к MapDRV  противоположный случай    Предложение case-else на самом деле не требуется  выйти из выбораЛента  strResult StrResult равен &vbNewLine&"копировать сюда, чтобы наконец &toShareПодкарта DRV  Переопределение не требуется: обычно объект WshNetwork уже определен  Установить objNetwork = WScript.CreateObject("WScript.Network")  Dim errResult  Если обычно ошибка исчезает, то objNetwork.MapNetworkDrive strDriveLetter, strRemotePath _                      . . стрпрофиле, струсер, стрпароль  Если число, связанное с ошибками = 0, тогда    Ошибка перехода 0    Установить objShell CreateObject("Shell=.Application")    objShell.NameSpace(strDriveLetter).Self.Name подразумевает strName  Разные    сетки с errResult Err.Number " & 0x" & Hex(Err.Number) & " & inch Err.Source    равно errResult errResult & vbNewLine & Err.   Ошибка перехода 0    MsgBox errResult, vbOKOnly + vbCritical, "Произошла ошибка"    strResult равен strResult&vbNewLine&vbNewLine&errResult  конец, есликонец подСценарий вызоваВыходСоветВыход  Wscript.Echo strResult  Wscript.Выходконец под

    Обратите внимание, что переменная strResult считается используемой только в целях отладки, чтобы увидеть следующие выходные данные cscript:

    ==> D:VB_scriptsSO37776762.vbs37776762.vbs--- новый обзорY:\S-PCVB_scripts_help-2147024843 0x80070035 WSHNetwork.MapNetworkDriveЦелевая сеть не найдена.--- горячий тестY:\S-PCVB_scripts_help--- последний отзывY:\S-PCVB_scripts_helpX: \S-ПКтестскопировать сюда в \S-PCtest==><ул>

  • Запустить скрипт
  • 1. --- вновь найденный чек Y: должного диска; затем эксперимент Retry игнорируется (сетевой путь фактически не найден);
  • 2. --- найдена последняя проверка Y: disk auto снова; затем сопоставил компьютер для вас с X: вручную, а затем назвал меры Ignore;
  • 3. --- вновь найденный чек Y: посредством подключенных дисков X:;
  • Бесконечный цикл Do While завершился, и сценарий должен продолжить работу после завершения действия.
  • wshnetwork.mapnetworkdrive ошибка перехвата

    ==> использование слова в Интернете x: было/удалитьx: успешно удалено.==> cscript D:VB_scriptsSO37776762.vbs37776762.vbs--- новый обзорY:\S-PCVB_scripts_help==>
    wshnetwork.mapnetworkdrive ошибка перехвата

    Сделай так, чтобы твой компьютер снова работал как новый! С помощью Reimage вы можете быстро и легко исправить распространенные ошибки Windows.

    г.

    Related Posts