SCRIPT 2012.vbs

Prévia do material em texto

17/09/2016 professorramos.com/Materiais/Documentos/SCRIPT2012vbs.txt
http://professorramos.com/Materiais/Documentos/SCRIPT2012vbs.txt 1/2
'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
17/09/2016 professorramos.com/Materiais/Documentos/SCRIPT2012vbs.txt
http://professorramos.com/Materiais/Documentos/SCRIPT2012vbs.txt 2/2
Wscript.Quit