Do a search for ''current user'' that has been a popular topic in the past.
http://www.infopathdev.com/forums/topic.asp?TOPIC_ID=831&SearchTerms=current,user
Dim sUserName
sUserName = CreateObject(''Wscript.Shell'').Environment(''Process'').Item(''UserName'')
XDocument.UI.Alert(sUserName)