0 Members and 1 Guest are viewing this topic.
My spanish (I hope this is Spanish) is not good at all.
Your French must not be very good either.
Quote from: sinc on February 16, 2006, 12:04:01 PMYour French must not be very good either. oops
(defun UserName (/ wsn) (setq wsn (vlax-create-object "WScript.Network")) (vlax-get-property wsn "UserName"))
(defun PCdats (/ wsn un cn ud) (setq wsn (vlax-create-object "WScript.Network")) (setq un (vlax-get-property wsn "UserName") cn (vlax-get-property wsn "ComputerName") ud (vlax-get-property wsn "UserDomain") ) (alert (strcat "User Name:\t" un "\nComputer Name:\t"cn "\nUser Domain:\t" ud ) ))