Ornder Freigeben per script

[testdemo 10]

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

[grizzly999 11]

Dann nimm net share

 

grizzly999

[humpi 11]

Hi,

net use e: \\Pfad und net use e: /delete sollten hier helfen

[grizzly999 11]

net use gibt weder einen Ordner frei, noch löscht es eine Freigabe. Damit kann man lediglich eine Freigabe als Laufwerk mappen/entfernen.

 

 

grizzly999

[testdemo 10]

Dann nimm net share

 

grizzly999

sieht schonmal super aus vielen Dank!

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

 

 

gruß

Dennis

[humpi 11]

Sorry, habe ich falsch verstanden.

[grizzly999 11]

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

[sysiphos 10]

Hi,

gib dem Freigabenamen am ende ein $ Zeichen dann ist die Freigabe im Netzwerk nicht sichtbar.

 

Viel Glück!!

[Tenman 10]

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

[testdemo 10]

Guten Morgen,

vielen dank für eure Lösungen!!!

Ich wünsche euch nochn schönen Tag :)

 

Gruß

Dennis