社区 › Auto Lisp › 使用autoLisp获取管理员访问权限

weiglas 发表于 2022-7-5 15:39:02

使用autoLisp获取管理员访问权限

你好
我有一个Lisp，可以将文件粘贴到需要管理员访问权限的文件夹中，但并非所有用户都有管理员访问帐户。那么，有什么方法可以使用Lisp获得管理员访问权限？
例如，在Lisp文件中写入我的管理员用户名和密码，并在需要时使用这些信息？
 
谢谢

ronjonp 发表于 2022-7-5 16:02:01

也许是这样的：
(defun _grantuserfullpermission        (folder / cacls wss)
;; https://stackoverflow.com/questions/2928738/how-to-grant-permission-to-users-for-a-directory-using-command-line-in-windows
(and (vl-file-directory-p folder)
      (setq wss (vlax-get-or-create-object "WScript.Shell"))
      (findfile (setq cacls (strcat (getenv "windir") "\\System32\\icacls.exe ")))
      (vlax-invoke-method
wss
'run
(strcat cacls
       "\""
       folder
       "\""
       " /q /c /t /grant "
       (cond ((getenv "userdomain"))
             ((getenv "computername"))
       )
       "\\"
       (getenv "username")
       ":(OI)(CI)F /T"
)
;;SSHHHHH
0
:vlax-true
      )
)
(and wss (vlax-release-object wss))
)
;; (_grantuserfullpermission "C:\\Test")

weiglas 发表于 2022-7-5 16:24:07

这对我有用！
谢谢

ronjonp 发表于 2022-7-5 16:56:08

 
很高兴听到

查看完整版本: 使用autoLisp获取管理员访问权限