Modelo de Script Vbs para Mapeamento

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

6 Comentários

Claudio D  em junho 7th, 2014

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

Joonas P  em junho 20th, 2014

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

Lofrano  em junho 20th, 2014

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

Luciano  em julho 7th, 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  em julho 7th, 2014

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

Alvaro  em agosto 12th, 2014

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

Deixar um comentário