locked
Mapeamento de rede no win 7 RRS feed

  • Pergunta

  • Prezados, boa tarde.

    Estou homologando o windows 7 na minha empresa e estou com problemas de mapeamento de rede.

    tenho um DC 2003 executando vbs para mapear impressoras e diretorios de rede, no XP funciona perfeitamente porem no vista e 7 não funciona.

    alguem tem alguma dica?

    abraços

    terça-feira, 16 de agosto de 2011 19:34

Respostas

  • Crie um arquivo bar para mapear as pastas.

     

    @echo off
    ver
    echo.
    echo *** Desconectando conexoes de rede ***
    net use *  /delete /y
    echo.
    echo **** Atualizando a Hora ****
    net time \\Srv02 /set /y
    echo *** Mapeando as Conexoes de Rede ***
     net use U: \\172.16.1.10\users /persistent:NO
     net use s: \\172.16.1.10\scanner /persistent:NO
    caso esteja utilizando o DFS responde que envio o script de mapeamento relacionado.

    • Marcado como Resposta Richard Juhasz segunda-feira, 22 de agosto de 2011 19:49
    sexta-feira, 19 de agosto de 2011 23:37

Todas as Respostas

  • Boa tarde.

    Nos de mais detalhes do problema.

    Abraço.


    Se útil, classifique.
    Matheus M. Bertuco
    MCT, MCSA, MCTS, MCP.
    http://matheusbertuco.wordpress.com/

    terça-feira, 16 de agosto de 2011 20:19
  • Ja testou mapear manualmente? Se sim e se funcionou pode ser algo no script que você usa.

    terça-feira, 16 de agosto de 2011 23:07
  • Ja testou mapear manualmente? Se sim e se funcionou pode ser algo no script que você usa.

    Provavelmente seria o melhor teste a se fazer. Caso funcione, tente o mapeamento por bat, da seguinte forma:

     

    start \\endereco_da_impressora /f

     

    Att.


    --- Ernesto Polimeni Neto Eng. da Computação
    quarta-feira, 17 de agosto de 2011 18:23
  • boa tarde a todos.

    vou detalhar melhor meu problema.

    no meu ambiente tenho servidores DC 2003 server.

    estou homologando o windows 7, na homologação tive problemas para mapear as unidades de rede e impressoras via VBS. conforme abaixo.

      On error resume next
    '================================================================
    ' Declara os Objetos Necessários
    '================================================================
     
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set WshNetwork = WScript.CreateObject("WScript.Network")
    Set shell = WScript.CreateObject( "WScript.Shell" )
    '================================================================
    ' Inicia Variaveis de Ambiente
    '================================================================
    username = shell.ExpandEnvironmentStrings("%USERNAME%$")
    fRetornoF = fso.DriveExists("F:")
    fRetornoG = fso.DriveExists("G:")
    fRetornoT = fso.DriveExists("H:")
    fRetornoI = fso.DriveExists("I:")
    fRetornoK = fso.DriveExists("K:")
    fRetornoL = fso.DriveExists("L:")
    fRetornoT = fso.DriveExists("T:")
    fRetornoQ = fso.DriveExists("Q:")
    fRetornoN = fso.DriveExists("N:")
    fRetornoR = fso.DriveExists("R:")
    fRetornoV = fso.DriveExists("V:")
    fRetornoU = fso.DriveExists("U:")
    fRetornoU = fso.DriveExists("Y:")
    '================================================================
    ' MAPEAMENTOS GERAIS
    '================================================================
    if fRetornoG = True then
    WshNetwork.RemoveNetworkDrive "G:"
    WshNetwork.MapNetworkDrive "G:", "\\server\departamento$"
    else
    WshNetwork.MapNetworkDrive "G:", "\\server\departamento$"
    end if
    if fRetornoG = True then
    WshNetwork.RemoveNetworkDrive "H:"
    WshNetwork.MapNetworkDrive "H:", "\\server\departamento$"
    else
    WshNetwork.MapNetworkDrive "H:", "\\server\departamento$"
    end if
    if fRetornoG = True then
    WshNetwork.RemoveNetworkDrive "Y:"
    WshNetwork.MapNetworkDrive "Y:", "\\server\departamento$"
    else
    WshNetwork.MapNetworkDrive "Y:", "\\server\departamento$"
    end if
    if fRetornoG = True then
    WshNetwork.RemoveNetworkDrive "I:"
    WshNetwork.MapNetworkDrive "I:", "\\server\departamento$"
    else
    WshNetwork.MapNetworkDrive "I:", "\\server\departamento$"
    end if
    '================================================================
    ' MAPEAMENTOS DE SISTEMAS
    '================================================================
    if fRetornoQ = True then
    WshNetwork.RemoveNetworkDrive "R:"
    WshNetwork.MapNetworkDrive "R:", "\\server\departamento$"
    else
    WshNetwork.MapNetworkDrive "R:", "\\server\departamento$"
    end if
    if fRetornoG = True then
    WshNetwork.RemoveNetworkDrive "J:"
    WshNetwork.MapNetworkDrive "J:", "\\server\departamento$"
    else
    WshNetwork.MapNetworkDrive "J:", "\\server\departamento$"
    end if
    if fRetornoG = True then
    WshNetwork.RemoveNetworkDrive "L:"
    WshNetwork.MapNetworkDrive "L:", "\\server\departamento$"
    else
    WshNetwork.MapNetworkDrive "L:", "\\server\departamento$"
    end if
    if fRetornoG = True then
    WshNetwork.RemoveNetworkDrive "M:"
    WshNetwork.MapNetworkDrive "M:", "\\server\departamento$"
    else
    WshNetwork.MapNetworkDrive "M:", "\\server\departamento$"
    end if
    '================================================================
    ' MAPEAMENTOS DO HOME FOLDER
    '================================================================
    if fRetornoU = True then
    WshNetwork.RemoveNetworkDrive "F:"
    WshNetwork.MapNetworkDrive "F:", "\\server\"& username
    else
    WshNetwork.MapNetworkDrive "F:", "\\server\"& username
    end if
    Set WshNetwork = CreateObject("WScript.Network")
    '================================================================
    ' COPIAR ARQUIVO TNSNAMES DO ORACLE
    '================================================================

    Const OverwriteExisting = TRUE

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    objFSO.CopyFile "\\server\tsname\tnsnames.ora" , "C:\orawin95\NET80\ADMIN\tnsnames.ora" , OverwriteExisting

     

    ............................................................................................................................................................

     

    se tento mapear local ou seja executando o .vbs ou via .bat na maquina ele vai normalmente, mas via GPO ele não mapeia.

    fiz outro teste que é neste arquivo colocar algum campo errado, tirei o comentario para saber se a maquina chega a executar o arquivo e apresentou erro, ou seja está executando porem não mapeia.

    olhei tambem no gpresult para saber se o arquivo está sendo executado só para garantir e aparece o vbs sendo executado.

    desabilitei o firewall e mesmo assim nao mapeou...

    parece ter alguma coisa no windows enterprise 7 pois não mapeia

     

     

     

    obrigado pela ajuda de todos

     

    quinta-feira, 18 de agosto de 2011 17:58
  • Isto quer dizer que em estação com outro sistema operacional funciona certo?
    Tente um script simples porém eficiente, que simplesmente remove a unidade X e mapema a Unidade X.

    Este que você postou e muito complexo além de não manter um padrão na empresa, por exemplo se na minha maquina a pasta Empresa fica na unidade G na maquina do meu colega ao lado poderá estár na unidade Z.


    Faça a sua parte, se você abriu tópico de pergunta acompanhe até obter a resolução e classifique as respostas que mais lhe ajudou, caso resolva o problema sozinho volte e compartilhe a resolução do problema.
    sexta-feira, 19 de agosto de 2011 13:22
  • Crie um arquivo bar para mapear as pastas.

     

    @echo off
    ver
    echo.
    echo *** Desconectando conexoes de rede ***
    net use *  /delete /y
    echo.
    echo **** Atualizando a Hora ****
    net time \\Srv02 /set /y
    echo *** Mapeando as Conexoes de Rede ***
     net use U: \\172.16.1.10\users /persistent:NO
     net use s: \\172.16.1.10\scanner /persistent:NO
    caso esteja utilizando o DFS responde que envio o script de mapeamento relacionado.

    • Marcado como Resposta Richard Juhasz segunda-feira, 22 de agosto de 2011 19:49
    sexta-feira, 19 de agosto de 2011 23:37