Usuário com melhor resposta
Script para deletar mapeamento em vbscript.

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
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
- Sugerido como Resposta Fábio JrModerator quarta-feira, 18 de julho de 2012 19:50
- Marcado como Resposta Fábio JrModerator sexta-feira, 20 de julho de 2012 11:28
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
- Editado Fábio JrModerator sexta-feira, 13 de julho de 2012 15:04
-
-
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
- Sugerido como Resposta Fábio JrModerator quarta-feira, 18 de julho de 2012 19:50
- Marcado como Resposta Fábio JrModerator sexta-feira, 20 de julho de 2012 11:28