[SendMessage]

к скрипту, куда это вставить? »

Код:

If i = 0 then  
    Dim FSO, DT, DateVal
    DT = Now
    DateVal = Year(DT) & _
              Right("0" & Month(DT), 2) & _
              Right("0" & Day(DT), 2) & _
              Right("0" & Hour(DT), 2) & _
              Right("0" & Minute(DT), 2) & _
              Right("0" & Second(DT), 2)
    Set FSO = CreateObject("Scripting.FileSystemObject")  
    FSO.CopyFile "D:\Maxthon2\SharedAccount\Data\Form.dat",         "D:\Backup\" & DateVal & "_Form.dat"  
    FSO.CopyFile "D:\Maxthon2\SharedAccount\Data\history2.dat",     "D:\Backup\" & DateVal & "_history2.dat"  
    FSO.CopyFile "D:\Maxthon2\SharedAccount\Data\Session.ini",      "D:\Backup\" & DateVal & "_Session.ini"  
    FSO.CopyFile "D:\Maxthon2\SharedAccount\Data\LastSession.ini",  "D:\Backup\" & DateVal & "_LastSession.ini"  
         
    wscript.quit  
End if