---

Hej med jer,

Sidder lige og prøver, at finde brugernavnet man er logget ind med i
Windows. Er der nogen, som har arbejdet med det før?

Lidt sourcecode eksempel ville være super.

På forhånd tak,
Jan

---

Private Declare Function WNetGetUserA Lib "mpr" (ByVal lpname As String, _
ByVal lpUserName As String,
_
lpnlength As Long) As Long

Function HentBruger() As String
Dim Bruger As String * 255
Bruger = Space(255)
Call WNetGetUserA(vbNullString, Bruger, 255&)
HentBruger = Left$(Bruger, InStr(Bruger, vbNullChar) - 1)
End Function

Steen Alcor
Fjern NET i min svaradresse


"Jan Vinten" <newsRE_MOVE@vintenBIG_LETTER.netTHANK_YOU> skrev i en
meddelelse news:3f219463$0$24658$edfadb0f@dread14.news.tele.dk...
> Hej med jer,
>
> Sidder lige og prøver, at finde brugernavnet man er logget ind med i
> Windows. Er der nogen, som har arbejdet med det før?
>
> Lidt sourcecode eksempel ville være super.
>
> På forhånd tak,
> Jan
>
>

---

Hej Steen,

Jeg takker - det virker!

/ Jan


"Steen Alcor" <news@alcor.dk> wrote in message
news:3f21b9b5$0$32449$edfadb0f@dread16.news.tele.dk...
> Private Declare Function WNetGetUserA Lib "mpr" (ByVal lpname As String, _
> ByVal lpUserName As
String,
> _
> lpnlength As Long) As
Long
>
> Function HentBruger() As String
> Dim Bruger As String * 255
> Bruger = Space(255)
> Call WNetGetUserA(vbNullString, Bruger, 255&)
> HentBruger = Left$(Bruger, InStr(Bruger, vbNullChar) - 1)
> End Function
>
> Steen Alcor
> Fjern NET i min svaradresse
>
>
> "Jan Vinten" <newsRE_MOVE@vintenBIG_LETTER.netTHANK_YOU> skrev i en
> meddelelse news:3f219463$0$24658$edfadb0f@dread14.news.tele.dk...
> > Hej med jer,
> >
> > Sidder lige og prøver, at finde brugernavnet man er logget ind med i
> > Windows. Er der nogen, som har arbejdet med det før?
> >
> > Lidt sourcecode eksempel ville være super.
> >
> > På forhånd tak,
> > Jan
> >
> >
>
>

---

Hvad med at gøre det lidt simpelt

Dim UserName As String
UserName = VBA.Environ("USERNAME")

Med Venlig Hilsen
Mads Peter Jensen

"Jan Vinten" <newsRE_MOVE@vintenBIG_LETTER.netTHANK_YOU> wrote in message
news:3f219463$0$24658$edfadb0f@dread14.news.tele.dk...
> Hej med jer,
>
> Sidder lige og prøver, at finde brugernavnet man er logget ind med i
> Windows. Er der nogen, som har arbejdet med det før?
>
> Lidt sourcecode eksempel ville være super.
>
> På forhånd tak,
> Jan
>
>

---

Mads Peter Jensen skrev:
> Hvad med at gøre det lidt simpelt
>
> Dim UserName As String
> UserName = VBA.Environ("USERNAME")

Det virker vist ikke i alle Windows-versioner, så vidt jeg husker.

-------
Tomas

---

Hej Tomas

Lige nøjagtig dette har jeg ikke haft problemer med at få til at virke i
alle Windows versioner.

Med Venlig Hilsen
Mads Peter Jensen


"Tomas Christiansen" <toc-01-nospam@blikroer.dk> wrote in message
news:bgrrgl$v5c$1@news.cybercity.dk...
> Mads Peter Jensen skrev:
> > Hvad med at gøre det lidt simpelt
> >
> > Dim UserName As String
> > UserName = VBA.Environ("USERNAME")
>
> Det virker vist ikke i alle Windows-versioner, så vidt jeg husker.
>
> -------
> Tomas
>

---

Mads Peter Jensen skrev:
> Lige nøjagtig dette har jeg ikke haft problemer med at få til at virke i
> alle Windows versioner.

Okay, jeg var ikke helt sikker mht. f.eks. Win95, men der er en anden ting:
WNetGetUser bruges til at finde det brugernavn som der er logget på
netværket med, hvorimod environment variablen USERNAME vel angiver navnet på
den bruger som er logget på Windows (har ikke kunne finde relevant info
omkring dette). De to brugernavne _behøver_ ikke at være det samme.

-------
Tomas