VBS Fichero DATE

[palophp]

Hola, tengo un script en VBS que crea un fichero, pero quiero que se añada la fecha actual.
Pero no me lo admite. Este es el codigo:

Dim objFS
Set objFS = CreateObject("Scripting.FileSystemObject")

Dim objFile

Fichero = "C:\Users\toshiba\Desktop\demo.txt"
Rename = "C:\Users\toshiba\Desktop\" & DATE & " demo.txt"

If objFS.FileExists (Fichero) Then
MsgBox(DATE)
objFS.MoveFile Fichero, Rename ' Renombro el archivo
Else
MsgBox("archivo NO existe")
Set objFile = objFS.CreateTextFile (Fichero)
End If