<Script language="VBScript">
function getUserAndComputer()
Dim WshNetwork
Set WshNetwork = WScript.CreateObject("WScript.Network")
Msgbox "Domain = " & WshNetwork.UserDomain
Msgbox "Computer Name = " & WshNetwork.ComputerName
Msgbox "User Name = " & WshNetwork.UserName
End function
</Script>