PATHS /Add "C:\Program Files (x86)\Python"

python.exe "hola.py"

"C:\Ruta donde tienes instalado Python\python.exe" "hola.py"

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\.PY]
@="python.file"

[HKEY_CLASSES_ROOT\.PYC]
@="Python.CompiledFile"

[HKEY_CLASSES_ROOT\Python.File\Shell\Open\Command]
@="CMD /K \"\"C:\\Program Files (x86)\\Python\\Python.exe\" \"%1\" %*\""

[HKEY_CLASSES_ROOT\Python.NoConFile\Shell\open\command]
@="CMD /K \"\"C:\\Program Files (x86)\\Python\\Pythonw.exe\" \"%1\" %*\""

:: Converted with Reg2Bat by Elektro
 
@Echo OFF
 
REG ADD "HKEY_CLASSES_ROOT\.PY" /V "" /D "python.file" /F
REG ADD "HKEY_CLASSES_ROOT\.PYC" /V "" /D "Python.CompiledFile" /F
REG ADD "HKEY_CLASSES_ROOT\Python.File\Shell\Open\Command" /V "" /D "CMD /K \"\"C:\Program Files (x86)\Python\Python.exe\" \"%%1\" %%*\"" /F
REG ADD "HKEY_CLASSES_ROOT\Python.NoConFile\Shell\open\command" /V "" /D "CMD /K \"\"C:\Program Files (x86)\Python\Pythonw.exe\" \"%%1\" %%*\"" /F
 
Pause&Exit

PATHS /List

set path

HKCU\Environment

HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment

    ' Current User Is Admin?
    ' ( By Elektro )
    '
    ''' <summary>
    ''' Indicates whether the current logged user is an Administrator.
    ''' </summary>
    ''' <returns><c>true</c> if the current logged user is an Administrator, <c>false</c> otherwise.</returns>
    Public Function CurrentUserIsAdmin() As Boolean
 
        Dim Identity As Security.Principal.WindowsIdentity =
            Security.Principal.WindowsIdentity.GetCurrent
 
        Return New Security.Principal.WindowsPrincipal(Identity).
                   IsInRole(Security.Principal.WindowsBuiltInRole.Administrator)
 
    End Function

@Echo OFF
Set "Var=N"
 
Echo %Var%|Choice

    ' Convert Diacritics
    '
    ' Usage Examples:
    ' MsgBox(RemoveDiacritics("áéíóú àèìòù äëïöü ñÑ çÇ", UnicodeNormalization:=System.Text.NormalizationForm.FormKD))
    ' Result: 'aeiou aeiou aeiou nN cC'
    '
    ''' <summary>
    ''' Converts the diacritic characters in a String to an equivalent normalized English characters.
    ''' </summary>
    ''' <param name="String">
    ''' Indicates the string that contains diacritic characters.
    ''' </param>
    ''' <param name="UnicodeNormalization">
    ''' Defines the type of Unicode character normalization to perform.
    ''' (Default is 'NormalizationForm.FormKD')
    ''' </param>
    ''' <returns>System.String.</returns>
    Public Function ConvertDiacritics(ByVal [String] As String,
                                      Optional ByVal UnicodeNormalization As System.Text.NormalizationForm =
                                                                             System.Text.NormalizationForm.FormKD) As String
 
        Dim Characters As String = String.Empty
 
        For Each c As Char In [String].Normalize(UnicodeNormalization)
 
            Select Case Globalization.CharUnicodeInfo.GetUnicodeCategory(c)
 
                Case Globalization.UnicodeCategory.NonSpacingMark,
                     Globalization.UnicodeCategory.SpacingCombiningMark,
                     Globalization.UnicodeCategory.EnclosingMark
 
                    ' Do nothing.
                    Exit Select
 
                Case Else
                    Characters &= CStr(c)
 
            End Select
 
        Next c
 
        Return Characters
 
    End Function

Public Class Form1
 
    ''' <summary>
    ''' Instance of a Class containing most of the methods involving image-related actions, 
    ''' common to both encryption and decryption.
    ''' </summary>
    Dim curentIO As New IO
 
    Private Sub Test() Handles MyBase.Load
 
 
        ' Encrypt text into image:
        Dim Encrypt As New Encrypting(Color.Red, "Hello World!", curentIO, 0)
        Dim EncryptedImage As Bitmap = Nothing
 
        Select Case Encrypt.errors
 
            Case False
                ' Encrypts the text and returns the encrypted Bitmap.
                EncryptedImage = curentIO.Encrypt(500, 500, Encrypt)
 
                ' Or encrypts the text and save it directlly in a image file.
                Encrypt = curentIO.SaveImageFile("C:\File.png", 500, 500, Encrypt)
 
            Case True
                MessageBox.Show(Encrypt.errorMessage, "There was an error while encrypting the text.")
 
        End Select
 
 
        ' Decrypt image into text:
        Dim Decrypt As New Decrypting(Color.Red, EncryptedImage, curentIO, 0)
        ' Dim Decrypt As New Decrypting(Color.Red, Bitmap.FromFile("C:\File.png"), curentIO, 0)
 
        If Not Decrypt.errors Then
            MsgBox(Decrypt.decryptedString)
        Else
            MessageBox.Show(Decrypt.errorMessage, "Either the input parameters or the image are wrong.")
        End If
 
 
    End Sub
 
End Class

@echo off & setlocal enabledelayedexpansion
 
:: By Elektro
 
REM Obtengo los processos
(For /F "Tokens=*" %%a in (
	'wmic.exe path win32_PerfFormattedData_PerfProc_Process get PercentProcessorTime^,Name /Format:csv ^| FINDSTR "[0-9]"'
) Do (
	REM Elimino caracteres unicode.
	set "line=%%a"
	set "line=!line:~0,-1!"
	Echo !line!
))>"%TEMP%\WMIC.tmp"
 
(
Echo Set objFSO = CreateObject^("Scripting.FileSystemObject"^)
Echo Set objFile = objFSO.OpenTextFile^(Wscript.Arguments^(0^), 1^)
Echo arr = Split^(objFile.ReadAll, VBcrlf^)
Echo n = UBound^(arr^)
Echo Do
Echo   nn = -1
Echo   For j = LBound^(arr^) to n - 1
Echo   	  num1 = cint^(split^(arr^(j^),","^)^(2^)^)
Echo   	  if not arr^(j+1^) = "" Then
Echo   	  	num2 = cint^(split^(arr^(j+1^),","^)^(2^)^)
Echo   	  end if
Echo       If num1 ^< num2 Then
Echo          TempValue = arr^(j + 1^)
Echo          arr^(j + 1^) = arr^(j^)
Echo          arr^(j^) = TempValue
Echo          nn = j
Echo       End If
Echo   Next
Echo   n = nn
Echo Loop Until nn = -1
Echo For i = LBound^(arr^) To UBound^(arr^)
Echo   	 if not arr^(i^) = "" Then
Echo     	WScript.Echo _
Echo     	"Process: " ^& split^(arr^(i^),","^)^(1^) ^& ".exe" ^& vbnewline ^& _
Echo     	"CPU....: " ^& split^(arr^(i^),","^)^(2^) ^& "%%"    ^& vbnewline
Echo      End If
Echo Next
)>"%TEMP%\SortWMIC.vbs"
 
CScript.exe /Nologo "%TEMP%\SortWMIC.vbs" "%TEMP%\WMIC.tmp"
 
Pause&Exit

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(Wscript.Arguments(0), 1)
 
arr = Split(objFile.ReadAll, VBcrlf)
 
n = UBound(arr)
 
Do
  nn = -1
  For j = LBound(arr) to n - 1
 
  	  num1 = cint(split(arr(j),",")(2))
 
  	  if not arr(j+1) = "" Then
  	  	num2 = cint(split(arr(j+1),",")(2))
  	  end if
 
      If num1 < num2 Then
         TempValue = arr(j + 1)
         arr(j + 1) = arr(j)
         arr(j) = TempValue
         nn = j
      End If
 
  Next
 
  n = nn
 
Loop Until nn = -1
 
For i = LBound(arr) To UBound(arr)
 
     if not arr(i) = "" Then
    	WScript.Echo _
    	"Process: " & split(arr(i),",")(1) & ".exe" & vbnewline & _
    	" CPU...: " & split(arr(i),",")(2) & "%"    & vbnewline
     End If
 
Next    

Echo CONTRASEÑA|Net.exe user "usuario" *

Echo S|Choice.exe

payload = unescape( _
                   "%fc%e8%89%00%00%00%60%89%e5%31%d2%64%8b%52" & _
                   "%30%8b%52%0c%8b%52%14%8b%72%28%0f%b7%4a%26" & _
                   "%31%ff%31%c0%ac%3c%61%7c%02%2c%20%c1%cf%0d" & _
                   "%01%c7%e2%f0%52%57%8b%52%10%8b%42%3c%01%d0" & _
                   "%8b%40%78%85%c0%74%4a%01%d0%50%8b%48%18%8b" & _
                   "%58%20%01%d3%e3%3c%49%8b%34%8b%01%d6%31%ff" & _
                   "%31%c0%ac%c1%cf%0d%01%c7%38%e0%75%f4%03%7d" & _
                   "%f8%3b%7d%24%75%e2%58%8b%58%24%01%d3%66%8b" & _
                   "%0c%4b%8b%58%1c%01%d3%8b%04%8b%01%d0%89%44" & _
                   "%24%24%5b%5b%61%59%5a%51%ff%e0%58%5f%5a%8b" & _
                   "%12%eb%86%5d%6a%01%8d%85%b9%00%00%00%50%68" & _
                   "%31%8b%6f%87%ff%d5%bb%f0%b5%a2%56%68%a6%95" & _
                   "%bd%9d%ff%d5%3c%06%7c%0a%80%fb%e0%75%05%bb" & _
                   "%47%13%72%6f%6a%00%53%ff%d5%63%61%6c%63%2e" & _
                   "%65%78%65%00" _
                  )