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)
Jason
http://www.k2distillery.com/