Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Function setAdmin() wscript.Echo strUserID wscript.Echo strHomeDir wscript.echo("Setting Permissions For " & strUserID & " on " & strHomeDir) Set objShell = CreateObject("WScript.Shell") objShell.Exec "xcacls.exe " & strHomeDir & " /G builtin\administrators:F /y" wscript.echo("Administrator Permissions granted") End Function
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.