Retrieve Computer ID

[pcs]

Is there a way to get a computer's name from lsp? I've got the user's name with loginname, but I also need the computer's ID.

[MarkTheSwampThomas]

I know DosLib will do it.
<qoute>
dos_computer
--------------------------------------------------------------------------------
Returns or sets the computer name of the current system. The name is established at system startup, when it is initialized from the Windows Registry. Changes to the computer name take effect the next time the system is started.
</qoute>

http://www.mcneel.com/doslib.htm

[stig.madsen]

If you don't think it's overkill, you can get some info from the Windows WScript object:

(cond ((setq wscript (vlax-create-object "WScript.Network"))
       (setq pcname (vlax-get-property wscript "ComputerName")
             pcdom  (vlax-get-property wscript "UserDomain")
             pcuser (vlax-get-property wscript "UserName")
       )
       (mapcar 'princ
               (list "\nComputername: "  pcname
                     "\nUser domain:  "  pcdom
                     "\nUser name:    "  pcuser
                    )
       )
       (vlax-release-object wscript)
      )
)

[pcs]

That's exactly what I'm looking for. Thanks Everyone!

[stig.madsen]

You're welcome.

For some more on scripting objects, you can check out http://www.afralisp.com/lisp/script1.htm

[MarkTheSwampThomas]

What about this:
(princ (getenv "COMPUTERNAME"))

[stig.madsen]

Mark, you're a genius

why didn't I think of that ..

[Mike.Perry]

Originally Posted by stig.madsen

why didn't I think of that ..

Hi Stig

<PublicMockingMode = On>
<PublicMockingMode = Off>

I couldn't be so cruel and publicly mock a LISP Jedi Master wouldn't want to experience the wrath further down the road when I require your help.

Cheers, Mike

[MarkTheSwampThomas]

Originally Posted by stig.madsen

Mark, you're a genius

why didn't I think of that ..

I'm still trying to figure out why I didn't post that in the first place! *grin*

[sdoman]

Stig,

I'm glad you posted how to access the wscript host and also the link to AfraLisp. I wasn't aware how easy it is to write code to access objects outside of AutoCAD. Also at AfraLisp, Kenny shows how to use wscript to get the hard disk serial number, which is something I've been looking for.

Thanks for posting!