Hvilken bruger er logget på maskinen ?

Jeg vil gerne finde udaf, hvilken bruger der er logget på maskinen. Jeg skal kun bruge det til Windows 2000 og XP.
I dos er det jo bare komandoen %username%, men den findes ikke i VB ??

Jeg håber der er nogle der kan hjælpe mig.

Hilsen Majbritt

Du skal bruge et API kald:
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Når dette er ærklæret enten i din form eller i et modul kan du bruge denne funktion:

Public Function GetLoggedOn() As String
Dim username As String
Dim buffersize As Long
   
   username = Space(255)
   buffersize = Len(username)
   If GetUserName(username, buffersize) <> 0 Then
       GetLoggedOn = Left(username, buffersize - 1)
   Else
       GetLoggedOn = ""
   End If

End Function

Ex: MsgBox GetLoggedOn()

Mvh,

Thomas Nielsen

Jeg vil gerne finde udaf, hvilken bruger der er logget på maskinen. Jeg skal kun bruge det til Windows 2000 og XP.
I dos er det jo bare komandoen %username%, men den findes ikke i VB ??

Jeg håber der er nogle der kan hjælpe mig.

Hilsen Majbritt

Jeg tror jeg har regnet den ud !!!

Tjaa, men så plejer man da at uddele UP til den der svarer og ikke til sig selv?

Mvh,

Thomas Nielsen

Tjaa, men så plejer man da at uddele UP til den der svarer og ikke til sig selv?

Mvh,

Thomas Nielsen

Ja det var ikke ligefrem venligt
-
WWW: http://neuros.h4f.dk
email: neuroman@ebvum.dk

Sorry.... Men jeg løste selv mit problem.... og jeg kunne ikke bruge nogle af svarene til noget...

:-)