Runat = "Client"

[Gdias 0]

Salve amigos,

 

Ontem surgiu um probleminha que postei aqui... não conseguia pegar o LOGON_USER do usuário...

Li todo o manual do IIS e não achei solução, então, conversando com um cara da rede descobri que a rede onde fica o servidor de intranet é diferente da rede onde as máquinas ficam alocadas, logo, não tem como o servidor de web pegar esse LOGON_USER...

 

Então pensei... não tem como eu utilizar o código dentro das TAGS Runat só que ao invés do lado Server ser do lado Client?

 

É possível?

 

Já joguei no Global.asa e deu pau, jogei no arquivo .asp que puxa o Logon e deu pau... o que faço?

 

Segue o código... por favor, me ajudem, isso tem que estarrodando até as 14h de hoje, hora da apresentação do sistema.

 

server.asp

<script LANGUAGE=VBScript RUNAT="Client"><%Dim UserID, wUserName, wDominio, wUser, oUser, MatriculaUserID = ""If IsEmpty(UserID) Or IsNull(UserID) Or UserID = "" ThenUserID = Request.ServerVariables("LOGON_USER")UserID = LCase(UserID)If IsEmpty(UserID) Or IsNull(UserID) Or UserID = "" ThenResponse.Status = "401 Acesso Negado"Response.Write ("Negado. Você não está autorizado a este site.")Response.EndElseUserID = Replace(UserID, "\", "/")If InStr(UserID, "/") < 1 ThenUserID = "defaultdomain/" & UserIDEnd IfEnd IfEnd IfGetName = ""wUserName = "Usuário não cadastrado"mudar = Split(UserID, "/")wDominio = mudar(0)wUser = mudar(1)Set oUser = GetObject("WinNT://" & wDominio & "/" & wUser)wUserName = oUser.FullNameIf err.Number <> 0 Thenerr.ClearwUserName = "erro - Usuário não cadastrado"End IfSession("Nome") = wUserNameSession("Login") = UCase(wUser)Session("Dominio") = UCase(wDominio)response.write Session("Nome") & "<br>"response.write Session("Login") & "<br>"response.write Session("Dominio") & "<br>"%></script>

Valeu pela atenção,

Gustavo

[Gdias 0]

opa... é tão difícil assim?(rs)