Bom dia Galera!
Venho compartilhar um script que desenvolvi para mensagem de boas vindas ao usuário,
É só criar um arquivo .vbs editar, inserir os dados e depois executar..
Ele mostra os dados do usuário com base no AD, é só alterar para sua necessidades.
‘=============================================
‘Boas Vindas Ao Usuario
Set objSysInfo = CreateObject("ADSystemInfo")
strUserDN = objSysInfo.UserName
Set objGroup = GetObject("LDAP://" & strUserDN)
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set WshShell = WScript.CreateObject("WScript.Shell")
Set ObjUser = WScript.createobject ("wscript.network")
PosInicio = InStr(strUserDN,"")
PosFim = InStr(strUserDN, ",")
Dim WshNetwork
Dim dataAtual, dataFormatada
Dim WshShell, BtnCode
Dim nome
login = objUser.UserName
nome = mid(StrUserDN,PosInicio+3,PosFim-4)
dataAtual = now ( )
dataFormatada = FormatDateTime(dataAtual, 1)
If Time = "12:00:01" And Time <= "18:00:00" Then
BtnCode = WshShell.Popup("Boa tarde, Sr(a) " &nome& " bem-vindo a Sua Empresa." &vbCrLf&" "&vbCrLf&"Por favor respeite nossas políticas de segurança e tenha um bom trabalho!"&vbCrLf&" "&vbCrLf&"Usuário: "&login & vbCrLf &"Estação: "&WshNetwork.ComputerName& vbCrLf &"Horario: "&dataAtual, 7, "Nome da Mensagem", 64)
Else
BtnCode = WshShell.Popup("Boa noite, Sr(a) " &nome& " bem-vindo a Sua Empresa." &vbCrLf&" "&vbCrLf&"Por favor respeite nossas políticas de segurança e tenha um bom trabalho!"&vbCrLf&" "&vbCrLf&"Usuário: "&login & vbCrLf &"Estação: "&WshNetwork.ComputerName& vbCrLf &"Horario: "&dataAtual, 7, "Nome da Mensagem", 64)
End If
OBs.
7 = Tempo para mensagem fechar
64 Icone da mensagem "Informação"
LOREM
