Use this code to get the username:
Function GetUserName() As String
Dim WSHnet As Object
Dim UserName As String
Set WSHnet = CreateObject("WScript.Network")
UserName = WSHnet.UserName
GetUserName = UserName
End Function
Use this code to get the full name of the current user:
Function GetUserFullName() As String
Dim WSHnet As Object
Dim UserName As String
Dim TheUser As Object
Dim UserDomain As String
Dim UserFullName As String
Set WSHnet = CreateObject("WScript.Network")
UserName = WSHnet.UserName
UserDomain = WSHnet.UserDomain
Set TheUser = GetObject("WinNT://" & UserDomain & "/" & UserName & ",user")
UserFullName = TheUser.FullName
GetUserFullName = UserFullName
End Function