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]

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]

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!

[stig.madsen]

sdoman, what do you mean 'Kenny shows.. '? Didn't you see the authors name? Hehe
Anyway, glad to have been of service..

[sdoman]

Stig,

I just assumed everything on AftraLisp was by Kenny Mamage and didn't noticed your name as author of the article regarding scripting objects. Well then congratualations for writing such an interesting article. I'll be sure to pay better atttention to the name of the author from now on. <embarrassed>

[stig.madsen]

Thanks. Don't worry about it, I was just pulling your .. what do you Americans say .. ummm .. something?

[MarkTheSwampThomas]

Thanks. Don't worry about it, I was just pulling your .. what do you Americans say .. ummm .. something?
leg.........

[stig.madsen]

......... leg