Set WshNetwork = Wscript.CreateObject("Wscript.Network")
msgbox WshNetwork.UserName