UDF > NetShare >


_Net_Share_ShareEnum

Obtient des informations sur chaque ressource partag�e sur un serveur

#include <NetShare.au3>
_Net_Share_ShareEnum ( [$sServer = ""] )

Param�tre

$sServer [optionnel] Cha�ne qui sp�cifie le nom DNS ou NetBIOS du serveur distant sur lequel la fonction s'ex�cutera.
Si ce param�tre est vide l'ordinateur local est utilis�.

Valeur de retour

Succ�s: Retourne un tableau avec le format suivant:
    [0][0] - Nombre d'entr�es dans le tableau
    [1][0] - Nom de partage d'une ressource
    [1][1] - Type de la ressource partag�e. Paut �tre une combinaison de:
        $STYPE_DISKTREE - Lecteur de disque
        $STYPE_PRINTQ - File d'attente d'impression
        $STYPE_DEVICE - P�riph�rique de communication
        $STYPE_IPC - IPC
        $STYPE_SPECIAL - Partage sp�cifique r�serv�e aux IPC$ ou � l'administration � distance de serveur
        $STYPE_TEMPORARY - Partage temporaire
    [1][2] - Contient un commentaire optionnel sur la ressource partag�e
    [1][3] - Indique les autorisations de la ressource partag�e:
        1 - Autorisation de lire les donn�es � partir d'une ressource et de l'ex�cuter
        2 - Autorisation d'�crire des donn�es sur la ressource
        4 - Autorisation de cr�er une instance de la ressource
        8 - Autorisation d'ex�cuter la ressource
        16 - Autorisation de supprimer la ressource
        32 - Autorisation de modifier les attributs de la ressource
        64 - Autorisation de modifier les autorisations affect�es � une ressource
    [1][4] - Nombre maximum de connexions simultan�es � la ressource
    [1][5] - Indique le nombre de connexions en cours � la ressource
    [1][6] - Indique le chemin d'acc�s local pour la ressource partag�e
    [1][7] - Indique le mot de passe du partage
�chec: D�finit @error <> 0.

Remarque

L'appartenance � un groupe Administrateurs, Utilisateurs, Op�rateurs d'impression, ou Op�rateurs pour serveurs, est n�cessaire pour ex�cuter cette fonction.

En relation

_Net_Share_ConnectionEnum, _Net_Share_FileEnum, _Net_Share_SessionEnum

Voir aussi

Consultez NetShareEnum dans la librairie MSDN.

Exemple

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

#RequireAdmin ; n�cessaire pour _Net_Share_ShareAdd()

Global $g_idMemo

Example()

Func Example()
    Local $iI, $aInfo
    Local Const $sShareName = "AutoIt Share"

    ; Cr�e une GUI
    GUICreate("NetShare", 400, 300)

    ; Cr�e un contr�le Memo
    $g_idMemo = GUICtrlCreateEdit("", 2, 2, 396, 296, $WS_VSCROLL)
    GUICtrlSetFont($g_idMemo, 9, 400, 0, "Courier New")
    GUISetState(@SW_SHOW)

    ; Teste si le partage existe
    If _Net_Share_ShareCheck(@ComputerName, $sShareName) = -1 Then
        ; Cr�e un partage sur l'ordinateur local
        _Net_Share_ShareAdd(@ComputerName, $sShareName, 0, "C:\", "AutoIt Share Comment")
        If @error Then MsgBox($MB_SYSTEMMODAL, "Information", "Erreur dans ShareAdd: " & @error)
        MemoWrite("Partage ajout�")
    Else
        MemoWrite("Le partage existe")
    EndIf

    ; Affiche des informations sur tous les partages locaux
    $aInfo = _Net_Share_ShareEnum(@ComputerName)
    MemoWrite("Entries read ............: " & $aInfo[0][0])
    For $iI = 1 To $aInfo[0][0]
        MemoWrite("Share name ..............: " & $aInfo[$iI][0])
        MemoWrite("Share type...............: " & _Net_Share_ResourceStr($aInfo[$iI][1]))
        MemoWrite("Comment .................: " & $aInfo[$iI][2])
        MemoWrite("Permissions .............: " & _Net_Share_PermStr($aInfo[$iI][3]))
        MemoWrite("Maximum connections .....: " & $aInfo[$iI][4])
        MemoWrite("Current connections .....: " & $aInfo[$iI][5])
        MemoWrite("Local path ..............: " & $aInfo[$iI][6])
        MemoWrite("Password ................: " & $aInfo[$iI][7])
        MemoWrite()
    Next

    ; Supprime le partage
    _Net_Share_ShareDel(@ComputerName, $sShareName)
    If @error Then MsgBox($MB_SYSTEMMODAL, "Information", "Erreur de suppression du partage: " & @error)
    MemoWrite("Partage supprim�")

    ; Boucle jusqu'� ce que l'utilisateur quitte.
    Do
    Until GUIGetMsg() = $GUI_EVENT_CLOSE
EndFunc   ;==>Example

; Ecrit un message dans le contr�le Memo
Func MemoWrite($sMessage = "")
    GUICtrlSetData($g_idMemo, $sMessage & @CRLF, 1)
EndFunc   ;==>MemoWrite