Script VBS

Prévia do material em texto

17/09/2016 professorramos.com/Materiais/Documentos/ScriptVBS.txt
http://professorramos.com/Materiais/Documentos/ScriptVBS.txt 1/1
'Script de Logon ­ www.professorramos.com ­ Aulas de Windows 2003, 2008, 2008 R2 e 
2012 Grátis !!!
On error Resume Next
Err.clear 0
'============================================================================
'Mapeando Unidades de Disco
Set WshNetwork = Wscript.CreateObject("Wscript.Network")
WshNetwork.MapNetworkDrive "u:","\\nomeserver\usuarios","true"
'============================================================================
'Mapeando Impressora 
Set WshNetwork = Wscript.CreateObject("Wscript.Network")
WshNetwork.AddWindowsPrinterConnection "\\nomeserver\8000", "8000"
WshNetwork.SetDefaultPrinter "\\nomeserver\8000", "8000"
'============================================================================
'Sincroniza o horario da estacao com o servidor
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set objShell = CreateObject("WScript.shell")
strCmd = "net time \\nomeserver /set /yes"
set objexec = objshell.exec(strcmd)
'============================================================================
'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 da Escola 
X, 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 da 
Escola X, 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 
Escola X, por favor respeite as políticas de segurança e bom trabalho!")
End If
Wscript.Quit