Obtient la représentation chaîne des autorisations d'une ressource
#include <NetShare.au3>
_Net_Share_PermStr ( $iPerm )
$iPerm | Les autorisations de la ressource: 1 - Autorisation pour lire les données à partir d'une ressource et de les exécuter 2 - Autorisation pour écrire des données sur la ressource 4 - Autorisation pour créer une instance de la ressource 8 - Autorisation pour exécuter la ressource 16 - Autorisation pour supprimer la ressource 32 - Autorisation pour modifier les attributs de la ressource 64 - Autorisation pour modifier les autorisations affectées à une ressource |
#include <GUIConstantsEx.au3> #include <NetShare.au3> #include <WindowsConstants.au3> Global $g_idMemo Example() Func Example() Local $sServer, $aInfo ; 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) ; Obtient le serveur et le nom de partage $sServer = InputBox("NetWork Demo", "Tapez le nom du Serveur:", "\\MyServer", "", 200, 130) If @error Then Exit ; Énumère les fichiers ouverts sur le serveur $aInfo = _Net_Share_FileEnum($sServer) MemoWrite("Error ...................: " & @error) MemoWrite("Entries read ............: " & $aInfo[0][0]) For $iI = 1 To $aInfo[0][0] MemoWrite("Resource ID .............: " & $aInfo[$iI][0]) MemoWrite("Resource permissions ....: " & _Net_Share_PermStr($aInfo[$iI][1])) MemoWrite("Resource locks ..........: " & $aInfo[$iI][2]) MemoWrite("Resource path ...........: " & $aInfo[$iI][3]) MemoWrite("Resource user ...........: " & $aInfo[$iI][4]) MemoWrite() Next ; 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