GetUserName
Dim USR Set USR = CreateObject("WScript.Network") UsrName = USR.UserName Msgbox "You are loged on as: " & UsrName , vbInformation