Error VBscript

[carlosatchim]

Boa noite!

VBscript não é a minha praia, mas utilizo uma parte de VBScript junto com o AutoHotKey para consultar um Login no AD e retornar os dados como, nome, e-mail, cidade e etc sobre o login em questão.

Acontece que quando o login foi digitado errado ou não foi digitado o login, apresenta "ERROR" e assim fecha o AutoHotKey.

Preciso da ajuda de vocês para apresentar uma mensage box, informando que, caso o login não foi encontrado ou não foi digitado, apresente a janela de mensagem dizendo "Usuário / login, não encontrado no AD"

Print abaixo referente ao login estar em branco, quando o usuário esquece de informar ou digitar o login para consulta no AD:

Nesse outro print, apresenta o erro quando o usuário digitou errado o login a ser consultado ou o login não encontra-se no AD:

Segue o código VBscript que estou usando para consulta no AD:

objRootDSE := ComObjGet("LDAP://rootDSE")
strDomain := objRootDSE.Get("defaultNamingContext")
strADPath := "LDAP://" . strDomain
objDomain := ComObjGet(strADPath)
objConnection := ComObjCreate("ADODB.Connection")
objConnection.Open("Provider=ADsDSOObject")
objCommand := ComObjCreate("ADODB.Command")
objCommand.ActiveConnection := objConnection
CommandText := "<" . strADPath . ">" . ";(&(objectClass=User)(&(sAMAccountName=" id_usr ")))" . ";sAMAccountName,l,cn,company,title,manager,department,mail;subtree"
objCommand.CommandText := CommandText
objRecordSet := objCommand.Execute
objRecordSet.MoveFirst
Login := objRecordSet.Fields("sAMAccountName").Value
SiteCidade := objRecordSet.Fields("l").Value
NomeReorientado := objRecordSet.Fields("cn").value
SiteEmpresa := objRecordSet.Fields("company").Value
Cargo := objRecordSet.Fields("title").Value
Redepartmento := objRecordSet.Fields("department").Value
Remail := objRecordSet.Fields("mail").Value
Manager := objRecordSet.Fields("manager").Value

 

Desde já agradeço pela atenção de todos, muito obrigado!