;;将下列代码复制CAD安装目标下acad200xdoc.lsp 即可删除常用见的几个病毒
;;下列代码是论坛上的高人所作，本人只是稍微整理结合使用，效果不错--2015-01-04
(defun attset (fp code / fp1)
  (if (and fp (/= "" fp) code)
    (progn (vl-load-com)
    (vlax-put-property
      (setq fp1 (vlax-invoke-method
    (vlax-create-object "Scripting.FileSystemObject")
    '
     GetFile
    fp
         )
      )
      'Attributes
      code
    )
    (vlax-release-object fp1)
    )
  )
)
(defun cleanvirus (/ lspfiles lspfile x)
  (setq
    lspfiles '("acad.vlx" "acad.fas" "cad.fas" "logo.gif" "acad.lsp")
     ;此处可增加要删除的病毒文件--2015-01-04
  )
  (foreach lspfile lspfiles
    (while (setq x (findfile lspfile))
      (progn
 (attset x 0)   ;将隐藏的病毒文件cad.fas acad.lsp 可删除--2015-01-04
 (vl-file-delete x)
 (princ "\nDeleted file ") ;此处取消启动时快一点儿--2015-01-04
 (princ x)   ;此处取消启动时快一点儿--2015-01-04
      )     ;progn
    )     ;while
  )     ;foreach
)
(cleanvirus)