lht 发表于 2018-9-28 19:58:14

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

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

highflybird 发表于 2018-9-29 20:50:35

(defun C:TTT (/ lst wmi svr sys)
(setq WMI (vlax-create-object "WbemScripting.SWbemLocator"))
(setq svr (VLAX-INVOKE WMI 'ConnectServer))
(setq SYS (vlax-invoke svr 'InstancesOf "Win32_OperatingSystem"))   
(vlax-for n SYS
    (setq lst (cons (vlax-get n 'Caption) lst))
    (setq lst (cons (vlax-get n 'Version) lst))
)
(vlax-release-object sys)
(vlax-release-object svr)
(vlax-release-object WMI)
(reverse lst)
)

lht 发表于 2018-9-30 08:23:18

谢谢楼上的老师，函数很好用！

xink 发表于 2018-10-15 20:45:25

小生一枚，前来学习

lisperado 发表于 2018-10-15 23:12:57


(mapcar        '(lambda (x) (setq x (vl-princ-to-string x)) (list x (getenv x)))
        '(ALLUSERSPROFILE   APPDATA              CommonProgramFiles                  COMPUTERNAME          ComSpec
          EP_NO_HOST_CHECKHOMEDRIVE              HOMEPATH                LOCALAPPDATA          LOGONSERVER          NUMBER_OF_PROCESSORS
          OneDrive          OS                      Path                PATHEXT                  PROCESSOR_ARCHITECTURE
          PROCESSOR_IDENTIFIER                      PROCESSOR_LEVEL        PROCESSOR_REVISION                  ProgramData
          ProgramFiles          PROMPT              PSModulePath        PUBLIC                  SESSIONNAME          SystemDrive
          SystemRoot          TEMP              TMP                USERDOMAIN          USERPROFILE          windir
          )
        ) ;_ end of mapcar

lisperado 发表于 2018-10-19 06:14:55

Cad命令也可以实现os相关资讯,之后可以read-line读取myos.txt
(setq tmp (strcat (getvar 'tempprefix) "myos.txt"))
(vl-cmdf "_shell" (strcat "wmic os get * /value > ” tmp))

qw223 发表于 2018-10-26 22:09:05

哪位大神再给个让系统崩溃代码哈;P，也算是cad能出影响系统的病毒了

lisperado 发表于 2018-10-27 03:41:20

可以试试改写一些registry注册表里的值
页: [1]
查看完整版本: 有什么函数可以取得电脑的操作系统？