Shares a server resource
#include <NetShare.au3>
_Net_Share_ShareSetInfo ( $sServer, $sShare, $sComment, $iMaxUses )
| $sServer | Specifies the DNS or NetBIOS name of the remote server on which the function is to execute. If this parameter is blank, the local computer is used. |
| $sShare | Specifies the name of the share to set information on |
| $sComment | String that contains an optional comment about the shared resource |
| $iMaxUses | Indicates the maximum number of connections that the resource can accommodate. The number of connections is unlimited if this value is –1. |
| Success: | True. |
| Failure: | False. |
Only members of the Administrators or Power Users local group or those with Print or Server Operator group membership, can successfully execute this function.
The Print Operator can set information only about Printer shares.
Search NetShareSetInfo in MSDN Library.
#include <GUIConstantsEx.au3>
#include <MsgBoxConstants.au3>
#include <NetShare.au3>
#include <WindowsConstants.au3>
#RequireAdmin ; needed for _Net_Share_ShareAdd()
Global $g_idMemo
Example()
Func Example()
Local $aInfo
Local Const $sShareName = "AutoIt Share"
Local Const $sResourcePath = "C:\"
; Create GUI
GUICreate("NetShare", 400, 300)
; Create memo control
$g_idMemo = GUICtrlCreateEdit("", 2, 2, 396, 296, $WS_VSCROLL)
GUICtrlSetFont($g_idMemo, 9, 400, 0, "Courier New")
GUISetState(@SW_SHOW)
Local $bShareAdded = False
; See if the share exists
If _Net_Share_ShareCheck(@ComputerName, "") = -1 Then
; Create a share on the local computer
$bShareAdded = _Net_Share_ShareAdd(@ComputerName, $sShareName, 0, $sResourcePath, "AutoIt Share Comment")
If @error Then
MsgBox($MB_SYSTEMMODAL, "Information", "Share add error : " & @error)
Else
MemoWrite("Share added" & @CRLF)
EndIf
Else
MemoWrite("Share exists" & @CRLF)
EndIf
If $bShareAdded Then
; Change share information
_Net_Share_ShareSetInfo(@ComputerName, $sShareName, "New Comment", 4)
; Show information about the share we added
$aInfo = _Net_Share_ShareGetInfo(@ComputerName, $sShareName)
MemoWrite("Share name ..............: " & $aInfo[0])
MemoWrite("Share type...............: " & _Net_Share_ResourceStr($aInfo[1]))
MemoWrite("Comment .................: " & $aInfo[2])
MemoWrite("Permissions .............: " & _Net_Share_PermStr($aInfo[3]))
MemoWrite("Maximum connections .....: " & $aInfo[4])
MemoWrite("Current connections .....: " & $aInfo[5])
MemoWrite("Local path ..............: " & $aInfo[6])
MemoWrite("Password ................: " & $aInfo[7])
; Delete the share
_Net_Share_ShareDel(@ComputerName, $sShareName)
If @error Then MsgBox($MB_SYSTEMMODAL, "Information", "Share delete error : " & @error)
MemoWrite(@CRLF & "Share deleted")
; Loop until the user exits.
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
EndIf
EndFunc ;==>Example
; Write message to memo
Func MemoWrite($sMessage = "")
GUICtrlSetData($g_idMemo, $sMessage & @CRLF, 1)
EndFunc ;==>MemoWrite