dim Network
set Network = CreateObject("WScript.Network")
MsgBox "" & Network.UserName
MsgBox "" & Network.ComputerName