Script de Mapeamento (Vbs)

Modelo de Script 

_____________________________________________________________

‘Script de Login

On error Resume Next
Err.clear 0

‘__________________________
‘Mapeando compartilhamentos

Set WshNetwork = Wscript.CreateObject("Wscript.Network")
WshNetwork.MapNetworkDrive "G:","\\servidor\compartilhamento","true"

‘__________________________
‘Mapeando Impressora

Set WshNetwork = Wscript.CreateObject("Wscript.Network")
WshNetwork.AddWindowsPrinterConnection "\\servidor\nomeimpressoracompartilhada", "nomeimpressoracompartilhada"
WshNetwork.SetDefaultPrinter "\\servidor\nomeimpressoracompartilhada", "nomeimpressoracompartilhada"

‘__________________________
‘Sincronizar o horario da estacao com o servidor de active directory

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set objShell = CreateObject("WScript.shell")
strCmd = "net time \\servidorAD /set /yes"
set objexec = objshell.exec(strcmd)

‘__________________________
‘Mensagem 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 xxxxxxxx, respeite as políticas de segurança")
ElseIf Time >= "12:00:01" And Time <= "18:00:00" Then
MsgBox ("Boa Tarde "+Wuser+", você acaba de ingressar na rede xxxxxxxx, respeite as políticas de segurança")
Else
MsgBox ("Boa Noite "+wuser+", você acaba de ingressar na rede xxxxxxxx, respeite as políticas de segurança")
End If

Wscript.Quit

Não esqueça dos seguinte passos.

• Salvar o arquivo com extensão .vbs, exemplo script.vbs
• Copiar o arquivo no servidor domain controller na pasta % SystemRoot% \ sysvol \ sysvol \ <domain name> DNS \ scripts
• Também não esqueça de incluir o nome do seu script (exemplo: script.vbs) nas propriedades da conta dos seus usuários de active directory na guia Perfil.