info sull'utente connesso

[sosan1]

Ciao devo ricavare il nominativo dell'utente connesso
del tipo nomedominio/nomeutente

volevo provare con questo:
WindowsIdentity.GetCurrent().Name()

che ne dite? ha controindicazioni?

[sosan1]

comunque...mi restituisce il nome del computer che ospita l'applicazione web...non l'utente loggato....

scrive nomecomputer/ASPNET

quindi non va proprio...come si fa a ricavare queste info?

[djciko]

Ciao, se parli dell'utente connesso con RedirectFromLoginPage (metodo Forms), ecco un po' di codice per spulciare nel biglietto d'ingresso dell'utente :

 
Imports System.Web.Security

Dim utente as FormsIdentity
Dim ticket as FormsAuthenticationTicket		

' User.Identity restituisce un oggetto di tipo FormsIdentity
Utente = User.Identity
' La proprieta' ticket restituisce un oggetto di tipo FormsAuthenticationTicket 
Ticket = utente.Ticket
	
If User.Identity.IsAuthenticated Then
  Response.write(Utente.Name)
  Response.write(Ticket.UserData)
  .
  .
  .
End if

per le altre proprieta' del ticket (cioe' della classe FormsAuthenticationTicket) cerca nel Reference..

[sosan1]

grazie....ora me lo studio...
nel frattempo avevo utilizzato questo codice

Dim ip As String
ip = Request.ServerVariables("REMOTE_ADDR")

Dim IPAddress()
Dim ips = Dns.Resolve(ip).AddressList
If (ips.Length = 0) Then
Response.Write("Host sconosciuto!")
End If
dammiUserName = Dns.GetHostByAddress(ips(0)).HostName

perchè la mia applicazione gira nella intranet e devo semplicemente ricavare il nome conoscendo l'ip....

a parte il fatto che funziona solo con la rete locale, per il resto pensi ci siano controindicazioni?

[djciko]

dovresti specificare meglio cosa intendi per 'nome'...

il nome dell'utente immesso in una form di login, il nome dell'utente windows che si e' collegato quando ha acceso il pc o altro ?

[sosan1]

hai ragione intendo il nome del computer...

[djciko]

non mi sono mai posto il quesito...ma credo che la risposta stia in una delle ServerVariables dell'HttpRequest.

prova ad incollare questo codice ad inizio della prima pagina e vedi se c'e' :

<%
Dim loop1, loop2 As Integer
Dim arr1(), arr2() As String
Dim coll As NameValueCollection
 
coll=Request.ServerVariables 
arr1 = coll.AllKeys 
For loop1 = 0 To arr1.GetUpperBound(0)
   Response.Write("<font color=red>Key: " & arr1(loop1) & "</font>
")
   arr2 = coll.GetValues(loop1) 
   For loop2 = 0 To arr2.GetUpperBound(0)
      Response.Write("Value " & CStr(loop2) & ": " & arr2(loop2) & "
")
   Next loop2
Next loop1
%>

[sosan1]

...mmmh restituisce molte informazioni...anche l'IP ma non il nome del computer...