carlosatchim
-
Total de itens
3 -
Registro em
-
Última visita
Posts postados por 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!
-
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!
Erro ao executar VBScript com a variavel vazia ou não existe.
em ASP
Postado
Resolvido!