Topic: username via lisp???

[Ron Heigh]

Is there any way to get the username of the computer using LISP?

[MP]

perhaps (getenv "username")

[Slim©]

Or maybe (getvar "loginname")

[JohnK]

Or even (getstring "\nWhat's your name dummy? ")

[Ron Heigh]

Thanks Lance.
That's what I was looking for.

[Slim©]

It's what we're here for, enjoy.

[JohnK]

*Bahhp?!* Dude, what's wrong with mine?!

[Slim©]

I like it, Se7en. Don't know about the others tho.  

[JohnK]

Thanx Lance. Since you like it so much i wrote you a little app you can use in your programs.

Code: [Select]

(defun test ()
  (if
    (not
      (eq
        (getenv "username") (getstring "\nWhat's your name dummy? ")))
    (progn (alert "Liar!!") (test)))
  (princ)
  )

[Anonymous]

Or even (getstring "\nWhat's your name dummy? ")

LOL

[Slim©]

Thanks alot Se7en.

[Ron Heigh]

(getenv "username") = nil

This isn't set on my computer.  How do I use it?[/code]

[nivuahc]

Try

(getvar "loginname")

[Mark]

Maybe this;

Code: [Select]


(if (not (getenv "username"))
  (setenv "username" "name")
)


[LUCAS]

Code: [Select]


(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)
)