求助关于获得计算机名程序的使用方法

sefiroth

<br/>(setq str "<br/>&#160;&#160;&#160;&#160;&#160;&#160; strComputer = \".\" &#160;<br/>Set objWMIService = GetObject(\"winmgmts:\\\\\" &amp; strComputer &amp; <br/><br/>\"\\root\\cimv2\") &#160;<br/>Set colComputers = objWMIService.ExecQuery(\"Select * from <br/><br/>Win32_ComputerSystem\") &#160;<br/>For Each objComputer in colComputers &#160;<br/>msgbox objComputer.Name<br/>Next<br/>")<br/>(xxvbs str "")<br/><br/>这段程序是得到计算机名的，不知道该怎么用，xxvbs是什么啊？我要是想用，得怎么办？<br/>

sefiroth

(setq str "
       strComputer = \".\"  
Set objWMIService = GetObject(\"winmgmts:\\\\\" & strComputer & \"\\root\\cimv2\")  
Set colComputers = objWMIService.ExecQuery(\"Select * from Win32_ComputerSystem\")  
For Each objComputer in colComputers  
msgbox objComputer.Name
Next
")
(xxvbs str "")

据说这段是获得计算机名的方法，刚刚看了一下，实在是不知道怎么用，原帖子在
http://www.mjtd.com/Bbs/dispbbs.asp?BoardID=3&replyID=68862&id=62106&skin=0&landlord=1

有人知道 xxvbs(vbs移植v2-2).rar这个是用来干嘛的么？

sefiroth

难道没有人知道用法？？？

nonsmall

获得当前计算机名

;by nonsmall @ mjtd

(vlax-get-property (vlax-create-object "WScript.Network") 'ComputerName)

不死猫

直接使用lisp调用WMI也可以获得

同时能获得更多的内容

nonsmall

;WMI方法

;by nonsmall @ mjtd

(defun test()
 (setq wmi (vlax-create-object "WbemScripting.SWbemLocator"))
 (setq con (vba "wmi.ConnectServer(nil,nil,nil,nil,nil,nil,nil,nil)"))
 (setq ComputerSystem (vba "con.ExecQuery(\"Select * from Win32_ComputerSystem\")"))
 (vlax-for n ComputerSystem
  (setq compname (vba "n.name"))
 )
 compname
)

命令: (test)
"PC-NONSMALL"

caoyin

最简单的是读取环境变量

(getenv "computername")

jxlsp

计算机名重装系统后是不是会变化呢?

nonsmall

caoyin发表于2008-12-12 9:42:00最简单的是读取环境变量(getenv \"computername\")

请问这个环境变量在哪里找到的?

caoyin

jxlsp发表于2008-12-12 10:39:00计算机名重装系统后是不是会变化呢?

计算机名跟重装系统关系不大。

不重装系统也可以改名。