-
Notifications
You must be signed in to change notification settings - Fork 0
/
Script de Logon
98 lines (69 loc) · 3.27 KB
/
Script de Logon
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
'================================================='
' Script de Logon - www.professorramos.com '
' Cursos Grátis de Windows 2008, 2012 e 2016 SRV '
' http://aulaead.thinkific.com '
'================================================='
'============================================='
' Impedindo exibição de error para o usuário '
'============================================='
On error Resume Next
Err.clear 0
'================================================='
' Mapear Pastas de Acordo com o Grupo do USR '
'================================================='
set objNetwork = CreateObject("WScript.Network")
strDom = objNetwork.UserDomain
strUser = objNetwork.UserName
Set objUser = GetObject("WinNT://" & strDom & "/" & strUser & ",user")
For Each objGroup In objUser.Groups
Select Case objGroup.Name
Case "Grupo_1"
If Not FSODrive.DriveExists("X:") Then
objNetwork.MapNetworkDrive "X:", "\\SRVAULA\COMPARTILHAMENTO1","true"
End If
Case "Grupo_2"
If Not FSODrive.DriveExists("X:") Then
objNetwork.MapNetworkDrive "X:", "\\SRVAULA\COMPARTILHAMENTO2","true"
End If
Case "Grupo_3"
If Not FSODrive.DriveExists("X:") Then
objNetwork.MapNetworkDrive "X:", "\\SRVAULA\COMPARTILHAMENTO3","true"
End If
End Select
Next
'================================================='
' Mapeando Impressoras e Pastas '
'================================================='
Set WshNetwork = Wscript.CreateObject("Wscript.Network")
WshNetwork.AddWindowsPrinterConnection "\\SRVAULA\HP", "HP"
WshNetwork.AddWindowsPrinterConnection "\\SRVAULA\EPSON", "EPSON"
WshNetwork.SetDefaultPrinter "\\SRVAULA\HP", "HP"
WshNetwork.MapNetworkDrive "P:","\\SRVAULA\PUBLICA","true"
WshNetwork.MapNetworkDrive "J:","\\SRVAULA\GERAL","true"
'================================================'
' Criar atalho para um site no Desktop '
'================================================'
set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
set oUrlLink = WshShell.CreateShortcut(strDesktop & "\NOME_DO_LINK.lnk")
oUrlLink.TargetPath = "http://aulaead.thinkific.com"
oUrlLink.IconLocation = "CAMINHO PARA UM .ico"
oUrlLink.Save
'============================================='
' CRIA ATALHO DO COMPARTILHAMENTO NO DESKTOP '
'============================================='
strAppPath = "X:\"
Set wshShell = CreateObject("WScript.Shell")
objDesktop = wshShell.SpecialFolders("Desktop")
set oShellLink = WshShell.CreateShortcut(objDesktop & "\NOME_DO_LINK.lnk")
oShellLink.TargetPath = strAppPath
oShellLink.WindowStyle = "1"
oShellLink.Description = "Pasta do Grupo"
oShellLink.Save
'ENVIA O COMANDO PARA APERTAR A TECLA F5 PARA ATUALIZAR OS ICONES NO DESKTOP
WshShell.SendKeys "{F5}"
'============================================='
' Mensagem no Logon '
'============================================='
MsgBox ("ATENÇÃO: Pedimos que ao desligar seu computador, escolha a opção 'Instalar as atualizações e desligar'." & vbcrlf & "Somente assim seu computador instalará atualizações críticas de segurança e ficará atualizado e seguro." & vbcrlf & "Agradecemos pela compreensão," & vbcrlf & "Atenciosamente," & vbcrlf & "Equipe de TI www.aulaEAD.com")
wscript.quit