XProfan

winexecWait("cmd.exe /c echo %username%>nfo.txt",0)
shell "notepad nfo.txt"e>

Print GetEnv$("username")
waitinpute>

' Beschreibung Funktion WNetGetUserA aus win32.hlp
'The WNetGetUser function retrieves the current default user name or the user name
'used to establish a network connection.
'
'DWORD WNetGetUser(
'
'    LPCTSTR lpName,	// pointer to local name to get user name for
'    LPTSTR lpUserName,	// pointer to buffer for user name
'    LPDWORD lpnLength 	// pointer to buffer size variable
'   );
' Variable fuer VZ C:\Windows\SysWOW64 defeninieren "32 Bit"
Declare WIN_SWow$
' Variable fuer fuer Funktion definieren
Declare Dll_Path$
' Variablen fuer MessageBox definieren
Declare AusgabeText$,TitelText$
' Variable WIN_SWow$ Wert zuweisen
WIN_SWow$=$WinPath + "\SysWOW64"
' Variable Dll_Path$ die mpr.dll fuer Funktion GetUserName zuweisen
Dll_Path$=WIN_SWow$ + "\mpr.dll"
'Funktion fuer API mpr.dll "WNetGetUserA" definieren
'Def GetUserName(3) ! Dll_Path$,"WNetGetUserA"
DEF GetUserName(2) !"ADVAPI32","GetUserNameA"
DECLARE USize#, UName#, User$
DIM USize#,4
DIM UName#,256
LONG Usize#,0=256
' Konstante fuer Fehler Abfrage
Def $NOERROR 0
GetUserName

Proc GetUserName

    ' Variablen fuer Funktion GetUserName definieren
    Declare lpName$,lpUserName$,lpnLength&,Status%
    'lpUserName$ mit Leerzeichen auffuellen
    'steht bei MSDN in Beschreibung ?
    lpUserName$ = @Space$(255)
    'Ermittelt den Namen der Angemeldeten Person, die den Rechner benutzt.
    'Status% gibt den Rueckgabewert der Funktion wieder Ok oder Fehler
    Status% = GetUserName(UName#, USize#, lpnLength&)
    ' Zeigt den Namen der Person, die an dem Computer angemeldet
    TitelText$ = "Rückgabe Funktion WNetGetUser"
    AusgabeText$= String$(UName#,0) + "   " + lpUserName$ + "   " + lpName$
    Messagebox(AusgabeText$,Titeltext$,4160)

ENDPROC