|
| 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 |
| | |
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
| |
|
|