Get Current User Name

  • Thread starter Thread starter Greg Smith
  • Start date Start date
G

Greg Smith

I am using the following code to pull the domain and user
ID:

Dim oWsNetwork
Set oWsNetwork = CreateObject("WScript.Network")
' Dim strUsername
strUserName = oWsNetwork.UserName
strUserDomain = oWsNetwork.UserDomain
Set oWsNetwork = Nothing
Item.userproperties("Name").value = strUserDomain & "/" &
strUserName

Is there away to pull the fullname of the user from the
user manager??
 
It shows the domain, user ID, PC name, FullName:
===========================================================

Function Item_Open()
Dim oWsNetwork
Set oWsNetwork = CreateObject("WScript.Network")
' Dim strUsername
strUserName = oWsNetwork.UserName
strUserDomain = oWsNetwork.UserDomain
strComputerName = oWsNetwork.ComputerName
Set oWsNetwork = Nothing
Set User = GetObject("WinNT://" & strUserDomain & "/" &
strUserName & ",user")
' strUserName = User.Fullname
Item.userproperties("Name").value = strUserDomain & "/" &
strUserName
Item.userproperties("Name").value = Item.userproperties
("Name").value & chr(13) & User.FullName
Item.userproperties("Name").value = Item.userproperties
("Name").value & chr(13) & strComputerName
End Function
 
Back
Top