(defun C:TT (/ WS)
(vl-load-com)
(setq WS (vlax-create-object "wscript.network"))
(alert
(strcat "USERNAME= "
(vlax-get-property WS 'USERNAME)
"\n\nUSERDOMAIN= "
(vlax-get-property WS 'USERDOMAIN)
"\n\nCOMPUTERNAME= "
(vlax-get-property WS 'COMPUTERNAME)
)
)
(vlax-release-object WS)
(princ)
)