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