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 

...