strings = {
   "@echo offnsetlocalnPATH = C:Program FilesWolfram ResearchMathematica11.0;%PATH%",
   "necho Calculation with MathKernel would be herenping localhost -n 3 > nul"",
   "nnendlocalnecho.necho Batch run completednecho.necho Press any key to close . . .npause > nul"};

stream = OpenWrite["batchfile.bat"];
WriteString[stream, #] & /@ strings;
Close[stream];