Bat test suchen und dahinter hinzufügen

Hallo Zusammen,

in vielen Beiträgen habt ihr mir schon sehr oft weitergeholfen. Leider komm ich mit dem aktuellen Problem nicht weiter bzw. habe Probleme den richtigen Beitrag zu finden der genau mein Problem beschreibt.

Daher hier meine erste Frage: Ich habe eine "abc.txt" file und möchte in diesem hinter dem Text "WSid=" den aktuellen User Name schreiben.

Bislang suche ich immer nur mit "for /f "tokens=1-2 delims= " %%i in ('type abc.txt ^|find "WSid="') do set "WSwert=%%j"" in txt files und schreibe den Inhalt in eine variabel zb. j in dem fall.

Habe mit Echo und co versucht anstelle zu find zu arbeiten aber da fehlt mir das notwendige wissen.

Es wäre super wenn mir jemand weiterhelfen könnte

Vielen dank Hannes

@echo off &setlocal
set "file=abc.txt"  
set "key=WSid"  
set "val=%username%"  

setlocal EnableDelayedExpansion
<"!file!" >"!file!.~tmp" (  
  for /f %%i in ('type "!file!"^|find /c /v ""') do for /l %%j in (1 1 %%i) do (  
    set "line="&set /p "line="  
    if not defined line (echo() else for /f "tokens=1* delims==" %%k in ("!line!") do if "%%k"=="!key!" (  
      echo(!key!=!val!
    ) else (
      echo(!line!
    )
  )
)
move /y "!file!.~tmp" "!file!"  

MeineDatei = "abc.txt"  
Alt = "WSid="  
Neu = "WSid=" & "Nutzername"  
Set fso=CreateObject("Scripting.FileSystemObject"):txt=fso.OpenTextFile(MeineDatei).ReadAll:fso.CreateTextFile(MeineDatei).Write Replace(txt,Alt,Neu)  

Set objNetwork = WScript.CreateObject("WScript.Network")  
Username = objNetwork.UserName 

Set objNetwork = WScript.CreateObject("WScript.Network")  
Username = objNetwork.UserName 
MeineDatei = "abc.txt"  
Alt = "WSid="  
Neu = "WSid=" & Username  
Set fso=CreateObject("Scripting.FileSystemObject"):txt=fso.OpenTextFile(MeineDatei).ReadAll:fso.CreateTextFile(MeineDatei).Write Replace(txt,Alt,Neu)