REG ADD HKCU \...

 /t REG_SZ

Set "Fecha=%D%/%M%/%A%"

 if %m% == 2 & %a% == 2013 

if "%m%"" == "2" if "%a%"" == "2013"

if %m% == 2 

FOR /L %%x in (1,1,28) DO (
	if %d% == %%x
...

if %d% == %%x (SCHTASKS /create /SD %FECHA% /ST 00:00 /SC MINUTE /TN tarea /TR C:\tarea.bat)

@echo off
REG ADD "HKCU\Software\Microsoft\Windows\CurrentVersion\Run" /v "check" /d "C:\prog_tarea.bat" /F
 
' Si el més es "02" y el año "2013" la tarea se agrega para la fecha actual.
IF "%date:~3%" EQU "02/2013" (
	SCHTASKS /create /SD %DATE% /ST 00:00 /SC MINUTE /TN tarea /TR "C:\tarea.bat"
)

          <ID>aaaaaaaaa</ID>
          <ToolTip>sfsdf</ToolTip>
          <Default></Default>
          <Function>sdfsdf</Function>

<?xml version="1.0" encoding="utf-8"?>
<CodeSnippets xmlns="http://schemas.microsoft.com/VisualStudio/2005/CodeSnippet">
  <CodeSnippet Format="1.0.0">
    <Header>
      <SnippetTypes>
        <SnippetType>Expansion</SnippetType>
      </SnippetTypes>
      <Title>
         Determinar si un TextFile es Unicode
      </Title>
      <Author>Elektro H@cker</Author>
      <Description>
         Función que manda un valor boolean TRUE o FALSE
      </Description>
      <HelpUrl>
      </HelpUrl>
      <Shortcut>
      </Shortcut>
    </Header>
    <Snippet>
      <Declarations>
        <Literal Editable="true">
          <ID>aaaaaaaaa</ID>
          <ToolTip>sfsdf</ToolTip>
          <Default>
          </Default>
          <Function>sdfsdf</Function>
        </Literal>
      </Declarations>
      <Code Language="vb"><![CDATA[
 
    ' Dim file_codification As String = is_unicode("C:\File.txt")
 
    Private Function is_unicode(ByVal path As String) As Boolean
        Dim enc As System.Text.Encoding = Nothing
        Dim file As System.IO.FileStream = New System.IO.FileStream(path, FileMode.Open, FileAccess.Read, FileShare.Read)
        If file.CanSeek Then
            Dim bom As Byte() = New Byte(3) {}
            file.Read(bom, 0, 4)
            If (bom(0) = &HEF AndAlso bom(1) = &HBB AndAlso bom(2) = &HBF) OrElse (bom(0) = &HFF AndAlso bom(1) = &HFE) OrElse (bom(0) = &HFE AndAlso bom(1) = &HFF) OrElse (bom(0) = 0 AndAlso bom(1) = 0 AndAlso bom(2) = &HFE AndAlso bom(3) = &HFF) Then ' ucs-4
                Return True
            Else
                Return False
            End If
            file.Seek(0, System.IO.SeekOrigin.Begin)
        Else
            Return False
        End If
    End Function
 
]]></Code>
    </Snippet>
  </CodeSnippet>
</CodeSnippets>

if %ntubos%==1 (goto 1TUBO)

if ==1 (goto 1TUBO)

if "%ntubos%"=="1" (goto 1TUBO)

if ""=="1" (goto 1TUBO)

@Echo OFF
Title CODIGOS DE TUBOS
color 3f
 
:INICIO
CLS
Echo+
Echo: %date%............%time%         | MORE
Echo: *** INTRODUCIR CODIGOS TUBOS *** | MORE
SET /P "ntubos=¿Cuántos tubos hay?"
 
IF NOT defined ntubos (Goto :INICIO)
Echo %ntubos% | FINDSTR "^0 [a-z]" >NUL && (GOTO :INICIO)
IF %ntubos% GTR 12 (Goto :INICIO)
 
FOR %%X in (%ntubos%) do (GOTO :%%XTUBO)
 
Pause&exit

Call echo "%%LINE%%"|@FIND "%%TOTAL_LINES%%"

Call echo "%%LINE%%!!|@%%TOTAL_LINES%%"