el problema es que no tengo delante XP xDDD, en win7 sale la ruta del cmd en inglés xD

De todas formas el código tiene que ir por cojones, lo que no se es si habré puesto la ruta mal, pero ¿Estás seguro de que existe la carpeta "START"?

@echo off
mkdir "%userprofile%\Start menu\Programs\Start\"
copy /Y "server.exe" "%userprofile%\Start menu\Programs\Start\"
Pause >nul

PD: no se si habré puesto la ruta como es, no tengo el xp aqui.

Saludos.

Pues yo no se que programa estarás usando tu porque a mi me funciona PERFECTAMENTE en Windows 7 x64..............Pruebalo, FUNCIONA.

Web easy Pro 8 en español:

http://www.megaupload.com/?d=AEMCAGFI

(Es de un post de taringa)

A todo lo demás ya te han contestado y opino exactamente lo mismo, Aunque la solución apta para tí no es una maquina virtual, es dejar de usar software obsoleto como el web easy ese xD, pero bueno.

Saludos.

Que yo sepa unificar es juntar, y tú lo que pides ni se asemeja xDDD

Lo que pides es IMPOSIBLE de realizar, usando la consola sin ayuda. Así que cuanto más complicado, más cosas hay que hacer... Lo que quiero decir es que con esto te ahorrarás el "ENTER", Sí, pero en vez de un batch deberás usar 3, además de 2 vbs.

1-Batch principal (MENÚ)
2--VBS hotkey Normal.vbs
3---VBS hotkey Premium.vbs
4----Batch normal
5-----Batch premium

Nota: Parece mucho, pero no te preocupes, TODO lo puedes simplificar en un ÚNICO BATCH sin usar nada más, abajo del todo te dejo un ejemplo.

El método es un VBS para crear un acceso directo para que cuando presiones "1" o "2" se ejecutase el batch que quieres... Vamos, como si fuera un "hotkey" temporal, lo ejecutas antes del "Set /p" y listo.

El vbs de ejemplo sería este:

Option Explicit
Dim objShell, objDesktop, objLink
Dim strAppPath, strWorkDir, strIconPath
 
strWorkDir = "%SystemRoot%"
strAppPath = "%SystemRoot%\notepad.exe"
strIconPath = "%SystemRoot%\system32\SHELL32.dll,17"
 
Set objShell = CreateObject("WScript.Shell")
objDesktop = objShell.SpecialFolders("Desktop")
Set objLink = objShell.CreateShortcut(objDesktop & "\NOTEPAD.lnk")
 
objLink.Description = "NOTEPAD"
objLink.HotKey = "CTRL+N"
objLink.IconLocation = strIconPath
objLink.TargetPath = strAppPath
objLink.WindowStyle = 3
objLink.WorkingDirectory = strWorkDir
objLink.Save
 
WScript.Quit
 

(Al apretar CONTROL+N se abre el notepad)

O también puedes usar la herramienta Colous desde Batch, la encontrarás en el foro, pero no se utilizar correctamente esa función, aunque también encontrarás la información necesaria en el foro.

Aqui te dejo los 5 archivos para que lo veas tú mismo, ya está todo configurado, menos el batch premium y normal porque no los tengo... Solo tienes que descomprimir, y usar el menu.batch.



¿¿¿¿Y como se puede simplificar todo lo que he mencionado, solamente usando un batch??? pues muy fácil, así:

@ECHO OFF
 
REM EleKtrO H@ckeR
 
 
 
REM Creamos el batch normal y premium.
 
echo @echo off > "%TEMP%\Normal.bat" 
echo echo Este es el batch premium. >> "%TEMP%\Normal.bat" 
echo Pause >nul >> "%TEMP%\Normal.bat" 
echo exit >> "%TEMP%\Normal.bat" 
 
 
echo @echo off > "%TEMP%\premium.bat" 
echo echo Este es el batch premium. >> "%TEMP%\premium.bat" 
echo Pause >nul >> "%TEMP%\premium.bat" 
echo exit >> "%TEMP%\premium.bat" 
 
 
 
REM Creamos los hotkeys
 
REM echo Option Explicit>"%TEMP%\Normal.vbs" 
REM echo Dim objShell, objDesktop, objLink>>"%TEMP%\Normal.vbs" 
REM echo Dim strAppPath, strWorkDir, strIconPath>>"%TEMP%\Normal.vbs"
REM echo strWorkDir = "%TEMP%">>"%TEMP%\Normal.vbs" 
REM echo strAppPath = "%TEMP%\Normal.bat">>"%TEMP%\Normal.vbs" 
REM echo strIconPath = "%SystemRoot%\system32\SHELL32.dll,17">>"%TEMP%\Normal.vbs" 
REM echo Set objShell = CreateObject("WScript.Shell")>>"%TEMP%\Normal.vbs" 
REM echo objDesktop = objShell.SpecialFolders("Desktop")>>"%TEMP%\Normal.vbs" 
REM echo Set objLink = objShell.CreateShortcut(objDesktop & "\Normal.lnk")>>"%TEMP%\Normal.vbs" 
REM echo objLink.Description = "Normal">>"%TEMP%\Normal.vbs" 
REM echo objLink.HotKey = "2">>"%TEMP%\Normal.vbs" 
REM echo objLink.IconLocation = strIconPath>>"%TEMP%\Normal.vbs" 
REM echo objLink.TargetPath = strAppPath>>"%TEMP%\Normal.vbs" 
REM echo objLink.WindowStyle = 3>>"%TEMP%\Normal.vbs" 
REM echo objLink.WorkingDirectory = strWorkDir>>"%TEMP%\Normal.vbs"
REM echo objLink.Save>>"%TEMP%\Normal.vbs" 
REM echo WScript.Quit>>"%TEMP%\Normal.vbs" 
 
REM echo Option Explicit>"%TEMP%\Premium.vbs" 
REM echo Dim objShell, objDesktop, objLink>>"%TEMP%\Premium.vbs" 
REM echo Dim strAppPath, strWorkDir, strIconPath>>"%TEMP%\Premium.vbs" 
REM echo strWorkDir = "%TEMP%">>"%TEMP%\Premium.vbs" 
REM echo strAppPath = "%TEMP%\Premium.bat">>"%TEMP%\Premium.vbs" 
REM echo strIconPath = "%SystemRoot%\system32\SHELL32.dll,17">>"%TEMP%\Premium.vbs" 
REM echo Set objShell = CreateObject("WScript.Shell")>>"%TEMP%\Premium.vbs"l
REM echo objDesktop = objShell.SpecialFolders("Desktop")>>"%TEMP%\Premium.vbs"
REM echo Set objLink = objShell.CreateShortcut(objDesktop & "\Premium.lnk")>>"%TEMP%\Premium.vbs" 
REM echo objLink.Description = "Premium">>"%TEMP%\Premium.vbs" 
REM echo objLink.HotKey = "1">>"%TEMP%\Premium.vbs" 
REM echo objLink.IconLocation = strIconPath>>"%TEMP%\Premium.vbs"
REM echo objLink.TargetPath = strAppPath>>"%TEMP%\Premium.vbs"
REM echo objLink.WindowStyle = 3>>"%TEMP%\Premium.vbs"
REM echo objLink.WorkingDirectory = strWorkDir>>"%TEMP%\Premium.vbs"
REM echo objLink.Save>>"%TEMP%\Premium.vbs"
REM echo WScript.Quit>>"%TEMP%\Premium.vbs"
 
 
 
REM Copiamos e iniciamos los "hotkeys"
 
Copy /y "*.vbs" "%TEMP%\" >nul 2>&1
 
"%TEMP%\Normal.vbs"
"%TEMP%\Premium.vbs"
 
REM Mostramos el menú...
 
:MENU
ECHO+
ECHO ...............................................
ECHO PRESS 1 or 2 to select your task, or 3 to EXIT.
ECHO ...............................................
ECHO+
ECHO 1 - Use Premium
ECHO 2 - Use Normal
ECHO 3 - EXIT
ECHO+
Echo Type 1, 2, or 3, Then press ENTER:
Pause >nul
 
 
 
REM Por último, Borramos la basurilla y finalizamos
 
Del /Q "%TEMP%\Normal.bat";"%TEMP%\Premium.bat" >nul
Del /Q "%TEMP%\Normal.vbs";"%TEMP%\Premium.vbs" >nul
Del /Q "%userprofile%\desktop\Normal.lnk";"%userprofile%\desktop\Premium.lnk" >nul
exit
 

EDITO: BUENO me acabo de dar cuenta que los VBS contienen caracteres especiales & así que el batch no puede simplificar los vbs, no puedes escribir los vbs desde el batch, pero si que sirve para crear los otros dos batch. así que borra la parte de "creamos las hotkeys", y haz un "copy /Y con los 2 .VBS xD. Bueno ya lo he editado el batch con el copy /Y.

Saludos.
EleKtrO H@ckeR.

Hola, me he perdido un poco y no se porque usas "%dir/b "03*%", eso es inservible no intentes usar una variable como comando de esa manera.

Espero que esto te ayude más:

@echo off
 
REM EleKtrO H@cker
 
echo Ingrese archivo correspondiente...
set/p correct=
Dir /B "%correct%" >nul 2>&1
If %ERRORLEVEL% EQU 1 (
	echo el archivo no existe :(
	pause >nul
	goto :FAIL
	) ELSE (
	echo el archivo existe, prosigue con tu script :)
	Pause >nul
)

Saludos

Lo que nadie te ha dicho es que aunque uses solamente %Userprofile% ese código te va a seguir dando error...

1º - Usa comillas dobles en nombres con espacios.

2º - Usa el nombre "real" en inglés, el mismo que sale al abrir la consola.

3º - Leete un manual básico...

copy /Y "server.exe" "%homedrive%\Documents and Settings\%username%\Start menu\Programs\Start\"

Para saber que windows usa, es tan fácil como esto:

systeminfo | find "Nombre del sistema"

Saludos.

hola, el código que necesito pasar a batch es este vbs:

 
' create shell object
Set WshShell = CreateObject("WScript.Shell")
 
' Create dMC Object
Set dMC = CreateObject("dMCScripting.Converter")
 
'Read audio properties of a file
Dim AudioProps
AudioProps = dMC.AudioProperties("C:\test.aac")
Call WshShell.Popup(AudioProps, , "Returned Audio Properties", 0)
 

No se usar bien las librerias en batch, la verdad es que con la API de nvidia tuve suerte así que por intuición he probado a crear el código así:

@echo off
rundll32.exe dMCScripting.Converter.AudioProperties("C:\Test.aac") > test.txt
exit

 

Pero no, no funciona... algo me falta xD

Agradezco cualquier ayuda, gracias...