Abfrage per Batch um eine spezielle Zeile Zelle aus einer csv auszulesen IP Adresse und Passwort und als Variable weiterzuverwenden

@if (@X)==(@Y) @end /* Valide Zeile in Batch und JScript

:: Batch Part:
@echo off &setlocal
set "workbook=C:\irgendwo\test.xls" 
set "worksheet=Tabelle1" 

:inputloop
set "findwhat=" 
set /p "findwhat=Suche nach: " 
if not defined findwhat goto inputloop

for /f "tokens=2 delims=:" %%i in ('chcp') do set /a oemcp = %%~ni 
set "cmdline=" 
>nul chcp 1252
for /f "delims=" %%i in ('cscript //nologo //e:jscript "%~fs0"') do ( 
  set "cmdline=%%i" 
)
>nul chcp %oemcp%

if defined cmdline (
  setlocal EnableDelayedExpansion
  ECHO !cmdline!
  endlocal
)

pause
exit /b


:: JScript Part: */
var env=WScript.CreateObject("WScript.Shell").Environment("Process");  
var workbook = env("workbook");  
var worksheet = env("worksheet");  
var findwhat = env("findwhat");  
var xlValues = -4163, xlWhole = 1;

try {
  var objExcelApp = WScript.CreateObject("Excel.Application");  
  objExcelApp.Visible = false;
  var objWorkbook = objExcelApp.Workbooks.Open(workbook, 0, true);
  var objWorksheet = objWorkbook.Worksheets(worksheet);
  var objUsedRange = objWorksheet.UsedRange;
  var objCell = objUsedRange.Find(findwhat, objUsedRange.Cells(1, 1), xlValues, xlWhole);
  var pass = objWorksheet.Cells(objCell.Row, 5);
  var ip = objWorksheet.Cells(objCell.Row, 4)
  WScript.StdOut.WriteLine("plink.exe -v -pw " + pass + " root@" + ip);  
  objWorkbook.Close(false);
  objExcelApp.Quit();
}
catch (e) {
  WScript.StdErr.WriteLine(e.name + ": " + e.message);  
  if (objExcelApp != null)
  {
    objExcelApp.Quit();
  }
}

@if (@X)==(@Y) @end /* Valide Zeile in Batch und JScript

:: Batch Part:
@echo off &setlocal
set "workbook=C:\irgendwo\test.ods" 
set "worksheet=Tabelle1" 

:inputloop
set "findwhat=" 
set /p "findwhat=Suche nach: " 
if not defined findwhat goto inputloop

for /f "tokens=2 delims=:" %%i in ('chcp') do set /a oemcp = %%~ni 
set "cmdline=" 
>nul chcp 1252
for /f "delims=" %%i in ('cscript //nologo //e:jscript "%~fs0"') do ( 
  set "cmdline=%%i" 
)
>nul chcp %oemcp%

if defined cmdline (
  setlocal EnableDelayedExpansion
  ECHO !cmdline!
  endlocal
)

pause
exit /b


:: JScript Part: */
var env=WScript.CreateObject("WScript.Shell").Environment("Process");  
var workbook = "file:///" + WScript.CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(env("workbook"));  
var worksheet = env("worksheet");  
var findwhat = env("findwhat");  
var aOOArgs = ;
var aChars = ["\\\\", "/", "%", "%25", " ", "%20"];  
var i = 0;

for (i = 0; i < 6; i += 2) {
  workbook = workbook.replace(new RegExp(aChars[i], 'g'), aChars[i + 1]);  
}

try {
  var objOOSvcMan = WScript.CreateObject("com.sun.star.ServiceManager");  
  for (i = 0; i < 2; ++i) {
    aOOArgs[i] = objOOSvcMan.Bridge_GetStruct("com.sun.star.beans.PropertyValue");  
  }
  aOOArgs.Name = "Hidden";  
  aOOArgs.Value = true;
  aOOArgs[1].Name = "ReadOnly";  
  aOOArgs[1].Value = true;
  var objOODsktp = objOOSvcMan.createInstance("com.sun.star.frame.Desktop");    
  var objDoc = objOODsktp.LoadComponentFromURL(workbook, "_blank", 0, aOOArgs);  
  var objSheet = objDoc.Sheets.getByName(worksheet);
  var objSearchDescr = objSheet.createSearchDescriptor();
  objSearchDescr.setSearchString(findwhat);
  objSearchDescr.SearchWords = true;
  var objAddress = objSheet.findFirst(objSearchDescr).getCellAddress();
  var pass = objSheet.getCellByPosition(4, objAddress.Row).getString();
  var ip = objSheet.getCellByPosition(3, objAddress.Row).getString();
  objOODsktp.Terminate();
  WScript.StdOut.WriteLine("plink.exe -v -pw " + pass + " root@" + ip);  
}
catch (e) {
  WScript.StdErr.WriteLine(e.name + ": " + e.message);  
  if (objOODsktp != null)
  {
    objOODsktp.Terminate();
  }
}

@if (@X)==(@Y) @end /* Valide Zeile in Batch und JScript

:: Batch Part:
@echo off &setlocal
set "workbook=C:\irgendwo\test.ods" 
set "worksheet=Tabelle1" 
set "commandfile=C:\irgendwo\commands.txt" 
:inputloop
set "findwhat=" 
set /p "findwhat=Suche nach: " 
if not defined findwhat goto inputloop

for /f "tokens=2 delims=:" %%i in ('chcp') do set /a oemcp = %%~ni 
set "cmdline=" 
>nul chcp 1252
for /f "delims=" %%i in ('cscript //nologo //e:jscript "%~fs0"') do ( 
  set "cmdline=%%i" 
)
>nul chcp %oemcp%

if defined cmdline (
  setlocal EnableDelayedExpansion
  ECHO !cmdline!
  endlocal
)

pause
exit /b


:: JScript Part: */
var env=WScript.CreateObject("WScript.Shell").Environment("Process");  
var workbook = "file:///" + WScript.CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(env("workbook"));  
var worksheet = env("worksheet");  
var findwhat = env("findwhat");  
var commandfile = env("commandfile");  
var aOOArgs = ;
var aChars = ["\\\\", "/", "%", "%25", " ", "%20"];  
var i = 0;

for (i = 0; i < 6; i += 2) {
  workbook = workbook.replace(new RegExp(aChars[i], 'g'), aChars[i + 1]);  
}

try {
  var objOOSvcMan = WScript.CreateObject("com.sun.star.ServiceManager");  
  for (i = 0; i < 2; ++i) {
    aOOArgs[i] = objOOSvcMan.Bridge_GetStruct("com.sun.star.beans.PropertyValue");  
  }
  aOOArgs.Name = "Hidden";  
  aOOArgs.Value = true;
  aOOArgs[1].Name = "ReadOnly";  
  aOOArgs[1].Value = true;
  var objOODsktp = objOOSvcMan.createInstance("com.sun.star.frame.Desktop");    
  var objDoc = objOODsktp.LoadComponentFromURL(workbook, "_blank", 0, aOOArgs);  
  var objSheet = objDoc.Sheets.getByName(worksheet);
  var objSearchDescr = objSheet.createSearchDescriptor();
  objSearchDescr.setSearchString(findwhat);
  objSearchDescr.SearchWords = true;
  var objAddress = objSheet.findFirst(objSearchDescr).getCellAddress();
  var pass = objSheet.getCellByPosition(4, objAddress.Row).getString();
  var ip = objSheet.getCellByPosition(3, objAddress.Row).getString();
  objOODsktp.Terminate();
  WScript.StdOut.WriteLine("plink.exe -v -pw " + pass + " root@" + ip + " -m \"" + commandfile + "\"");  
}
catch (e) {
  WScript.StdErr.WriteLine(e.name + ": " + e.message);  
  if (objOODsktp != null)
  {
    objOODsktp.Terminate();
  }
}