Usuário com melhor resposta
Erros de Mapeamento no LOGIN

Pergunta
-
Galera,
Tenho um Servidor 2003 Enterprise R2, fiz um script de mapeamento da unidade, conforme abaixo:
Set WshNetwork = WScript.CreateObject("WScript.Network")
WshNetwork.MapNetworkDrive "H:", "\\SERVIDOR1\SYS1"
Na hora que o usuário se loga aparece uma mensagem de erro:
Script: \\servidor1\netlogon\script.vbs
Linha: 3
Caract.: 1
Erro: O nome do dispositivo local já está em uso.
Código: 80070055
Origem: WSHNetwork.MapNetworkDrive
Como posso resolver este problema ? Já dei acesso a pasta NETLOGON.
Respostas
-
Está correto mas é importante manter este comando para que usuários que não tenham uma pasta mapeada no drive H: recebam uma mensagem na tela.
Para forçar que o mapeamento seja removido adicione mais um "True" no camando.
Code BlockOn Error Resume Next
Set WshNetwork = WScript.CreateObject("WScript.Network")
WshNetwork.RemoveNetworkDrive "H:",True,True
WshNetwork.MapNetworkDrive "H:", "\\SERVIDOR1\SYS1"
-
Estranho, porque teste aqui e está funcionando! Este erro é referente a alguma falta de aspas ou parenteses no final da linha 1.
De toda forma o comando "On Error Resume Next" faz com que nenhum erro seja mostrado. Você está utilizando a ultima versão do script que foi postado?
Todas as Respostas
-
Este erro é porque a letra "H:" já esta em uso pelo mapeamento que foi feito da vez anterior em que o usuário se logou.
Então deixe assim:
Code BlockSet WshNetwork = WScript.CreateObject("WScript.Network")
WshNetwork.RemoveNetworkDrive "H:", true
WshNetwork.MapNetworkDrive "H:", "\\SERVIDOR1\SYS1"
-
Muito bom Bruno,
Mas me daparei com outro erro!!!
Algumas pessoas marcaram a opção reconectar-se durante o logon, então o script não detona a unidade.
Erro: O nome de dispositivo local tem uma conexão lembrada com outro recurso de rede.
Código: 800104B2
Obrigado,
Jensen Clayton
-
-
-
Está correto mas é importante manter este comando para que usuários que não tenham uma pasta mapeada no drive H: recebam uma mensagem na tela.
Para forçar que o mapeamento seja removido adicione mais um "True" no camando.
Code BlockOn Error Resume Next
Set WshNetwork = WScript.CreateObject("WScript.Network")
WshNetwork.RemoveNetworkDrive "H:",True,True
WshNetwork.MapNetworkDrive "H:", "\\SERVIDOR1\SYS1"
-
-
-
Bruno,
Testei o script, na hora de me logar, apreceu este erro para mim é o seguinte:
Script:\\SERVIDOR1\NETLOGON\script.vbs
Linha: 1
Carct.: 14
Erro: Fim da instrução esperado
Código.: 800A0401
Origem: Erro de compilação do Microsoft VBScript
-
Estranho, porque teste aqui e está funcionando! Este erro é referente a alguma falta de aspas ou parenteses no final da linha 1.
De toda forma o comando "On Error Resume Next" faz com que nenhum erro seja mostrado. Você está utilizando a ultima versão do script que foi postado?