Easy task, help you to write a script as below
================================
Dim MyYear,MyMonth,MyDay,SDate
MyYear= Year(Date())
MyMonth = Month(Date())
MyDay = Day(Date())
SDate = MyYear&MyMonth&MyDay
Wscript.echo SDate
================================