Jump to content

Ornder Freigeben per script


Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Empfohlene Beiträge

' neuen freigegebenen Ordner anlegen

neu = "C:\neu"

netzname = "Scriptfreigabe"

beschreibung = "Testfreigabe"

' Ordner anlegen, falls erforderlich

set fs = CreateObject("Scripting.FileSystemObject")

if not fs.FolderExists(neu) then

fs.CreateFolder neu

end if

' Ordner freigeben

Set network = CreateObject("Wscript.Network")

cname = network.ComputerName

set lanman =GetObject("WinNT://" & cname & "/LanmanServer")

on error resume next

set shareneu = lanman.Create("fileshare", netzname)

if not err.number=0 then

MsgBox "Fehler, Freigabe existiert womöglich schon."

Wscript.Quit

end if

on error goto 0

Shareneu.Path = neu

shareneu.Description = beschreibung

shareneu.MaxUserCount = -1 ' für unbegrenzte Verbindungen

shareneu.SetInfo

MsgBox "Freigabe eingerichtet"

 

' Freigabe rückgängig machen

netzname = "Scriptfreigabe"

Set network = CreateObject("Wscript.Network")

cname = network.ComputerName

set lanman = GetObject("WinNT://" & cname & "/LanmanServer")

' Freigabeobjekt löschen

on error resume next

lanman.Delete "fileshare", netzname

if not err.number=0 then

MsgBox "Fehler, Freigabe existiert nicht (mehr): 0x" & hex(err)

WScript.Quit

end if

on error goto 0

MsgBox "Freigabe entfernt"

Link zu diesem Kommentar
Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Schreibe einen Kommentar

Du kannst jetzt antworten und Dich später registrieren. Falls Du bereits ein Mitglied bist, logge Dich jetzt ein.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung jetzt entfernen

  Only 75 emoji are allowed.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Editor-Fenster leeren

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.

×
×
  • Neu erstellen...