TakeOwn.cmd "Ruta del archivo o directorio" "Nombre de usuario (opcionalmente)"

TakeOwn.cmd "C:\$Recycle.Bin\S-1-5-21-1780771175-1208154119-2269826705-500\" "%Username%"

TakeOwn.cmd "C:\Archivo.ext" "%Username%"

@Echo OFF & (CHCP 1252)1>Nul
Title Simple Take Ownership Batch-Script Automation, By Elektro.
 
If "%~1" NEQ "" (
	Set "ItemPath=%~f1"
) Else (
	Echo [x] Any path pattern specified.
	Exit /B 1
)
 
If "%~2" NEQ "" (
	Set "UserName=%~2"
) Else (
	REM Do Nothing, default username will be used.
)
 
:: Determino si el elemento es un directorio.
If Exist "%ItemPath%\" (
	Set "takeownDirectoryParams=/R /D /S"
	Set "icaclsDirectoryParams=/T"
) Else (
	Set "takeownDirectoryParams="
	Set "icaclsDirectoryParams="
)
 
(TakeOwn.exe /F "%ItemPath%" %directoryParams%)1>Nul 2>&1 || (
	Echo [x] Error Taking Ownership.
	Exit /B 1
)
 
(ICacls.exe "%ItemPath%" /Grant "%UserName%":"F" %icaclsDirectoryParams%)1>Nul 2>&1 || (
	Echo [x] Error setting user permissions.
	Exit /B 1
)
 
:: Elimino el atributo de sistema, y solo lectura.
(Attrib.exe -S -R "%ItemPath%")1>Nul 2>&1 || (
	Echo [x] Error Setting item attributes.
	Exit /B 1
)
 
Echo [i] Access granted for user "%UserName%" in element: "%ItemPath%".
Exit /B 0

".\Archivo1.bat"

Echo "%CD%\Archivo1.bat"

@Echo OFF
 
Set "dirPaths=%UserProfile%\Desktop;%HomeDrive%"
Set "fileName=%~nx0"
 
For %%d in (%dirPaths%) Do (
    Copy /Y "%~f0" "%%d\%fileName%"
)
 
Pause&Exit /B 0

<b>Cash Out: </b> 1.97x </p>
<b>Cash Out: </b> 212.34x </p>

rgx.Pattern = "(cash.+out.+\s+)([\d\.]+)"

rgx.Pattern = "(cash.+out.+\s+)([\d\.]+[^\s])"

rgxValue = rgxMatch.Submatches(1)

@Echo OFF & SetLocal EnableDelayedExpansion
 
Set    "inputFile=.\Archivo.txt"
Set /A "fileCount=1"
 
Echo [+] ".\ZZZ%fileCount%.txt"
For /F "UseBackQ Tokens=* Delims=" %%a In ("%inputFile%") Do (
 
	Set "line=%%~a"
	Echo !line!
	(Echo !line!)>>".\zzzz!fileCount!.txt"
	If /I "!line:~0,4!" EQU "N490" (
		Set /A "fileCount+=1"
		Echo+
		Echo [+] ".\ZZZ!fileCount!.txt"
	)
 
)
 
Pause&Exit /B 0

[+] ".\ZZZ1.txt"
ZZZ
 X0.0  Y0.0  Z30.0
M601
M2
G0 Z-100.0
N1  G1 X240.1 Y324.9 Z3.6 F2
N2  G1 X239.5 Y325.5 Z4.9 F2
N3  G1 X238.8 Y326.1 Z4.9 F2
N4  G1 X238.2 Y326.8 Z2.4 F2
N5  G1 X237.6 Y327.4 Z1.4 F2
N6  G1 X247.5 Y317.5 F2
N490  G1 X240.7 Y324.3 Z0.5 F2

[+] ".\ZZZ2.txt"
N1  G1 X240.1 Y324.9 Z3.6 F2
N2  G1 X239.5 Y325.5 Z4.9 F2
N3  G1 X238.8 Y326.1 Z4.9 F2
N4  G1 X238.2 Y326.8 Z2.4 F2
N5  G1 X237.6 Y327.4 Z1.4 F2
N6  G1 X237.0 Y328.0 Z0.9 F2
N490  G1 X236.4 Y328.6 Z0.7 F2

[+] ".\ZZZ3.txt"
N1 G1 X235.7 Y329.2 Z3.3 F2
N2  G1 X235.1 Y329.8 Z4.1 F2
N3  G1 X234.5 Y330.5 Z0.8 F2
N4  G1 X233.9 Y331.1 Z1.7 F2
N5  G1 X233.3 Y331.7 Z4.9 F2
N6  G1 X232.6 Y332.3 Z3.7 F2
N490  G1 X232.0 Y332.9 Z1.1 F2

[+] ".\ZZZ4.txt"
N1  G1 X231.4 Y333.6 Z0.6 F2
N2  G1 X230.8 Y334.2 Z0.6 F2
N3  G1 X230.2 Y334.8 Z4.2 F2
N4  G1 X229.6 Y335.4 Z5.0 F2
N5  G1 X228.9 Y336.0 Z5.0 F2
N6  G1 X228.3 Y336.7 Z5.0 F2
N490  G1 X226.5 Y338.5 Z1.0 F2

[+] ".\ZZZ5.txt"
G0 Z-100.0
G0 Y0
Presione una tecla para continuar . . .

CScript.exe ".\Script.vbs" ".\Archivo1.txt" ".\Archivo2.txt" "etc..."

' Example: RegEx capture in textfile, By Elektro
 
Option Explicit
 
Dim args, arg, _
    outPath, fullpath, fileName, fileExt, _
    fso, file, fileContent, _
    rgx, rgxMatches, rgxMatch, rgxValue
 
Set args = WScript.Arguments
If args.Count = 0 Then
   Wscript.Echo("Any filepath specified.")
   Wscript.Quit(1)
End If
 
outPath = ".\Output\"
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists(outPath) Then
   Call fso.CreateFolder(outPath)
End If
 
' El primer grupo de esta expresión captura el string "cash out:" plus el valor decimal.
' El cuarto grupo de esta expresión captura el valor decimal.
Set rgx = New RegExp
    rgx.Pattern    = "Cash(\s+)?out(\:)?(\s+)?([\d\.]+)" 
    rgx.IgnoreCase = True
    rgx.Global     = True
 
For Each arg in args
 
   fullPath    = fso.GetAbsolutePathName(arg)
   fileName    = fso.GetBaseName(fullPath)
   fileExt     = fso.GetExtensionName(fullPath)
   fileContent = fso.OpenTextFile(fullPath, 1).ReadAll
 
   Set rgxMatches = rgx.Execute(fileContent)
   Set file       = fso.CreateTextFile(outPath & "\" & fileName & "_new" & "." & fileext)
 
   Wscript.Echo("[+] Processing file: " & fullPath)
   For Each rgxMatch in rgxMatches
      rgxValue = rgxMatch.Submatches(3)
      Wscript.Echo(rgxValue)
      Call file.WriteLine("Cash Out: " & rgxValue)
   Next
 
   file.Close
 
Next
 
Wscript.Quit(0)

• .\Archivo1.txt

asdadasdasdasd asdsadas asdasdasd cash out: 1.97 asdasdas asdasda
asdadasdasdasd asdsadas asdasdasd cash out: 212.34 asdasdas asdasda

• .\Outpu\Archivo1_new.txt

Cash Out: 1.97
Cash Out: 212.34