Ordner mit Vollzugriff Jeder erstellen bzw. Freigeben

lw = InputBox("Laufwerks Buchstaben eingeben: " &VbCRLF&VbCRLF&_  
"BITTE NUR DEN BUCHSTABEN EINGEBEN OHNE :\"&VbCRLF&VbCRLF&_  
"z.B.: c oder d" , "Ziel eingeben")  
ordner = InputBox("Ordner Name eingeben: " &VbCRLF&VbCRLF&_  
"z.B.: Toshiba-Scan" , "Ordnername")  


Dim objFSO, newDIR 
ziel= lw & ":\"& ordner   
Set objFSO = CreateObject("Scripting.FileSystemObject")     
if objFSO.Folderexists(ziel) = false then 
Set newDIR = objFSO.CreateFolder(ziel)
Else msgbox "Ordner existiert schon" ,0,"Achtung"   
end if

'###  [content:357788] ###  
'################################### Freigabe mit Vollzugriff Berechtigung ##########################  
' Name der Freigabe  
SHARENAME = ordner
' Pfad der Freigabe  
SHAREPATH = ziel
' Beschreibung der Freigabe  
Const SHAREDESCRIPTION = "Scan Ordner bzw. Freigabe"  
' SID des Accounts / S-1-1-0 = Jeder  
Const SHARETRUSTEE = "S-1-1-0"  
' Zugriffs-Berechtigung  
Const SHAREACCESSMASK = 2032127
'==============================  
'Objekte erstellen  
Set objWMI = GetObject("winmgmts:\\.\root\CIMV2")  
Set objSecClass = objWMI.Get("Win32_SecurityDescriptor")  
Set objSecDesc = objSecClass.SpawnInstance_()
Set refAccount = objWMI.Get("Win32_SID='" & SHARETRUSTEE & "'")  

' Create Trustee Object  
Set objTrustee = objWMI.Get("Win32_Trustee").SpawnInstance_()  
With objTrustee
	.Domain = refAccount.ReferencedDomainName
	.Name = refAccount.AccountName
	.SID = refAccount.BinaryRepresentation
	.SidLength = refAccount.SidLength
	.SIDString = refAccount.SID
End With
' Create ACE  
Set objACE = objWMI.Get("Win32_ACE").SpawnInstance_()  
With objACE.Properties_
	.Item("AccessMask") = SHAREACCESSMASK  
	.Item("AceFlags") = 3  
	.Item("AceType") = 0  
	.Item("Trustee") = objTrustee  
End With
'ACE in den SecurityDescriptor setzen  
objSecDesc.Properties_.Item("DACL") = Array(objACE)  

'Share erstellen  
Set objShare = objWMI.Get("Win32_Share")  
Set params = objShare.Methods_("Create").InParameters.SpawnInstance_()  
With params.Properties_
	.Item("Access") = objSecDesc  
	.Item("Name") = SHARENAME  
	.Item("Description") = SHAREDESCRIPTION  
	.Item("Path") = SHAREPATH  
	.Item("Type") = 0  
End With

' Share erstellen  
Set result = objShare.ExecMethod_("Create", params)  
If result.returnValue <> 0 Then
	wscript.echo("Fehler beim Erstellen des Shares, return Code:" & result.returnValue)  
Else
	wscript.echo("Share wurde erfolgreich erstellt!")  
End If

'############################################################## Verknüpfung  ##################  

If MsgBox("Verknüpfung auf dem Desktop erstellen?", vbOKCancel, "Achtung") = vbOK Then  
                          '    für den Abbrechen Button  

 Set wshShell = CreateObject("WScript.Shell")  
 Set fso = CreateObject("Scripting.FileSystemObject")  
 Set args = WScript.Arguments
 

 ziel = fso.GetAbsolutePathName(ziel)
 idxName = InStrRev(ziel, "\")  

 idxExt = InStrRev(ziel, ".")  
 If idxExt < idxName Then idxExt = Len(ziel) + 1
 ordner = Left(ziel, idxName - 1)
 linkName = Mid(ziel, idxName + 1, idxExt - idxName - 1)
 desktop = wshShell.SpecialFolders("Desktop")  
 
 Set link = wshShell.CreateShortcut(desktop & "\" & linkName & ".lnk")  
 link.TargetPath = ziel
 link.WorkingDirectory = ordner
 link.Save
Else
End if


'############################################################## Ausgabe Text Datei  ###########  

'################## Computer Name  
 Set wshNetwork = CreateObject( "WScript.Network" )   
    strComputerName = wshNetwork.ComputerName 

'################## Computer IP  
'Dim sComputer, sStdOut, sIP   
    With CreateObject("WScript.Shell")   
        sComputer = .Environment("Process").Item("Computername")   
        sStdOut = .Exec("Ping -n 1 -4 " & sComputer).StdOut.ReadAll   
    End With 
    If InStr(sStdOut, "[") > 0 Then   
        sIP = Split(Split(sStdOut, "[", 2)(1), "]")(0)  
    Else 
        sIP = "Nothing"   
    End If 

' ########### Text Datei Schreiben  
Dim Dateisystem, Textdatei, Text
Set Dateisystem = CreateObject("Scripting.FileSystemObject")  
Set Textdatei = Dateisystem.CreateTextFile("\service-tool\64bit\Freigab.txt")  
Textdatei.Write "Kann Kopiert werden" & vbCrLf & "für  Weiterverarbeitung"_  
& vbCrLf & " " & vbCrLf & vbCrLf & "\\" & strComputerName & "\" & SHARENAME _  
& vbCrLf & vbCrLf & " oder " _   
& vbCrLf & vbCrLf & "\\" & sIP & "\" & SHARENAME  
Textdatei.Close

' ############## Text Datei Lesen  
Set Dateisystem = CreateObject("Scripting.FileSystemObject")  
Set Textdatei = Dateisystem.OpenTextFile("\service-tool\64bit\Freigab.txt")  
Text = Textdatei.ReadAll

Set WshShell = CreateObject("WScript.Shell")  
     WshShell.Run "\service-tool\64bit\Freigab.txt"    

     Set WshShell = CreateObject("WScript.Shell")                   
     WScript.Quit