Dim objNet
Set objNet = WScript.CreateObject( "WScript.Network" )
Wscript.Echo objNet.ComputerName & "\" & objNet.UserName