Скрипт Был взят  с групы https://vk.com/vbs_script

1)  Переименовываем в "Ёлки.bat" и запускаем.

-----------------------------------------------------------------------------------------------------------------------------

::'@echo off
::'mode con: cols=80 lines=200
::'color 0a
::'cscript //nologo //e:vbscript "%~f0" %*
::'exit /b
for wq = 1 To 2015
Randomize
j=(3*rnd)\2+1
a1 = "Я/"
a2 = "\R"
For i=1 To j
a1 = a1 + a1
a2 = a2 + a2
Next
aa = a1 + a2
bb = Left("/" + a1,Len(a1)) + Right(a2 + "\",Len(a2))
i=0
y = (Len(aa)-1)\2
If i=1 Then a = bb
If i=0 Then a = aa
i = 1 - i
y1 = y - 1
Randomize
zzz = Space(((160-18)*rnd)\2+1)
For u = 1 To y1
q = zzz & String(y," ") + Mid(a,y+1,Len(a)-y*2) + String(y," ")
wscript.echo q
wscript.sleep 130
If y>1 Then y = y - 1
If i=1 Then a = bb
If i=0 Then a = aa
i=1-i
q  = zzz & String(y," ") + Mid(a,y+1,Len(a)-y*2) + String(y," ")
wscript.echo q
wscript.sleep 130
If y>1 Then y = y - 1
If i=1 Then a = bb
If i=0 Then a = aa
i=1-i
q = zzz & String(y," ") + Mid(a,y+1,Len(a)-y*2) + String(y," ")
wscript.echo q
wscript.sleep 130
y = y + 1
If i=1 Then a = bb
If i=0 Then a = aa
i=1-i
Next
For qq = 1 To 5*Rnd+3
wscript.echo
wscript.sleep 100
Next
Next

-----------------------------------------------------------------------------------------------------------------------------