Go to the top

Modelo de Script Vbs para Mapeamento

LoFrano / Blog, Dicas, Windows Server 2008, Windows Server 2012 / 8 Comments

Estou colocando um script Vbs disponível para ajudar os administradores de rede que precisam colocar o mapeamento automático de unidades compartilhadas para usuários de domínio ou não.

Normalmente é pratica colocar o arquivo com nome .vbs na pasta netlogon que é o padrão para esse tipo de aplicação. Para que o script funcione, adicione o nome do arquivo no perfil do usuário no active directory.

Segue o código com alguns detalhes e comentários:

‘Script de Login

On error Resume Next

Err.clear 0

‘Desconectando e Mapeando Unidades de Disco

Set WshNetwork = Wscript.CreateObject(“Wscript.Network”)

WshNetwork.RemoveNetworkDrive “E:”, True, True

WshNetwork.RemoveNetworkDrive “H:”, True, True

WshNetwork.RemoveNetworkDrive “P:”, True, True

WshNetwork.RemoveNetworkDrive “K:”, True, True

WshNetwork.MapNetworkDrive “E:”,”\\192.168.1.250\ESCOLA”,”true”

WshNetwork.MapNetworkDrive “H:”,”\\192.168.1.250\FINANCEIRO”,”true”

WshNetwork.MapNetworkDrive “P:”,”\\192.168.1.250\Publico”,”true”

WshNetwork.MapNetworkDrive “K:”,”\\192.168.1.250\DADOS”,”true”

‘Sincroniza o horario da estacao com o servidor

Set objWMIService = GetObject(“winmgmts:\\” & strComputer & “\root\CIMV2”)

Set objShell = CreateObject(“WScript.shell”)

strCmd = “net time \\192.168.1.250 /set /yes”

set objexec = objshell.exec(strcmd)

‘Criando atalhos automaticamente na área de trabalho

strAppPath = “http://192.168.1.250:9675/portal/”

Set wshShell = CreateObject(“WScript.Shell”)

objDesktop = wshShell.SpecialFolders(“Desktop”)

set oShellLink = WshShell.CreateShortcut(objDesktop & “\Help Desk – Suporte.lnk”)

oShellLink.TargetPath = strAppPath

oShellLink.WindowStyle = “1”

oShellLink.IconLocation = “\\192.168.1.250\publico\icone\spiceworks.ico”

oShellLink.Description = “Help Desk – Suporte”

oShellLink.Save

strAppPath = “\\192.168.1.250\publico\suporte\suporte.exe”

Set wshShell = CreateObject(“WScript.Shell”)

objDesktop = wshShell.SpecialFolders(“Desktop”)

set oShellLink = WshShell.CreateShortcut(objDesktop & “\Suporte Remoto.lnk”)

oShellLink.TargetPath = strAppPath

oShellLink.WindowStyle = “1”

oShellLink.IconLocation = “\\192.168.1.250\publico\suporte\spiceworks.ico”

oShellLink.WorkingDirectory = “\\192.168.1.250\publico\suporte\”

oShellLink.Description = “Suporte Remoto”

oShellLink.Save

Wscript.Quit

Claudio D 7 de junho de 2014

valeu! não sabia como desconectar as unidades
abraço

Joonas P 20 de junho de 2014

Como faço pra conectar mais letras? tipow Z: M:

Lofrano 20 de junho de 2014

para mapear outras pastas na rede adiciona mais linhas no script vbs e coloque a letra da unidade

Luciano 7 de julho de 2014

Boa tarde! os atalhos criados no desktop no windows 8.1 as imagens não aparecem, sabe o que pode ser ? já olhei permissões e aparentemente esta tudo ok.

Lofrano 7 de julho de 2014

o que manda ai são os icones, é necessário apontar os icones corretamente no caminho.

Alvaro 12 de agosto de 2014

precisa mesmo desconectar as letras de mapeamento?
acho que da para mapear varios servidores correto

kleiton freitas 3 de abril de 2017

para passar as credencias do usuario?

Jose A Cobello 25 de maio de 2023

Parabéns pelo script e pelo conteúdo muito auxiliador.
Mais fiquei com uma dúvida na criação dos e atalhos no desktop e qual o motivo de ser usado o caminho como https. Não poderia usar o caminho logico ou o ip do servidor/ nome d servior

Fico no aguardo

Faça um comentário

Esse site utiliza o Akismet para reduzir spam. Aprenda como seus dados de comentários são processados.