consulta login ad (active directory) Erro ao executar VBScript com a variavel vazia ou não existe.

[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:

Outro print abaixo o erro de quando o usuário digitou de forma errada ou o AD não encontrou o Login informado:

Estou usando o seguinte codigo 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 ajuda de todos, muito obrigado!

[carlosatchim]

Resolvido!

 

   {
    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
    
    If objRecordSet.RecordCount = 0 Then
    {
     MsgBox,48,LOGIN NÃO LOCALIZADO,LOGIN:"%id_usr%" NÃO ENCONTRADO NA BASE DE DADOS!
     Return
    }
    
    else
    objRecordSet.MoveFirst
    Login := objRecordSet.Fields("sAMAccountName").Value
    NomeReorientado := objRecordSet.Fields("cn").value
    SiteCidade := objRecordSet.Fields("l").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
   }