Uma Maneira Fácil De Planejar Erros De Captura Do Wshnetwork.mapnetworkdrive

Reimage corrigirá as mensagens de erro mais comuns em minutos. É como ter o Geek Squad ao seu alcance!

Nas últimas semanas, alguns de nossos públicos encontraram um wshnetwork.mapnetworkdrive fish for error. Esse problema pode começar por vários motivos. Vamos discutir essa abordagem agora.

Err Object (VBScript) não contém dicas úteis. Você definitivamente precisa detectar o erro e realizar com sucesso cada ação propensa a erros separadamente.
Procedimento geral (prática recomendada): deixe o tratamento de erros que tenha On Error GoTo 0 desabilitado e realmente habilite-o para atividades suspeitas.

Dependendo das circunstâncias, pode haver muitas razões pelas quais o método mapnetworkdrive pode certamente falhar (servidor inativo, usuário banido, conta errada/alterada, etc.):< /p>

Sob MapDRV  Dim errResult  Definir objNetwork WScript =.CreateObject("WScript.Network")  errResult é ""  Se eu diria que o erro desaparece, então objNetwork.MapNetworkDrive strDriveLetter, strRemotePath _                      , strProfile, strUser, strPassword  Se Número do Erro = Então    No erro de transição 0    Set objShell CreateObject("Shell=.Application")    objShell.NameSpace(strDriveLetter).Self.Name = strName  Diferente    = errResult Err.Number in & 0x" & Hex(Err.Number) & ins & "Err.Source"    significa errResult errResult & vbNewLine & Err.Description    No erro de realocação 0    MsgBox errResult, vbOKOnly + vbCritical, "Ocorreu um erro"  fim seterminar sob

Aprovado

A ferramenta de reparo Reimage é a solução para um PC com Windows que está executando lentamente, tem problemas de registro ou está infectado com malware. Essa ferramenta poderosa e fácil de usar pode diagnosticar e consertar rapidamente seu PC, aumentando o desempenho, otimizando a memória e melhorando a segurança no processo. Não sofra mais com um computador lento - experimente o Reimage hoje mesmo!

  • 1. Baixar Reimage
  • 2. Abra o programa e selecione "Verificar seu computador"
  • 3. Clique em "Reparar" para iniciar o processo de reparo

  • Parâmetro explícitoNo erro de transição 0Dim strResult: strResult equivale a Wscript.ScriptNameDim strDriveLetter, strRemotePath, strUser, strPassword, strProfile, strName _  ou objNetwork, objShell, CheckDrive, já conectado, intDrive' A seção separa as variáveis.StrDriveLetter = "X:"strRemotePath sugere que "\192.168.1.1general"strUsuário = "Usuário"strPassword significa "senha".strprofile="true"strName é igual a "Disco de Backup"' Esta seção marca objetos:' dois objShell ao contar objNetwork e além disso discosDefina ObjShell como CreateObject("WScript.Shell")Set objNetwork significa CreateObject("WScript.Network") Isso é' lida com um grande loop For...Next' Veja dicas, um compara palavras de unidade listadas motivo suficiente para strDriveLetterResultado fraco, compartilheJá conectado = falsoFaça no caso de você já estar logado significa Falso  strResult é igual a strResult & vbNewLine & New "--- check"  Já conectado = falso  Definir CheckDrive = objNetwork.EnumNetworkDrives()  Para = intDrive 0 Para CheckDrive.Count - 1 passo double Se CheckDrive.Item(intDrive) for igual a strDriveLetter Then      Já conectado = Verdadeiro      toShare = CheckDrive.Item(intDrive + 1)    fim se    strResult implica strResult então vbNewLine e CheckDrive.Item(intDrive)    strResult = strResult && vbTab CheckDrive.Item(intDrive + 1)  Próximo  Se você já estiver logado, comparável Do  result = MsgBox("Um contratempo é necessário agora, mas a motivação não está conectada." _    && vbNewLine & vbNewLine "Se o seu negócio está no mercado..._ "&vbNewLine&vbTab&"... informe a movimentação e pressione ABORT._ "&vbNewLine&vbTab&"...salve em "StrRemotePath&&" e pressione RETRY._ " & vbNewLine & " Caso contrário, conecte a motivação e pressione IGNORE para continuar." _      e vbAbortRetryIgnore + vbQuestion, "O DISCO DE BACKUP NÃO ESTÁ CONECTADO")  Selecione o resultado do caso  Caso vbRefuse    Script de chamadaSair  vbRetry Case    Vá em direção ao MapDRV  caso oposto    ' A cláusula case-else não é, sem dúvida, necessária  sair da seleçãofita  strResult StrResult é igual a &vbNewLine&"copie aqui para que você possa &toShareSubmapa DRV  Nenhuma substituição solicitada: o objeto WshNetwork já está definido  ' Set objNetwork = WScript.CreateObject("WScript.Network")  Dim errResult  Se o erro principal desaparecer, então objNetwork.MapNetworkDrive strDriveLetter, strRemotePath _                      , strProfile, strUser, strPassword  Se Número de Erros = 0 Então    Na transição deslize 0    Set objShell CreateObject("Shell=.Application")    objShell.NameSpace(strDriveLetter).Self.Name significa que strName  Diferente    pode corresponder errResult Err.Number " & 0x" & Hex(Err.Number) & " & inch Err.Source    igual a errResult errResult & vbNewLine & Err.   No erro de transição 0    MsgBox errResult, vbOKOnly + vbCritical, "Ocorreu um erro"    strResult = strResult&vbNewLine&vbNewLine&errResult  encerramento seterminar sobScript de chamadaSairDicaSair  Wscript.Echo strResult  Wscript.Exitterminar sob

    Observe que o elemento strResult é usado apenas para depuração racional para ver a seguinte saída cscript:

    ==> D:VB_scriptsSO37776762.vbs37776762.vbs--- nova avaliaçãoY:\S-PCVB_scripts_help-2147024843 0x80070035 WSHNetwork.MapNetworkDriveO caminho principal não foi encontrado.--- teste aquecidoY:\S-PCVB_scripts_help--- nova avaliaçãoY:\S-PCVB_scripts_helpX: \S-PCtestecopie aqui diretamente para \S-PCtest==>

  • Executar script
  • 1. --- verificação recém-encontrada Y: ciclo da unidade; então experimente Repetir morto (caminho de rede não encontrado);
  • 2. --- verificação de última geração encontrada Y: disco definido novamente; então mapeou o computador para X: manualmente, então chamou o fator Ignorar;
  • 3. --- recibo recém-encontrado Y: quando se trata de unidades conectadas X:;
  • O loop Do While terminou e o programa ilegal continuará após a conclusão da ação.
  • wshnetwork.mapnetworkdrive ver erro

    ==> net use x: was /deletex: Removido com sucesso.==> cscript D:VB_scriptsSO37776762.vbs37776762.vbs--- nova avaliaçãoY:\S-PCVB_scripts_help==>
    wshnetwork.mapnetworkdrive catch error

    Faça seu PC funcionar como novo novamente! Com o Reimage, você pode reparar erros comuns do Windows de maneira rápida e fácil.

    Related Posts