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