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

lht

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

highflybird

1. (defun C:TTT (/ lst wmi svr sys)
   
2.   (setq WMI (vlax-create-object "WbemScripting.SWbemLocator"))
   
3.   (setq svr (VLAX-INVOKE WMI 'ConnectServer))
   
4.   (setq SYS (vlax-invoke svr 'InstancesOf "Win32_OperatingSystem"))   
   
5.   (vlax-for n SYS
   
6.     (setq lst (cons (vlax-get n 'Caption) lst))
   
7.     (setq lst (cons (vlax-get n 'Version) lst))
   
8.   )
   
9.   (vlax-release-object sys)
   
10.   (vlax-release-object svr)
    
11.   (vlax-release-object WMI)
    
12.   (reverse lst)
    
13. )

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

lht

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

xink

小生一枚，前来学习

lisperado

1. (mapcar        '(lambda (x) (setq x (vl-princ-to-string x)) (list x (getenv x)))
   
2.         '(ALLUSERSPROFILE   APPDATA              CommonProgramFiles                  COMPUTERNAME            ComSpec
   
3.           EP_NO_HOST_CHECK  HOMEDRIVE              HOMEPATH                LOCALAPPDATA          LOGONSERVER            NUMBER_OF_PROCESSORS
   
4.           OneDrive            OS                      Path                PATHEXT                  PROCESSOR_ARCHITECTURE
   
5.           PROCESSOR_IDENTIFIER                      PROCESSOR_LEVEL        PROCESSOR_REVISION                    ProgramData
   
6.           ProgramFiles            PROMPT              PSModulePath        PUBLIC                  SESSIONNAME            SystemDrive
   
7.           SystemRoot            TEMP              TMP                USERDOMAIN          USERPROFILE            windir
   
8.           )
   
9.         ) ;_ end of mapcar

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

lisperado

Cad命令也可以实现os相关资讯,之后可以read-line读取myos.txt

1. (setq tmp (strcat (getvar 'tempprefix) "myos.txt"))
   
2. (vl-cmdf "_shell" (strcat "wmic os get * /value > ” tmp))

(setq tmp (strcat (getvar 'tempprefix) "myos.txt"))<br /> (vl-cmdf "_shell" (strcat "wmic os get * /value > ” tmp))

qw223

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

lisperado

可以试试改写一些registry注册表里的值