Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Livio Zanol

- ASP/VBScript/AD

Por , em ASP Clássico

Recommended Posts

Livio Zanol    0

Livio Zanol
Postado

Pessoal, eh o seguinte:

Eu fiz uma pagina em asp que pega certas informacoes por "QueryString" passadas por parametro para o site e faz a modificacao de dados de um usuario no AD a partir dessas informacoes. Tudo funciona bem, porem quando eu tento atualizar o campo SAMAccountName ou UserPrincipalName, a pagina retorna um erro de HTTP 500... Esse erro soh eh retornado se o dado passado pra uma dessas duas propriedades for diferente do que ja esta... se for igual, nada acontece... alguem pode me ajuda???

Abaixo o cohdigo:

 

<%@ Language = VBScript %><%Option Explicit%><HTML>	<HEAD>		<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">		<TITLE></TITLE>		<%on error goto 0Dim con,comm,Query,oRootDSE,sADsPath,OManager,OUser,OGer,oAddUserSet oRootDSE = GetObject("LDAP://rootDSE")sADsPath = oRootDSE.Get("defaultNamingContext") Dim Nome,SobreNome,Conta,Telefone,OrgaoDim Departamento,Mail,Situacao,GerenteDim Habilitada, Reset,DescricaoNome = Request.QueryString("Nome")SobreNome = Request.QueryString("SobreNome")Conta = Request.QueryString("Conta")Telefone = Request.QueryString("Telefone")Orgao = Request.QueryString("Orgao")Departamento = Request.QueryString("Departamento")Mail = Request.QueryString("Mail")Situacao = Request.QueryString("Situacao")Gerente = Request.QueryString("Gerente")Habilitada = Request.QueryString("Habilitada")Reset = Request.QueryString("Reset")Descricao = Request.QueryString("Descricao")set con = CreateObject("ADODB.Connection")con.Provider="ADsDSOObject"con.Open("Active Directory Provider")set comm = CreateObject("ADODB.Command")set comm.ActiveConnection = conQuery = "<LDAP://OU=Orgaos,OU=Producao," & sADsPath & ">;(&(objectClass=user)(SAMaccountName="&Conta&"));ADsPath, name,displayname,Manager,department;subtree"comm.CommandText=QuerySet OUser = comm.ExecuteQuery = "<LDAP://OU=Orgaos,OU=Producao," & sADsPath & ">;(&(objectClass=user)(DisplayName="&Gerente&"));ADsPath;subtree"comm.CommandText=QuerySet OManager = comm.ExecuteOGer = OManager("ADsPath")set oAddUser = getobject(OUser("adsPath"))Response.Write "TESTE: " & oADDUser.managerWith oAddUser	.Put "samAccountName", Conta	.Put "givenName", Nome	.Put "sn", SobreNome	.Put "DisplayName", Nome & " " & SobreNome	.Put "mail", Mail	.Put "manager", mid(OGer,8)	.Put "TelephoneNumber", Telefone	.Put "Company", Orgao	.Put "Department", Departamento	.Put "userPrincipalName", Conta & "@es.gov.br.local"	If (Descricao <> "") Then		.Put "Description", Descricao	End ifEnd withoAddUser.Setinfosub user()	Response.Write ("COMECO: "& oAddUser.DisplayName & "***" & nome & " " & SobreNome & " " & Conta & " " & Telefone & " " _	& Orgao & " " & Departamento & " " & Mail & " " & Situacao & " " & Gerente & " " & Habilitada & " " & Reset & " " & Descricao)End sub%>	</HEAD>	<body>		<%call user%>	</body></HTML>-----------------------------------------------------------------------------------

Se alguem puder ajudar eu agradeco

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

desabilita as mensagnes de HTTP amigaveis em seu navegadorFerramentas >> Opçoes de Internet >> Aba Avnaçadas >> Mostrar mensagens de http amigaveis

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

de nada tiozinho

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito