Go to the top

Modelo de Script Vbs para Mapeamento

Lofrano / Dicas, Windows Server 2008, Windows Server 2012 / 6 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

Comentários

Comentários

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

Faça um comentário