VB Code that reads computer log on

[PritiOne]

I am trying to write a program that runs through Excel - using VB Code to read the computer user logon. Can anyone help me?

Thanks!

 

[Smitty]

How's this:

<font face=Tahoma><SPAN style="color:#00007F">Sub</SPAN> GetPCName()
    <SPAN style="color:#00007F">Dim</SPAN> CurrentUserName  <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN>
    <SPAN style="color:#00007F">Dim</SPAN> PCName <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN>
        
        CurrentUserName = Environ("USERNAME")
        PCName = Environ("COMPUTERNAME")
        
        MsgBox "PC User Name is: " & CurrentUserName, vbOKOnly + vbInformation, "PC User Name"
        MsgBox "PC Name is: " & PCName, vbOKOnly + vbInformation, "PC Name"
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN>
</FONT>

HTH,

Smitty

 

[Cbrine]

This code will return the name of the current user. Would need more details on what you want to do with it, to give any further help.


MsgBox Environ("username")

Cal

PS: Darn, beat to the punch, at least it was smitty.

 

[PritiOne]

I have an Excel sheet that refreshes data and need to only limit data presented to the user loged on the computer. The background application is called Noetix and I've linked the report ID into the code. The Noetix program asks for a user ID... instead of programming 165 users individually, I am trying to add code that will pick up the user name from the VPN ID.

Hope this makes sense!

Thanks!!!
P

 

[PritiOne]

Also, if cell A1 on a sheet in the workbook needs to = the username of the person logged on the computer, how do I set A1 to = username?

 

[Cbrine]

Activesheet.range("A1").value = Environ("UserName")

Cal

 

[PritiOne]

Can you help me tie both these sets of code together?

 

[Smitty]

Can you post the code that you have now?

Smitty

(Heya Cal!)

 

[PritiOne]

Here it is... In all it's glory

Sub GetPCName()
Dim CurrentUserName As String
Dim PCName As String

CurrentUserName = Environ("USERNAME")
PCName = Environ("COMPUTERNAME")

Sheets("Sheet1").Range("A1").Value = Environ("UserName")
MsgBox "PC User Name is: " & CurrentUserName, vbOKOnly + vbInformation, "PC User Name"
MsgBox "PC Name is: " & PCName, vbOKOnly + vbInformation, "PC Name"
End Sub

 

[PritiOne]

The error occurs at the point that I try to set A1 on sheet1 as username...