-- Rexx using the "Shell" WSH
wsn = .OLEObject~new("WScript.Network")
wscript~echo( "ComputerName:" wsn~ComputerName )
wscript~echo( "UserName:"     wsn~UserName )
wscript~echo( "UserDomain:"   wsn~UserDomain )