/[cvs]/joko/ToolBox/Windows/HylaPrintMon_MapiContactsDumper/ModuleUtils.bas
ViewVC logotype

Diff of /joko/ToolBox/Windows/HylaPrintMon_MapiContactsDumper/ModuleUtils.bas

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by joko, Sat Sep 1 15:22:49 2007 UTC revision 1.3 by joko, Mon Sep 3 18:35:03 2007 UTC
# Line 1  Line 1 
1  Attribute VB_Name = "ModuleUtils"  Attribute VB_Name = "ModuleUtils"
2    ' (c) Andreas Motl <andreas.motl@ilo.de>, 2007-09-01
3    
4  Option Explicit  Option Explicit
5    
6    ' Access the GetUserNameA function in advapi32.dll and call the function GetUserName.
7    Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
8    
9  Public Sub slog(logString As String)  Public Sub slog(logString As String)
10      'Text1.Text = Text1.Text & logString & vbCrLf      'Text1.Text = Text1.Text & logString & vbCrLf
11      DoEvents      DoEvents
# Line 28  Public Function getCmdArg(name As String Line 33  Public Function getCmdArg(name As String
33      Next      Next
34    
35  End Function  End Function
36    
37    ' via: http://support.microsoft.com/kb/q152970/
38    Function Get_User_Name() As String
39    
40        ' Dimension variables
41        Dim lpBuff As String * 25
42        Dim ret As Long, UserName As String
43        
44        ' Get the user name minus any trailing spaces found in the name.
45        ret = GetUserName(lpBuff, 25)
46        Get_User_Name = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
47        
48    End Function
49    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed