---
title: "email adress för aktuell användare på nätverket"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/131306-email-adress-för-aktuell-användare-på-nätverket"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "G8"
published: "2005-07-12T13:55:24.000Z"
updated: "2005-07-14T18:21:25.000Z"
replies: 4
views: 266
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/131306-email-adress-för-aktuell-användare-på-nätverket"
---

# email adress för aktuell användare på nätverket

## #1 — G8, 2005-07-12T13:55Z

Finns det något sätt att komma åt den emailadress som användaren har på nätverket från asp? Vi använder exchange 2003 och AD, så jag tänkte att man kunde använda LDAP. Har letat mig galen på MSDN och google bl.a. utan att hitta nått som tar "current_user" om man säger. Borde jag kanske kolla på andra lösningar än just LDAP för ändamålet?

//G8

RED: Det är ett slutet domän, där alla är inloggade mot AD. Funktionen behövs för en intranet applikation...

Permalänk: https://www.webforum.nu/p/131306

## #2 — G8, 2005-07-12T15:35Z

Detta kan vara det jag letar efter, ska testa imorgon...

<http://www.freevbcode.com/ShowCode.Asp?ID=710>

Permalänk: https://www.webforum.nu/p/1645282

## #3 — G8, 2005-07-14T08:20Z

Hm, får fortfarande inte till det, någon som har en annan approach? Skulle det gå att ta reda på användarnamn eller liknande genom ASP eller kanske rent av javascript?

Ingen som vet?

Permalänk: https://www.webforum.nu/p/1645801

## #4 — G8, 2005-07-14T12:44Z

Varför funkar inte denna koden då, någon som har lite koll på asp och ldap?

```
objRootOU="ou=Users,"
Set objDomain = GetObject ("GC://rootDSE")
objADsPath = objDomain.Get("defaultNamingContext")
Set objDomain = Nothing
Set con = Server.CreateObject("ADODB.Connection")
con.provider ="ADsDSOObject"
con.open "Active Directory Provider"
Set Com = CreateObject("ADODB.Command")
Set Com.ActiveConnection = con 
Com.CommandText ="select userPrincipalName from 'GC://"+objRootOU+objADsPath+"' WHERE objectCategory='person' AND objectClass='user' AND userPrincipalName='the_username' ORDER BY userPrincipalName"
Set rs = Com.Execute
```

Permalänk: https://www.webforum.nu/p/1645879

## #5 — lilja, 2005-07-14T18:21Z

borde inte den näst understa raden vara:

```
Com.CommandText ="select userPrincipalName from 'GC://" & objRootOU & objADsPath & "' WHERE objectCategory='person' AND objectClass='user' AND userPrincipalName='the_username' ORDER BY userPrincipalName"
```

Alltså & istället för +??

Permalänk: https://www.webforum.nu/p/1645969

---

Tråden på webben: https://www.webforum.nu/amne/asp/131306-email-adress-för-aktuell-användare-på-nätverket