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