Jump to content
Sign in to follow this  
testdemo

Ornder Freigeben per script

Recommended Posts

Guten Morgen,

 

ich will ein Ordner freigeben und die Freigabe wieder löschen und das per Script.

Ich möchte das aus dem Grund machen weil ich eine Datensicherung machen will und es verhindert werden muss das ein User darfauf zugreift wenn die Datensicherung läuft. Denn sonst werden den Daten inkonsistent.

 

 

Gruß

Dennis

Share this post


Link to post
Share on other sites
sieht schonmal super aus vielen Dank!

kann ich damit auch die "Freigabeberechtigungen" hinzufügen?

 

 

gruß

Dennis

Nein, da brauchst du z.B. subinacl.exe aus dem ResourceKit, bzw. gibt es da auch noch ein anderes Tool im ResKit, wenn ich mich recht erinnere (habe grad keines hier), aber wüsste jetzt den Namen nicht.

 

 

 

grizzly999

Share this post


Link to post
Share on other sites

' 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"

Share this post


Link to post
Share on other sites
Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte überlege Dir, ob es nicht sinnvoller ist ein neues Thema zu erstellen.

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  

Werbepartner:



×
×
  • Create New...