[求助]：能获取电脑的用户名吗？

animal212

比如要实现文件输出到桌面
(open "C:\\Documents and Settings\\ani\\桌面\\输出结果.txt" "w")
但是每台电脑的用户名都不一样，如ani
如果在其他机子上就不能实现了。因为用户名不一样。所以怎样才能获得机子的“ani”呢？

oyxx_1023

LOGINNAME 系统变量
（只读）
类型：字符串
不保存
显示加载 AutoCAD 时配置或输入的用户名。登录名最多可以包含 30 个字符。

fsxm

电脑名：

2. 
   
3. 1.dos_computer
   
4. 2.(getenv "computername");;这个方法有时不准确
   
5. 3.
   
6. (defun fsxm-computer (/ return wshnetwork)
   
7.   (vl-catch-all-apply
   
8.     '(lambda ()
   
9.        (setq WshNetwork (vlax-create-object "wscript.Network"))
   
10.        (setq return (vlax-get WshNetwork 'ComputerName))
    
11.        (vlax-release-object WshNetwork)
    
12.      )
    
13.   )
    
14.   return
    
15. )
    

<br /> 1.dos_computer<br /> 2.(getenv "computername");;这个方法有时不准确<br /> 3.<br /> (defun fsxm-computer (/ return wshnetwork)<br />   (vl-catch-all-apply<br />     '(lambda ()<br />        (setq WshNetwork (vlax-create-object "wscript.Network"))<br />        (setq return (vlax-get WshNetwork 'ComputerName))<br />        (vlax-release-object WshNetwork)<br />      )<br />   )<br />   return<br /> )<br />

如果你只是要取的桌面的目录我想用电脑名有时还是不行了
比如：系统不是装在C盘下~,非简体中文系统。。。
用下面的函可能更好一点：

2. 
   
3. (defun fsxm-specialdir (item / return s wsh)
   
4.   (vl-catch-all-apply
   
5.     '(lambda ()
   
6.        (setq wsh (vlax-create-object "wscript.shell"))
   
7.        (setq s (vlax-get wsh 'SpecialFolders))
   
8.        (setq return (vla-item s item))
   
9.        (vlax-release-object wsh)
   
10.      )
    
11.   )
    
12.   return
    
13. )
    
14. (fsxm-specialdir 0)  返回的是All Users的桌面目录.
    

<br /> (defun fsxm-specialdir (item / return s wsh)<br />   (vl-catch-all-apply<br />     '(lambda ()<br />        (setq wsh (vlax-create-object "wscript.shell"))<br />        (setq s (vlax-get wsh 'SpecialFolders))<br />        (setq return (vla-item s item))<br />        (vlax-release-object wsh)<br />      )<br />   )<br />   return<br /> )<br /> (fsxm-specialdir 0)  返回的是All Users的桌面目录.<br />

更多类似函数请参照：http://fsxm.bokee.com/

animal212

真是太谢谢楼上的了。感激不尽啊。

GTJ116600

飞诗的获取电脑用户名