WinNT Userid Function

[jpettit]

I am trying to use this piece of code:
http://www.chrisrae.com/vba/routines/getusername.html

' By Chris Rae, 14/6/99, 3/9/00.
Option Explicit
' This is used by GetUserName() to find the current user's
' name from the API
Declare Function Get_User_Name Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, _
nSize As Long) As Long
Function GetUserName() As String
Dim lpBuff As String * 25

Get_User_Name lpBuff, 25
GetUserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
End Function

When i try to access it by calling the GetUserName, i am getting an error stating:
"Compile Error: Constants, Fixed-Length Strings, Arrays, and Declare statements are not allowed as Public members of object modules"

Can someone give me a heads up?
Thanks.

 

[Juan Pablo González]

Works fine for me. Did you paste it in an empty module ? The "Option Explicit" and "Declare Function" should be at the top (If you're not pasting to an empty module)

 

[jpettit]

I tried using it in a clean workbook...pasted it in and then tried to compile it...same error.
The Option and Declare are in the (Declarations) section at the top.

 

[Russell Hauf]

I pasted it into my workbook and it worked also.

 

[Mark O'Brien]

On 2002-02-26 11:33, jpettit wrote:
I am trying to use this piece of code:
http://www.chrisrae.com/vba/routines/getusername.html

' By Chris Rae, 14/6/99, 3/9/00.
Option Explicit
' This is used by GetUserName() to find the current user's
' name from the API
Declare Function Get_User_Name Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, _
nSize As Long) As Long
Function GetUserName() As String
Dim lpBuff As String * 25

Get_User_Name lpBuff, 25
GetUserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
End Function

When i try to access it by calling the GetUserName, i am getting an error stating:
"Compile Error: Constants, Fixed-Length Strings, Arrays, and Declare statements are not allowed as Public members of object modules"

Can someone give me a heads up?
Thanks.

I get the feeling that this code is not in a standard module. You need to change the API declaration to be "Private" so the First Declaration should look like this:<pre>

' name from the API
Private Declare Function Get_User_Name Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, _
nSize As Long) As Long</pre>

HTH

_________________<font color = green> Mark O'Brien
This message was edited by Mark O'Brien on 2002-02-26 13:21

 

[jpettit]

On 2002-02-26 13:21, Mark O'Brien wrote:
I get the feeling that this code is not in a standard module. You need to change the API declaration to be "Private" so the First Declaration should look like this:<pre>

' name from the API
Private Declare Function Get_User_Name Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, _
nSize As Long) As Long</pre>

HTH

_________________<font color = green> Mark O'Brien
This message was edited by Mark O'Brien on 2002-02-26 13:21

Thanks Mark...this now works!!