↑  ←  Описание функции


_Net_Share_ShareSetInfo

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.

Возвращаемое значение

Успех:Возвращает True
Ошибка:Возвращает 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.

См. также

_Net_Share_ShareGetInfo

См. также

Искать NetShareSetInfo в библиотеке MSDN

Пример

#include <GUIConstantsEx.au3>
#include <NetShare.au3>
#include <WindowsConstants.au3>

Global $iMemo

_Main()

Func _Main()
    Local $hGUI, $aInfo
    Local Const $sShareName = "AutoIt Share"

    ; Создаёт GUI
    $hGUI = GUICreate("NetShare", 400, 300)

    ; Создаёт элемент для заметок
    $iMemo = GUICtrlCreateEdit("", 2, 2, 396, 296, $WS_VSCROLL)
    GUICtrlSetFont($iMemo, 9, 400, 0, "Courier New")
    GUISetState()

    ; See if the share exists
    If _Net_Share_ShareCheck (@computername, $ssharename) = -1 Then
        ; Create a share on the local computer
        _Net_Share_ShareAdd (@ComputerName, $sShareName, 0, "C:\", "AutoIt Share Comment")
        If @error Then MsgBox(4096, "Информация", "Share add error : " & @error)
        MemoWrite("Share added")
    Else
        MemoWrite("Share exists")
    EndIf

    ; 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(4096, "Информация", "Share delete error : " & @error)
    MemoWrite("Share deleted")

    ; Цикл выполняется, пока окно не будет закрыто
    Do
    Until GUIGetMsg() = $GUI_EVENT_CLOSE
EndFunc   ;==>_Main

; Записывает строку в элемент для заметок
Func MemoWrite($sMessage = "")
    GUICtrlSetData($iMemo, $sMessage & @CRLF, 1)
EndFunc   ;==>MemoWrite