none
Script vbs RRS feed

  • Pergunta

  • Tenho um script em vbs para mapeamento de pastas no servidor que roda via GPO. Acontece que em algumas estações, o logon é mais lento e as vezes principalmente ao ligar o micro, as pastas não aparecem mapeadas. O AD esta todo estruturado, tendo uma OU para cada departamento. Antes, tinha um script para cada OU mas agora deixei apenas um na raiz e mesmo assim o problema persiste. Gostaria se o mais indicado é fazer o mapeamento por GPO mesmo ou mudar para um script de logon.
    terça-feira, 1 de setembro de 2009 18:48

Respostas

  • Olá,

    Coloque para desconectar as unidades primeiro, depois mapear, conforme o exemplo abaixo:


    Set objNet = CreateObject("Wscript.Network")
    Set oDrives = WshNetwork.EnumNetworkDrives

    Desconectar "G:"
    Desconectar "H:"
    Desconectar "M:"

    objNet.MapNetworkDrive "G:","\\servidor1\compartilhamento1"
    objNet.MapNetworkDrive "H:","\\servidor1\Compartilhamento2"
    objNet.MapNetworkDrive "M:","\\servidor2\Compartilhamento3"


    Sub Desconectar(Drive)
    For i = 0 to oDrives.Count -1 Step 2
       if LCase(Drive) = LCase(oDrives.Item(i)) then
          objNet.RemoveNetworkDrive Drive, true, true
       End if
    Next

    End sub



    Até mais,

    Jesiel

    Obs.: Se útil, classifique


    terça-feira, 1 de setembro de 2009 20:45

Todas as Respostas

  • Olá,

    Talvez seja um problema de DNS... ou até mesmo o script... Se você puder postar o script, podemos verificar pra você.

    Por GPO, você tem a opção: Computer Configuration\Administrative Templates\System\Logon\Always wait for the network at computer startup and logon.

    Assim você sempre vai precisar ter rede para fazer logon... (se habilitar, você pode eliminar a hipótese problema de comunicação com o server)



    Até mais,

    Jesiel

    Obs.: Se útil, classifique


    terça-feira, 1 de setembro de 2009 20:06
  • O script é bem simples:

    Set objNet = CreateObject("Wscript.Network")
    objNet.MapNetworkDrive "G:","\\servidor1\compartilhamento1"

    Set objNet = CreateObject("Wscript.Network")
    objNet.MapNetworkDrive "H:","\\servidor1\Compartilhamento2"

    Set objNet = CreateObject("Wscript.Network")
    objNet.MapNetworkDrive "M:","\\servidor2\Compartilhamento3"
    terça-feira, 1 de setembro de 2009 20:34
  • Olá,

    Coloque para desconectar as unidades primeiro, depois mapear, conforme o exemplo abaixo:


    Set objNet = CreateObject("Wscript.Network")
    Set oDrives = WshNetwork.EnumNetworkDrives

    Desconectar "G:"
    Desconectar "H:"
    Desconectar "M:"

    objNet.MapNetworkDrive "G:","\\servidor1\compartilhamento1"
    objNet.MapNetworkDrive "H:","\\servidor1\Compartilhamento2"
    objNet.MapNetworkDrive "M:","\\servidor2\Compartilhamento3"


    Sub Desconectar(Drive)
    For i = 0 to oDrives.Count -1 Step 2
       if LCase(Drive) = LCase(oDrives.Item(i)) then
          objNet.RemoveNetworkDrive Drive, true, true
       End if
    Next

    End sub



    Até mais,

    Jesiel

    Obs.: Se útil, classifique


    terça-feira, 1 de setembro de 2009 20:45
  • Jesiel

    Obrigado pela dica.

    Vou testar e depois confirmo se funcionou.
    terça-feira, 1 de setembro de 2009 21:26