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 }

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!

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").ValueDesde já agradeço pela ajuda de todos, muito obrigado!