/ 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
USER uf fra COMPUTERNAVN
Fra : Keld Sørensen


Dato : 02-09-02 15:33

Har nogen noget VB6-kode (W2K) som kan finde ude af hvilket
BRUGERNAVN, som pt. er logget på et bestemt COMPUTERNAVN ?

Keld Sørensen
Danmark




 
 
CADmageren (03-09-2002)
Kommentar
Fra : CADmageren


Dato : 03-09-02 08:06

environ("username")



--
Leveret af:
http://www.kandu.dk/
"Vejen til en hurtig løsning"


Keld Sørensen (03-09-2002)
Kommentar
Fra : Keld Sørensen


Dato : 03-09-02 16:18

Hvor er det liiiii'ge COMPUTERNAVNET kommer ind her ?


"CADmageren" <CADmageren.news@kandu.dk> skrev i en meddelelse
news:T3Zc9.50243$ww6.3565156@news010.worldonline.dk...
> environ("username")
>
>
>
> --
> Leveret af:
> http://www.kandu.dk/
> "Vejen til en hurtig løsning"
>



CADmageren (04-09-2002)
Kommentar
Fra : CADmageren


Dato : 04-09-02 16:31

environ("computername") (Questiond, lastId) values(%d, '%s')

--
Leveret af:
http://www.kandu.dk/
"Vejen til en hurtig løsning"


Verner Neumann (15-10-2002)
Kommentar
Fra : Verner Neumann


Dato : 15-10-02 15:52

Hej Keld

Du kan bruge følgende kode til at finde Brugernavn og computernavn



Private Declare Function GetComputerName Lib "kernel32" Alias
"GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Private Declare Function WNetGetUser Lib "mpr.dll" Alias "WNetGetUserA"
(ByVal lpName As String, ByVal lpUserName As String, lpnLength As Long) As
Long

' Returns the name of the computer.

Public Function ComputerName() As String
Dim buffer As String * 512
Dim Length As Long

Length = Len(buffer)

' this API returns non-zero if successful,
' and modifies the length argument
If GetComputerName(buffer, Length) Then
ComputerName = Left$(buffer, Length)
End If
End Function



' Returns the name of the user.
Public Function Username() As String

Dim ret As Long
Dim lUser As Long
Dim strUsername As String


' Windows 95 or NT - call WNetGetUser to get the name of the user.
strUsername = Space(256)
lUser = Len(strUsername)
ret = WNetGetUser(ByVal 0&, strUsername, lUser)
If ret = 0 Then
' Success - strip off the null.
Username = Left(strUsername, InStr(strUsername, Chr(0)) - 1)
Else
Username = ""
End If

End Function

mvh
Verner Neumann

"Keld Sørensen" <KS@KS-DATA.DK> wrote in message
news:3d737724$0$27682$edfadb0f@dspool01.news.tele.dk...
> Har nogen noget VB6-kode (W2K) som kan finde ude af hvilket
> BRUGERNAVN, som pt. er logget på et bestemt COMPUTERNAVN ?
>
> Keld Sørensen
> Danmark
>
>
>



Keld Sørensen (16-10-2002)
Kommentar
Fra : Keld Sørensen


Dato : 16-10-02 07:50

Tak for dit svar, men

Brugernavnet er jo IKKE en funktion af computernavnet !

Situationen er, at jeg har et computernavn - altså en computer, som findes
tilsluttet netværket, og jeg er så interesseret i at se, hvilken BRUGER som
er logged on på denne computer !

Randi Birch (en VB-haj på nettet) har et eksempel, men det returnerer et
underligt
'brugernavn' som blot er COMPUTERNAVNET med et $-tegn efter. Hun har endnu
ikke svaret på mit spørgsmål om hvorfor der ikke kommer et reelt BRUGERNAVN
tilbage.

Jeg har lagt problemet lidt i mølpose, men falder vel over en løsning en
dag.

mvh
Keld Sørensen
"Verner Neumann" <vakse.viggo@mail.dk> skrev i en meddelelse
news:3dac2b98$0$6994$edfadb0f@dspool01.news.tele.dk...
> Hej Keld
>
> Du kan bruge følgende kode til at finde Brugernavn og computernavn
>
>
>
> Private Declare Function GetComputerName Lib "kernel32" Alias
> "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
>
> Private Declare Function WNetGetUser Lib "mpr.dll" Alias "WNetGetUserA"
> (ByVal lpName As String, ByVal lpUserName As String, lpnLength As Long) As
> Long
>
> ' Returns the name of the computer.
>
> Public Function ComputerName() As String
> Dim buffer As String * 512
> Dim Length As Long
>
> Length = Len(buffer)
>
> ' this API returns non-zero if successful,
> ' and modifies the length argument
> If GetComputerName(buffer, Length) Then
> ComputerName = Left$(buffer, Length)
> End If
> End Function
>
>
>
> ' Returns the name of the user.
> Public Function Username() As String
>
> Dim ret As Long
> Dim lUser As Long
> Dim strUsername As String
>
>
> ' Windows 95 or NT - call WNetGetUser to get the name of the user.
> strUsername = Space(256)
> lUser = Len(strUsername)
> ret = WNetGetUser(ByVal 0&, strUsername, lUser)
> If ret = 0 Then
> ' Success - strip off the null.
> Username = Left(strUsername, InStr(strUsername, Chr(0)) - 1)
> Else
> Username = ""
> End If
>
> End Function
>
> mvh
> Verner Neumann
>
> "Keld Sørensen" <KS@KS-DATA.DK> wrote in message
> news:3d737724$0$27682$edfadb0f@dspool01.news.tele.dk...
> > Har nogen noget VB6-kode (W2K) som kan finde ude af hvilket
> > BRUGERNAVN, som pt. er logget på et bestemt COMPUTERNAVN ?
> >
> > Keld Sørensen
> > Danmark
> >
> >
> >
>
>



Tomas Christiansen (16-10-2002)
Kommentar
Fra : Tomas Christiansen


Dato : 16-10-02 20:08

Keld Sørensen skrev:
> Randi Birch (en VB-haj på nettet) har et eksempel, men det
returnerer et
> underligt
> 'brugernavn' som blot er COMPUTERNAVNET med et $-tegn efter. Hun har
endnu
> ikke svaret på mit spørgsmål om hvorfor der ikke kommer et reelt
BRUGERNAVN
> tilbage.

Har du et link?

Jeg har før fundet flere småfejl i hendes kode, som var ret lette at
rette. Måske fejlen er til at rette her?

-------
Tomas


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

Månedens bedste
Årets bedste
Sidste års bedste