How to win7 x64 folder share/unshare?

[youtuber]

How to share a folder as in the picture or remove it from the share?

Spoiler

And I also want to check permission = Full Control,Change,Read

#RequireAdmin
#include <NetShare.au3>

Local $sShareFolderNameAndDir = @DesktopDir & "\AutoIt Share Folder"
Local $sShareName = "AutoIt Share Folder"

$aInfo = _Net_Share_ShareGetInfo(@ComputerName, $sShareName)
$PermissionSharedInfo = _Net_Share_PermStr($aInfo[3])

If _Net_Share_ShareCheck(@ComputerName, $sShareName) = -1 Then
    ConsoleWrite("Not shared " & $sShareFolderNameAndDir & @CRLF)
    _Net_Share_ShareAdd(@ComputerName, $sShareName, 0, $sShareFolderNameAndDir, "Share Comment Folder")
    ConsoleWrite("Permission shared " & $PermissionSharedInfo & " " & $sShareFolderNameAndDir & @CRLF)
Else
    _Net_Share_ShareDel(@ComputerName, $sShareName)
    ConsoleWrite("Removed from sharing " & $sShareFolderNameAndDir & @CRLF)
    ConsoleWrite("Permission shared " & $PermissionSharedInfo & " " & $sShareFolderNameAndDir & @CRLF)
EndIf

 

Edited November 21, 2018 by youtuber

[Jos]

You are around long enough to know you need to check for success/errors of performed functions, so start with adding error checking like is done in the example for  _Net_Share_ShareGetInfo(),

Jos

[youtuber]

@Jos OK I fixed the error, but I could not find the folder to grant all permissions and remove all permissions in the help file

[FrancescoDiMuro]

@youtuber

• Using net commands
• Using cacls.exe

[youtuber]

Is there a solution other than RunWait(@ComSpec

[Jos]

1 hour ago, youtuber said:

Is there a solution other than RunWait(@ComSpec

Because?

[youtuber]

Because : No RunWait(@ComSpec in NetShare.au3 

[Jos]

I am sorry but really don't understand either the question not the answer.

Jos

[caramen]

Maybe you can find your happyness in this thread ?

 

[youtuber]

I found the solution, but what is the NetShare.au3 equivalent?

#RequireAdmin
#include <process.au3>
Local $sShareFolderName = "AutoIt Share Folder"
Local $sSharedDir = @DesktopDir & "\" & $sShareFolderName

_RunDos("net share " & $sShareFolderName & "=" & $sSharedDir & " /GRANT:Everyone,FULL")
;share delete
_RunDos("net share " & $sShareFolderName & " /DELETE")
;or
 _Net_Share_ShareDel(@ComputerName, $sShareFolderName)

 

Edited November 22, 2018 by youtuber