Usuário com melhor resposta
script vbs mapeamento pasta rede

Pergunta
-
pessoal
tenho um script em vbs que mapeia varias pastas para os usuarios
so que estou com um problema
cada vez que o usuario logo o script em vbs tenta mapear de novo, como a unidade ja esta mapeada ele apresenta uma tela com erro
dizendo que a letra ja esta em uso
como faço pra que nao exiba mais esta tela
e que ele verifique que ja tem a letra mapeada e nao tente mapear de novo
veja o meu script
Dim WshNetwork
Set WshNetwork = WScript.CreateObject("WScript.Network")
WshNetwork.MapNetworkDrive "G:", "\\servidor\pessoal"
WshNetwork.MapNetworkDrive "H:", "\\servidor\public"
WshNetwork.MapNetworkDrive "F:", "\\servidor\usuarios"
aguardo
Respostas
-
Olá,
Utilize o exemplo abaixo:
Set wshNetwork = CreateObject("WScript.Network")
Set oDrives = WshNetwork.EnumNetworkDrives
'COLOCAR AS UNIDADES QUE DESEJA MAPEAR -> AQUI ELE SO DESCONECTA
DriveMapper "G:"
wshNetwork.MapNetworkDrive "G:", "\\server01\share"
Sub DriveMapper(Drive)
For i = 0 to oDrives.Count -1 Step 2
if LCase(Drive) = LCase(oDrives.Item(i)) then
WshNetwork.RemoveNetworkDrive Drive, true, true
End if
Next
End sub
O script acimia tem a Sub DriveMapper que desconecta a unidade que você quer antes de mapear.
Até mais,
Jesiel
Obs.: Se útil, classifique
- Marcado como Resposta Fábio JrModerator quinta-feira, 9 de fevereiro de 2012 10:41
Todas as Respostas
-
Olá,
Utilize o exemplo abaixo:
Set wshNetwork = CreateObject("WScript.Network")
Set oDrives = WshNetwork.EnumNetworkDrives
'COLOCAR AS UNIDADES QUE DESEJA MAPEAR -> AQUI ELE SO DESCONECTA
DriveMapper "G:"
wshNetwork.MapNetworkDrive "G:", "\\server01\share"
Sub DriveMapper(Drive)
For i = 0 to oDrives.Count -1 Step 2
if LCase(Drive) = LCase(oDrives.Item(i)) then
WshNetwork.RemoveNetworkDrive Drive, true, true
End if
Next
End sub
O script acimia tem a Sub DriveMapper que desconecta a unidade que você quer antes de mapear.
Até mais,
Jesiel
Obs.: Se útil, classifique
- Marcado como Resposta Fábio JrModerator quinta-feira, 9 de fevereiro de 2012 10:41
-