none
Script para deletar mapeamento em vbscript. RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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
  • Question
    Entrar para Votar
    0
    Entrar para Votar
    Muito Obrigado Fabio;
    sexta-feira, 13 de julho de 2012 20:55
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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