Freigaben wegen Serveraustausch von alten Windows-Server auf neuen Server übernehmen

:: wir befinden uns auf SRV01
robocopy d:\daten \\srv02\d$\daten /s /e /b /XO /SEC /R:0 /W:1

rmtshare \\srv01| findstr /R "\<D:"  

set SRV=SRV01
set TMP=~~mf.txt
set RSH=~~rsh.txt
set JS=~~make_share.js
set OUT=~~make-cmd.tmp
set CMD=_make_freigaben_cmd.txt
set LOG=_make_frg_rmtshare.log
set TRENN=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

echo %TRENN% > %LOG%
echo @echo off > %CMD%

echo var src="%RSH%"; > %JS%  
echo var dst="%OUT%"; >> %JS%  
type _make_freigabe.js >> %JS%

:: Alle Freigaben ermitteln
rmtshare \\%SRV%| find ":\" > %TMP%  

for /F %%i IN (%TMP%) do call :PROC1 %%i

goto ENDE

:PROC1
:: Aktion pro Freigabe (eine Zeile aus %TMP%)
echo [%1]
:: Freigabe-Infos von Quellserver ermitteln
rmtshare \\%SRV%\%1 > %RSH%
type %RSH% >> %LOG%
echo %TRENN% >> %LOG%
:: Freigabe Befehlsdatei erstellen
cscript /nologo %JS%
type %OUT% >> %CMD%
goto :EOF

:ENDE

del %TMP%
del %RSH%
del %JS%
del %OUT%
set TMP=
set RSH=
set JS=
set OUT=
set CMD=
set SRV=
set LOG=
set TRENN=

// die beiden Variablen src und dst werden vom CMD-Script in diese Datei geschrieben!
//var src="";  
//var dst=""; 

// Ausgabe von RMTSHARE einlesen
var fp1 = OpenFile(src, "r");    
var dat = fp1.ReadAll(); // Inhalt der Datei in msg schieben
fp1.Close();

var s;
var x,i,flagpm;
var _share_name;
var _path;
var _permissions;
var _CMD;

flagpm=0;

var fp2 = CreateFile(dst); // Befehl zur Erstellung der Freigabe

// Nun die einzelnen Infos der Freigabe ermitteln
var zeilen = dat.split("\r\n");  
x = 0;
flag=1;
_CMD="rmtshare ";  
_permissions = "";  
for (i = 0; i < zeilen.length; i++) {
  if (zeilen[i].indexOf("The command completed successfully") == 0) {  
    flagpm=0;
    _CMD += _permissions;
    fp2.WriteLine(_CMD);
    x++;
  }  

  // einzelne Werte auslesen
  if (zeilen[i].indexOf("Share name") == 0) {  
    _share_name = getWert(zeilen[i]);
    _CMD += _share_name + "=";  
  }  
  if (zeilen[i].indexOf("Path") == 0) {  
    _path = getWert(zeilen[i]);
    _CMD += "\"" + _path + "\"";  
  }  
  if (flagpm == 1) {
    s = trimString(zeilen[i]);
    if (s.length > 0) {
	  // in s steht z.B.: "SRV01\mustermann  :  CHANGE" 
	  s = aendereRecht(s); 
	  //WScript.Echo("["+s+"]"); 
      _permissions += " /GRANT " + s;  
    }
  }   
  if (zeilen[i].indexOf("Permissions") == 0) {  
    // Die User/Rechte stehen in den folgenden Zeilen, bis eine Leerzeile kommt.
    flagpm++;      
  }  
    
}
fp2.Close();

/** liefert einen Wert, der hinter einer Variable steht
 *  012345678901234567890...
 * "Share name        \\srv01\daten"   --> "\\srv01\daten" 
 * "Path              D:\daten" --> "D:\daten" 
 *
 * @param s gesamter String
 * @return wert
 */
function getWert(s) {
  s = s.substr(17);
  s = trimString(s);
  return s;  
}  

/** String mit Useraccount : Recht ändern
 * In: "DOMAENE\mustermann  :  CHANGE" 
 * Out: "DOMAENE\mustermann:C" 
 */
function aendereRecht(s) {
  var sa = trimString(s.substring(0, s.indexOf(":")));  
  var sb = trimString(s.substr(s.indexOf(":") + 1));  
  return "\"" + sa + "\":" + sb.substr(0,1);  
}

/** Entfernt fuehrende und schliessende Leerzeichen bei einem String.
 * @param txt String mit optionalen Leerzeichen am Anfang und Ende.
 * @return String ohne Leerzeichen.
 */
function trimString(txt) {
  if (txt != null) {
    txt = String(txt);
    txt = txt.replace(/^[\s\xA0]+/, "");  
    txt = txt.replace(/[\s\xA0]+$/, "");  
  }
  return(txt);
}

/** Create TextDatei.
 * @param name String kompletter Dateiname
 * @return tf  Objekt FilePointer
 */
function CreateFile(name) {
  var fso, tf;
  fso = new ActiveXObject("Scripting.FileSystemObject");  
  tf = fso.CreateTextFile(name, true);
  return tf;
}

/** Open TextDatei.
 * @param name String kompletter Dateiname
 * @return tf  Objekt FilePointer
 */
function OpenFile(name, mod) {
  var fso, tf, mode;
  if (mod == "r") {  
    mode = 1;
  }  
  if (mod == "w") {  
    mode = 2;
  }  
  if (mod == "a") {  
    mode = 8;
  }  
  fso = new ActiveXObject("Scripting.FileSystemObject");  
  tf = fso.OpenTextFile(name, mode);
  return tf;
}

@echo off 
rmtshare \\SRV01\buchhaltung="D:\daten\buchhaltung" /GRANT "DOMAENE\buchhalter":F  
rmtshare \\SRV01\werkstatt="D:\daten\werkstatt" /GRANT "DOMAENE\werkstatt":C /GRANT "DOMAENE\buchhalter":R /GRANT "DOMAENE\mueller":F  
...