title image


Smiley Re: xp aktuellen Benuter auslesen
Hallo Markus,

Du kannst den Windows-User mit folgender Funktiuon ermitteln:





' Win32-API-Deklaration der GetWindowsUserName-Prozedur.

Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _

(ByVal lpBuffer As String, nSize As Long) As Long



Function GetWindowsUserName() As String

' Diese Prozedur verwendet die Win32-API-Funktion "GetUserName",

' um den Namen des Benutzers zurückzugeben, der zurzeit an diesem

' Computer angemeldet ist. Die Declare-Anweisung für diese API-Funktion

' befindet sich im Deklarationsbereich dieses Moduls.

Dim strBuffer As String

Dim lngSize As Long



strBuffer = String(255, " ")

lngSize = Len(strBuffer)



If GetUserName(strBuffer, lngSize) = 1 Then

GetWindowsUserName = Left(strBuffer, lngSize - 1)

Else

GetWindowsUserName = "Name not available"

End If



End Function





Gruß

EW

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: