Identificere brugere

noget i denne stil?

Set net = CreateObject("WScript.Network")
MsgBox net.ComputerName

Kig her:
http://www.mvps.org/access/api/api0009.htm

Ellers prøv denne i et modul:

Private Declare Function apiGetComputerName Lib "kernel32" Alias _
    "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Function GetMachineName() As String
'Returns the computername
Dim lngLen As Long, lngX As Long
Dim strCompName As String
    lngLen = 16
    strCompName = String$(lngLen, 0)
    lngX = apiGetComputerName(strCompName, lngLen)
    If lngX <> 0 Then
        GetMachineName = Left$(strCompName, lngLen)
    Else
        GetMachineName = ""
    End If
End Function


Maskinnavnet fås ved at skrive:
=GetMachineName()

i en tekstboks

Environ("UserName")

Your question is a bit misleading!

Identificere brugere

del Pc'ere i netværk, og
selvfølgelig alle med hver deres navn.

Motek-> Ønsker du PC-navnet eller windows' brugerlogin-navn?

Environ("Username") giver windows-login, mens GetMachineName() giver PC-navnet

Hej Thomas.

PC-navnet!

ok, så er det min funktion, du skal bruge....

Perfect hr. Jepsen!!

Du får pointene!
Tak til alle!

thnx :o))

Hvad mener du med thnx:0))?

thnx= Thanks = tak

:o)) er en smiley, som viser at jeg er glad

:o) = glad
:o)) = meget glad
:-( = sur
:-'( = ked af det

og et hav af andre...

Okay!!!!!.....Man lærer noget nyt hver dag!

ja, men du kan næsten ikke have undgået at støde på dem tidligere, da de bruges af alle. Ideen er at man lægger hovedet mod venstre skulder for at se ansigtet!

Åh ja..da :O))

jaja - jeg skulle nok have pastet koden ind istedet for at vise til websistet med den identiske leosning :-)

Overchord-> Ja, jeg kan se, at det er den samme løsning, du kom op med! Jeg var i gang med at skrive, da du kom med dit indlæg, så derfor så jeg det ikke.
Jeg hentede bare koden fra mit eget bibliotek, da jeg mente at det var det mest hensynsfulde overfor Motek. Men jeg havde ikke gjort det, hvis jeg havde set dit indlæg....

Hej thomas - det er absolut ok. Din loesning var mere hjaelpsom end blot at laegge link til noget kode :-)