none
Script para deletar mapeamento em vbscript. RRS feed

  • Pergunta

  • Pessoa Bom Dia!

    Presto consultoria em uma empresa onde estou implementando um DFS File nos servidores Windows Server 2008 R2.

    Reparei que meu cliente existe um Script de logon configurado da seguinte maneira abaixo:

    'Linha adicionada pela moderação
    Set Rede = WScript.CreateObject("WScript.Network")
    
    
    'MAPEAMENTOS
    
    On Error Resume Next
    caminho = "\\Servidor\DRIVE_F$"
    Rede.MapNetworkDrive "F:", caminho
    Nome.NameSpace("F:").Self.Name = "GRUPO NOME DA EMPRESA DADOS"
    
    On Error Resume Next
    caminho = "\\Servidor\viagens$"
    Rede.MapNetworkDrive "G:", caminho
    Nome.NameSpace("G:").Self.Name = "GRUPO NOME DA EMPRESA VIAGENS"


    A minha duvida é se eu alterar os caminhos acima para \\domain\fs\sharedfolders ira substituir os mapeamentos ou terei que acrecentar um delete mapeamento no vbscript se sim como faço?

    Agradeço a todos que respoderem

    Leonardo Almeida


    • Editado Fábio JrModerator sexta-feira, 13 de julho de 2012 15:02 Formatação do código
    sexta-feira, 13 de julho de 2012 13:39

Respostas

  • Leonardo,

    Remova os drives antes de mapear, assim você evita o problema.

    'Linha adicionada pela moderação
    Set Rede = WScript.CreateObject("WScript.Network")
    set Nome = createObject("shell.application")
    
    
    'Remove Drives
    Rede.RemoveNetworkDrive "F:"
    Rede.RemoveNetworkDrive "G:"
    
    
    'MAPEAMENTOS
    
    On Error Resume Next
    caminho = "\\Servidor\DRIVE_F$"
    Rede.MapNetworkDrive "F:", caminho
    Nome.NameSpace("F:").Self.Name = "GRUPO NOME DA EMPRESA DADOS"
    
    On Error Resume Next
    caminho = "\\Servidor\viagens$"
    Rede.MapNetworkDrive "G:", caminho
    Nome.NameSpace("G:").Self.Name = "GRUPO NOME DA EMPRESA VIAGENS"


    Fábio de Paula Junior

    terça-feira, 17 de julho de 2012 21:51
    Moderador

Todas as Respostas

  • Leonardo,

    Seu código está faltando algumas linhas, tem uma variavel Nome que não foi declarada. Isto não tem relação com seu problema, é apenas uma observação para deixar o código pronto pra quem se dispor a ajudar. Estava faltando também o Rede, eu já incluí.


    Fábio de Paula Junior


    sexta-feira, 13 de julho de 2012 15:04
    Moderador
  • Muito Obrigado Fabio;
    sexta-feira, 13 de julho de 2012 20:55
  • Leonardo,

    Remova os drives antes de mapear, assim você evita o problema.

    'Linha adicionada pela moderação
    Set Rede = WScript.CreateObject("WScript.Network")
    set Nome = createObject("shell.application")
    
    
    'Remove Drives
    Rede.RemoveNetworkDrive "F:"
    Rede.RemoveNetworkDrive "G:"
    
    
    'MAPEAMENTOS
    
    On Error Resume Next
    caminho = "\\Servidor\DRIVE_F$"
    Rede.MapNetworkDrive "F:", caminho
    Nome.NameSpace("F:").Self.Name = "GRUPO NOME DA EMPRESA DADOS"
    
    On Error Resume Next
    caminho = "\\Servidor\viagens$"
    Rede.MapNetworkDrive "G:", caminho
    Nome.NameSpace("G:").Self.Name = "GRUPO NOME DA EMPRESA VIAGENS"


    Fábio de Paula Junior

    terça-feira, 17 de julho de 2012 21:51
    Moderador