Jump to content

give full permissions to the share folder


Burak
 Share

Recommended Posts

Hi, I found a code like this, but just to share the folder opens, write, and he won't give permission to modify.

Const $FILE_SHARE = 0
Const $MAXIMUM_CONNECTIONS = 25

$strComputer = "atl-ws-01"
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\cimv2")

$objNewShare = $objWMIService.Get("Win32_Share")

$errReturn = $objNewShare.Create("C:\Public", "PublicShare", $FILE_SHARE, $MAXIMUM_CONNECTIONS, "Public share for Fabrikam employees.")

How to access from other computers, read, write and how we can give permissions to?

Link to comment
Share on other sites

There's a UDF in the example scripts that will probably do what you're looking to do. Search for ACL in that forum section.

If I posted any code, assume that code was written using the latest release version unless stated otherwise. Also, if it doesn't work on XP I can't help with that because I don't have access to XP, and I'm not going to.
Give a programmer the correct code and he can do his work for a day. Teach a programmer to debug and he can do his work for a lifetime - by Chirag Gude
How to ask questions the smart way!

I hereby grant any person the right to use any code I post, that I am the original author of, on the autoitscript.com forums, unless I've specifically stated otherwise in the code or the thread post. If you do use my code all I ask, as a courtesy, is to make note of where you got it from.

Back up and restore Windows user files _Array.au3 - Modified array functions that include support for 2D arrays.  -  ColorChooser - An add-on for SciTE that pops up a color dialog so you can select and paste a color code into a script.  -  Customizable Splashscreen GUI w/Progress Bar - Create a custom "splash screen" GUI with a progress bar and custom label.  -  _FileGetProperty - Retrieve the properties of a file  -  SciTE Toolbar - A toolbar demo for use with the SciTE editor  -  GUIRegisterMsg demo - Demo script to show how to use the Windows messages to interact with controls and your GUI.  -   Latin Square password generator

Link to comment
Share on other sites

Ok, I have come to the conclusion that I want with this code.

#RequireAdmin
_share_folder("Burak", @DesktopDir & "\burak")
Func _share_folder($share_name, $share_path)
    If Not(FileExists($share_path)) Then DirCreate($share_path)
    RunWait(@ComSpec & " /C net share "&$share_name&" /delete&net share "&$share_name&"="&$share_path&" /GRANT:EVERYONE,FULL&CACLS "&$share_path&" /e /p Everyone:f", "", @SW_HIDE)
EndFunc

 

Link to comment
Share on other sites

  • 2 years later...
  • 1 month later...

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...