/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
VB60: Brugernavn i Win NT, 2000 og XP
Fra : Thomas Larsen


Dato : 03-05-02 07:50

Hej NG!

Ved nogen hvordan jeg henter det aktuelle brugernavn, der er logget på en
given maskine?


Mvh.
Thomas



 
 
Michael Salomonsen (03-05-2002)
Kommentar
Fra : Michael Salomonsen


Dato : 03-05-02 13:44

"Thomas Larsen" <test@test.dk> wrote in message
news:3cd2333a$0$10677$4d4eb98e@read.news.dk.uu.net...
> Hej NG!
>
> Ved nogen hvordan jeg henter det aktuelle brugernavn, der er logget på en
> given maskine?


brugerlogin = environ("username")

-Michael



Helge Bjørkhaug (03-05-2002)
Kommentar
Fra : Helge Bjørkhaug


Dato : 03-05-02 17:28

On Fri, 3 May 2002 08:50:19 +0200, "Thomas Larsen" <test@test.dk> wrote:

>Hej NG!
>
>Ved nogen hvordan jeg henter det aktuelle brugernavn, der er logget på en
>given maskine?

Private Declare Function w32_WNetGetUser Lib "mpr.dll" Alias "WNetGetUserA"
(ByVal lpszLocalName As String, ByVal lpszUserName As String, lpcchBuffer As
Long) As Long

Private Sub Form_Load()
Dim strUserName As String, lngLength As Long, lngResult As Long
strUserName = String(256, Chr$(0))
lngResult = w32_WNetGetUser(vbNullString, strUserName, 256)
If lngResult = 0 Then
strUserName = Left$(strUserName, InStr(1, strUserName, Chr$(0)) - 1)
MsgBox "Nettverk brukernavnet er: " + strUserName + ".",
vbInformation + vbOKOnly, App.Title
Else
MsgBox "Kunne ikke finne brukernavn!", vbExclamation + vbOKOnly,
App.Title
End If
End Sub

--
Snutten
Fjern helge og .invalid fra mailadressen før du svarer via mail.

Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste