ich möchte gerne den WindowsUserName auslesen,
ich habe zwei lösungen im archiv gefunden.
Windows XP Lösung:
Sub UseName()
Dim UName As String
UName = Environ("USERNAME")
MsgBox UName
End Sub
Windows NT Lösung:
Declare
Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String, _
nSize As Long) As Long
Sub UserName()
Dim Buffer As String * 100
Dim Länge As Long
Länge = 100
GetUserName Buffer, Länge
MsgBox Left(Buffer, Länge - 1)
End Sub
Welche der Lösungen muß ich für Windows98, Windows2000 und WindowsXP benutzen.
siehe auch!
https://www.herber.de/forum/archiv/416to420/t419738.htm
Gruß
Swen