有什么函数可以取得电脑的操作系统？

真龙天子 · 发表于 2018-9-28 20:00:09

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

如题，是否有什么函数可以取得电脑的操作系统是WINXP\WIN7\WIN8或者win10的？

XDSoft · 发表于 2018-9-28 20:11:08

WMI 搜索开源函数库论坛

marting · 发表于 2018-9-28 20:24:27

（XD::SYSTEM:WMI-Query）系统WMI通用查询

8 个回复 - 428 次查看

关于WMI介绍见：http://bbs.xdcad.net/thread-709842-1-1.html [hide] 2、获取内存大小： 3、获取操作系统名字 4、获取所有的物理硬盘的序列号 ................. ...

2017-6-9 18:57 - newer - 开源函数库

(defun c:tt ()
(princ
(strcat "\n操作系统:"
(car (XD::SYSTEM:WMI-QUERY "Win32_OperatingSystem" "Caption" ""))
)
)
(princ)
)

命令: tt
操作系统:Microsoft Windows 10 企业版

tzfcn · 发表于 2018-9-28 20:30:33

就是取得操作系统的版本号。

lisperado · 发表于 2018-9-28 20:52:33

本帖最后由 lisperado 于 2018-9-28 21:05 编辑

我记得有一个函数
(getvar 'platform)

试试VL-读取注册表?

(vl-registry-read "HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\" "ProductName")
;"Microsoft Windows XP" ;但很奇怪而我直接打开注册表中获得的函数是 "Windows 7 Starter" ?

获取版本
(vl-registry-read "HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\" "CurrentVersion")
;6.1

真龙天子 · 发表于 2018-9-28 22:32:25

谢谢各位！

kqqt6236 · 发表于 2018-9-29 00:12:11

不错，这个好。

konglong604 · 发表于 2018-9-29 09:15:45

谢谢各位分享了多种多样的方法.

账号		自动登录	找回密码
密码			立即注册

[求助] 有什么函数可以取得电脑的操作系统？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分