Avatar billede joern Nybegynder
22. november 1999 - 22:57 Der er 9 kommentarer og
1 løsning

Get User Name VB 5.0

Gymnasiets elever må ikke installere på PC'erne.  Man kan kun komme til at anvende en maskine med sit user-id og password, der giver internetadgang m.v. gennem NT-server.  Når der oprettes mapper kan NT fortælle om "ownership", men der er behov for at kunne logge hvilken bruger der er online i hvilket tidsrum.  Jeg har forsøgt at få nedenstående til at opfange User-Id.

From:    jcolman@ISA.CO.UK                                                 
                                                                           
Declare the following:                                                     

Declare Function WNetGetUser% Lib "USER" (ByVal Userid As String, BufSize As Integer)                                                                             

Get User Functions:                                                           
                                                                             
Function GetUser () As String
Dim ReturnCode As Integer, size As Integer, UserName As String
                                                                             
        GetUser = "Not logged on to network"
        UserName = String$(255, 0)
        size = Len(UserName)
        ReturnCode = WNetGetUser%(UserName, size)

        If ReturnCode = 0 Then
                While Asc(Mid$(UserName, size, 1)) = 0
                  size = size - 1
                Wend
                GetUser = Left$(UserName, size)
        End If
End Function                                                             
                                                             
Example of its use:                                           

label.Caption=GetUser()

Det giver fejl 453:
Can't find DLL entry point WNetgetUser in User32  (jeg har selv ændret til user32 for win95, "user.dll" findes slet ikke.)

Med venlig hilsen    Jørn
Avatar billede jannick Nybegynder
22. november 1999 - 23:11 #1
I et modul:
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Public Function NetworkUserName() As String
  Dim lpBuff As String * 25
  Dim lret As Long
  lret = GetUserName(lpBuff, 25)
  NetworkUserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
End Function

Og så på formen:

Variabelnavn = NetworkUserName
Avatar billede aleks Nybegynder
23. november 1999 - 07:56 #2
Den løsning som jannic har virker både på Novell og NT, så det må siges at være den bedste og hurtigste.
Avatar billede joern Nybegynder
24. november 1999 - 17:32 #3
Tak for svaret, Jannick.  Applikationen er nu under test. 
M.v.h.  Jørn  24/11-1999    17:36
Avatar billede joern Nybegynder
12. marts 2000 - 17:00 #4
Programmet jeg har lavet fungerer fint, og det har virket.  Eleverne holder sig i skindet med at installere spil etc.
Er nogen interesseret i koden, giver jeg den gerne bort.

M.v.h.  Jørn
Avatar billede webster Nybegynder
12. marts 2000 - 18:19 #5
Jeg er meget interesseret. Det lyder meget spændende. Nu står der webster som afsender på dette indlæg, men mit egentlige "alias" er Jannick, kan bare ikke huske passwordet. Du må meget gerne sende kildekoden til Jannick@Chefen.dk
Avatar billede brock Nybegynder
08. januar 2001 - 08:39 #6
Har lige \"snust\" rundt efter en lignende løsning her på eksperten...

jeg er også interesseret i kildekoden, så hvis du vil være rar at emaile den til sbrock@mail.tele.dk
Avatar billede jannick Nybegynder
08. januar 2001 - 22:18 #7
hehe, jeg kan faktisk ikke huske om jeg nogensinde fik kildekoden? Jeg tror det ikke, da jeg finder dit projekt meget spændende, og nok havde hæftet mig ved det så. Hvis du har mulighed for at sende den, vil jeg blive meget glad. Mail adressen er stadigvæk jannick@chefen.dk
Avatar billede joern Nybegynder
08. januar 2001 - 22:44 #8
>jannick.
Jeg har sendt koden til brock idag.  Sender til dig imorgen.

M.v.h.  Jørn
Avatar billede hans_ch Nybegynder
06. marts 2002 - 20:48 #9
Hej Jørn!
Jeg er da også meget interesseret i koden. Send den til: hans@elvis.dk

På forhånd tak!
Avatar billede gymelev Nybegynder
06. marts 2002 - 21:57 #10
ehrm, jørn, du burde nok lige checke computerne i 600-afdelingen! der ligger da utroligt mange spil på, så den med at "de holder sig i skindt" er nok mere noget med at skindet bedrager!
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester