VBScript soll Datum und Zeit an Dateinamen hängen

Hallo Leute,

ich muß ein bestehendes VB Script erweitern, dass automatisch eine Datei erzeugt. Das Script soll nun an den Dateinamen das Datum im Format JahrMonatTag und dahinter einen Zeitstempel in der Form StundeMinuteSekunde anhängen:

dateiname_20090811_112945.log

Wie bekomme ich das in VB hin?

Danke und Gruß

D = Date
T = Time
Timestamp = Year(D) & Right("0" & Month(D), 2) & Right("0" & Day(D), 2) & _  
    "_" & _  
    Right("0" & Hour(T), 2) & Right("0" & Minute(T), 2) & Right("0" & Second(T), 2)