Script.BAT
net use U: \\servidor\funcionarios /USER:leandro 12345
net use O: \\servidor\outlook /USER:leandro 12345
net use N: \\servidor\estoque /USER:leandro 12345
net use P: \\servidor\vendas /USER:leandro 12345
net use x: \\servidor\nomedapasta /persistent:yes
SCRIPT-VBS.TXT
'Script de Logon - www.professorramos.com - Aulas de Windows 2003, 2008, 2008 R2 e 2012 Grátis !!!
'============================================================================
'Impedindo exibição de error para o usuário
On error Resume Next
Err.clear 0
'============================================================================
'Mapeando Unidades de Disco
Set WshNetwork = Wscript.CreateObject("Wscript.Network")
WshNetwork.MapNetworkDrive "P:","\\SERVER\PASTA1","true"
WshNetwork.MapNetworkDrive "O:","\\SERVER\PASTA2","true"
WshNetwork.MapNetworkDrive "U:","\\SERVER\PASTA3","true"
'============================================================================
'Mapeando Impressora
Set WshNetwork = Wscript.CreateObject("Wscript.Network")
WshNetwork.AddWindowsPrinterConnection "\\SERVER\PRINTER1", "PRINTER1"
WshNetwork.SetDefaultPrinter "\\SERVER\PRINTER", "PRINTER1"
'============================================================================
'CRIA ATALHO DO COMPARTILHAMENTO NO DESKTOP
strAppPath = "U:\"
Set wshShell = CreateObject("WScript.Shell")
objDesktop = wshShell.SpecialFolders("Desktop")
set oShellLink = WshShell.CreateShortcut(objDesktop & "\Diretorio Pessoal.lnk")
oShellLink.TargetPath = strAppPath
oShellLink.WindowStyle = "1"
oShellLink.Description = "Diretorio Pessoal"
oShellLink.Save
'ENVIA O COMANDO PARA APERTAR A TECLA F5 PARA ATUALIZAR OS ICONES NO DESKTOP
WshShell.SendKeys "{F5}"
'============================================================================
'SINCRONIZA HORARIO ESTAÇÃO x SERVIDOR
Set wshShell = CreateObject("WScript.Shell")
wshShell.Run "NET TIME \\SERVER /SET /Y", 0, True
'============================================================================
'Boas Vindas Ao Usuario
Set objUser = WScript.CreateObject("WScript.Network")
wuser=objUser.UserName
If Time <= "12:00:00" Then
MsgBox ("Bom Dia "+Wuser+", você acaba de ingressar na rede corporativa PROFESSRRAMOS.COM por favor respeite as políticas de segurança e bom trabalho!")
ElseIf Time >= "12:00:01" And Time <= "18:00:00" Then
MsgBox ("Boa Tarde "+Wuser+", você acaba de ingressar na rede corporativa PROFESSRRAMOS.COM, por favor respeite as políticas de segurança e bom trabalho!")
Else
MsgBox ("Boa Noite "+wuser+", você acaba de ingressar na rede corporativa da PROFESSRRAMOS.COM, por favor respeite as políticas de segurança e bom trabalho!")
End If
Wscript.Quit