Get admin access with autoLisp

[weiglas]

Hi,

I have a Lisp that paste a file in a folder that require admin access, but is not all users that have a admin access account. So, there is some way to get the admin access with Lisp?

Like, write my admin username and password in the Lisp file, and when required, use these information?

 

Thanks!

[ronjonp]

Perhaps something like this:

(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]

That's working for me!

Thanks!

[ronjonp]

That's working for me!

Thanks!

 

Good to hear