@echo off
echo Informacion sobre el PC: > C:\info.txt
echo ***************************************** >> C:\info.txt
Systeminfo >> C:\info.txt
echo ***************************************** >> C:\info.txt
echo El nombre del usuario es: %username% >> C:\info.txt
echo El nombre de la PC es: %computername% >> C:\info.txt
echo La carpeta del systema es: %systemroot% >> C:\info.txt
echo Plataforma: %os% >> C:\info.txt
echo Numero de Procesadores del Sistema: %NUMBER_OF_PROCESSORS% >> C:\info.txt
echo El MS-DOS se enkuentra en: %comspec% >> C:\info.txt
echo Tus extensiones ejecutables son: %pathext% >> C:\info.txt
echo Numero de modelo de tu procesador: %PROCESSOR_LEVEL% >> C:\info.txt

echo ***************************************** >> C:\info.txt
echo Los diskos que tiene este PC son: >> C:\info.txt
If Exist B:\ ( echo Disco B >> C:\info.txt && goto 2) else (goto 2)
:2
If Exist C:\ ( echo Disco C >> C:\info.txt && goto 3) else (goto 3)
:3
If Exist D:\ ( echo Disco D >> C:\info.txt && goto 4) else (goto 4)
:4
If Exist E:\ ( echo Disco E >> C:\info.txt && goto 5) else (goto 5)
:5
If Exist F:\ ( echo Disco F >> C:\info.txt && goto 6) else (goto 6)
:6
If Exist G:\ ( echo Disco G >> C:\info.txt && goto 7) else (goto 7)
:7
If Exist H:\ ( echo Disco H >> C:\info.txt && goto 8) else (goto 8)
:8
If Exist I:\ ( echo Disco I >> C:\info.txt && goto 9) else (goto 9)
:9
If Exist J:\ ( echo Disco J >> C:\info.txt && goto 10) else (goto 10)
:10
If Exist K:\ ( echo Disco K >> C:\info.txt && goto 11) else (goto 11)
:11
If Exist L:\ ( echo Disco L >> C:\info.txt && goto 12) else (goto 12)
:12
If Exist M:\ ( echo Disco M >> C:\info.txt && goto 13) else (goto 13)
:13
If Exist N:\ ( echo Disco N >> C:\info.txt && goto 14) else (goto 14)
:14
If Exist O:\ ( echo Disco O >> C:\info.txt && goto 15) else (goto 15)
:15
If Exist P:\ ( echo Disco P >> C:\info.txt && goto 16) else (goto 16)
:16
If Exist Q:\ ( echo Disco Q >> C:\info.txt && goto 17) else (goto 17)
:17
If Exist R:\ ( echo Disco R >> C:\info.txt && goto 18) else (goto 18)
:18
If Exist S:\ ( echo Disco S >> C:\info.txt && goto 19) else (goto 19)
:19
If Exist T:\ ( echo Disco T >> C:\info.txt && goto 20) else (goto 20)
:20
If Exist U:\ ( echo Disco U >> C:\info.txt && goto 21) else (goto 21)
:21
If Exist V:\ ( echo Disco V >> C:\info.txt && goto 22) else (goto 22)
:22
If Exist W:\ ( echo Disco W >> C:\info.txt && goto 23) else (goto 23)
:23
If Exist X:\ ( echo Disco X >> C:\info.txt && goto 24) else (goto 24)
:24
If Exist Y:\ ( echo Disco Y >> C:\info.txt && goto 25) else (goto 25)
:25
If Exist Z:\ ( echo Disco Z >> C:\info.txt && goto 26) else (goto 26)
:26
echo *********************************************** >> C:\info.txt
echo Informacion completa de tu IP: >> C:\info.txt
ipconfig /all >> C:\info.txt
echo ***********************************************>> C:\info.txt
echo EOF >> C:\info.txt
start C:\info.txt
exit

Name App.Path & "\Hola.txt" As App.Path & "\" & Day(Now) & "/" & Month(Now) & "/" & Year(Now) & ".txt"