VBScript - Caixa de Mensagem retornando Nome de Usuário Logado

Caixa de Mensagem com Nome de Usuário Logado

O Script abaixo exibe uma caixa de mensagem retornando:


Exemplo:


Bom Dia,
Sr(a), NOME COMPLETO USUÁRIO LOGADO
Matricula: 201201




'Retornar Nome do Usuário Completo logado
Set objSysInfo = CreateObject("ADSystemInfo")
strUserDN = objSysInfo.UserName
Set objGroup = GetObject("LDAP://" & strUserDN)
PosInicio = InStr(strUserDN,"")
PosFim = InStr(strUserDN, ",")
Dim FULLNAME
FULLNAME = mid(StrUserDN,PosInicio+3,PosFim-4)


'Retornar nome de logon por exemplo nº de matricula
set ObjUser = WScript.createobject ("wscript.network")
MATRICULA = objUser.UserName




MsgBox ("Bom Dia,"& vbCrLf &"Sr(a) "&FULLNAME& vbCrLf &"Matricula: "&MATRICULA)