Überprüft, ob ein Server ein Gerät freigibt oder nicht
#include <NetShare.au3>
_Net_Share_ShareCheck ( $sServer, $sResourcePath )
$sServer | Bestimmt die DNS oder den NetBIOS-Namen vom Remote-Server, auf welchem die Funktion auszuführen ist. Falls dieser Parameter leergelassen wird, wird die Funktion auf den lokalen Computer angewendet. |
$sResourcePath | Bestimmt den Namen eines Gerätes, welches auf Freigabezugiff überprüft werden soll |
Erfolg: | Der Typ des freigegebenen Gerätes. Kann eine Kombination der folgenden sein: $STYPE_DISKTREE - Laufwerk $STYPE_PRINTQ - Druckwarteschlange $STYPE_DEVICE - Gerät $STYPE_IPC - IPC $STYPE_SPECIAL - Spezielle Freigabe, die für IPC$ oder Remote-Administration des Servers reserviert ist $STYPE_TEMPORARY - Eine temporäre Freigabe |
Fehler: | -1 - Die Freigabe existiert nicht |
Keine spezielle Gruppenmitgliedschaft wird benötigt, um diese Funktion erfolgreich auszuführen.
_Net_Share_ShareAdd, _Net_Share_ShareDel
Suche nach NetShareCheck in der MSDN Bibliothek.
#include <GUIConstantsEx.au3>
#include <MsgBoxConstants.au3>
#include <NetShare.au3>
#include <WindowsConstants.au3>
#RequireAdmin ; wird für _Net_Share_ShareAdd() benötigt, falls erforderlich
Global $g_idMemo
Example()
Func Example()
Local $iI, $aInfo
Local Const $sShareName = "AutoIt Share"
Local Const $sResourcePath = "C:\"
; Erstellt eine GUI
GUICreate("NetShare", 400, 300)
; Erstellt ein 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
; Prüfen, ob die Freigabe existiert
If _Net_Share_ShareCheck(@ComputerName, $sResourcePath) = -1 Then
; Eine Freigabe auf dem lokalen Computer erstellen
$bShareAdded = _Net_Share_ShareAdd(@ComputerName, $sShareName, 0, $sResourcePath, "AutoIt Share Comment")
If @error Then MsgBox($MB_SYSTEMMODAL, "Information", "Fehler beim Hinzufügen der Freigabe : " & @error)
MemoWrite("Freigabe hinzugefügt")
Else
MemoWrite("Freigabe existiert")
EndIf
; Listet Informationen über alle lokalen Freigaben auf
$aInfo = _Net_Share_ShareEnum(@ComputerName)
MemoWrite("Einträge lesen ............: " & $aInfo[0][0])
For $iI = 1 To $aInfo[0][0]
MemoWrite("Freigabename .............: " & $aInfo[$iI][0])
MemoWrite("Freigabetyp...............: " & _Net_Share_ResourceStr($aInfo[$iI][1]))
MemoWrite("Kommentar ................: " & $aInfo[$iI][2])
MemoWrite("Benutzerrechte ...........: " & _Net_Share_PermStr($aInfo[$iI][3]))
MemoWrite("Maximale Verbindungen ....: " & $aInfo[$iI][4])
MemoWrite("Aktuelle Verbindungen ....: " & $aInfo[$iI][5])
MemoWrite("Lokaler Pfad .............: " & $aInfo[$iI][6])
MemoWrite("Passwort .................: " & $aInfo[$iI][7])
MemoWrite()
Next
If $bShareAdded Then
; Freigabe entfernen
_Net_Share_ShareDel(@ComputerName, $sShareName)
If @error Then MsgBox($MB_SYSTEMMODAL, "Information", "Fehler beim Entfernen der Freigabe : " & @error)
MemoWrite("Freigabe entfernt")
EndIf
; Die Schleife wiederholt sich, bis der Benutzer die Beenden-Aktion der GUI auslöst.
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
EndFunc ;==>Example
; Schreibt eine Nachricht in das Memo
Func MemoWrite($sMessage = "")
GUICtrlSetData($g_idMemo, $sMessage & @CRLF, 1)
EndFunc ;==>MemoWrite