--- joko/ToolBox/Windows/HylaPrintMon_MapiContactsDumper/ModuleUtils.bas	2007/09/01 15:22:49	1.2
+++ joko/ToolBox/Windows/HylaPrintMon_MapiContactsDumper/ModuleUtils.bas	2007/09/03 18:35:03	1.3
@@ -1,6 +1,11 @@
 Attribute VB_Name = "ModuleUtils"
+' (c) Andreas Motl <andreas.motl@ilo.de>, 2007-09-01
+
 Option Explicit
 
+' Access the GetUserNameA function in advapi32.dll and call the function GetUserName.
+Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
+
 Public Sub slog(logString As String)
     'Text1.Text = Text1.Text & logString & vbCrLf
     DoEvents
@@ -28,3 +33,17 @@
     Next
 
 End Function
+
+' via: http://support.microsoft.com/kb/q152970/
+Function Get_User_Name() As String
+
+    ' Dimension variables
+    Dim lpBuff As String * 25
+    Dim ret As Long, UserName As String
+    
+    ' Get the user name minus any trailing spaces found in the name.
+    ret = GetUserName(lpBuff, 25)
+    Get_User_Name = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
+    
+End Function
+