'<pre>
' Generic WeBaby screensavers' trial keys removal tool
' Copyright ©2002-2004, Alexander Asyabrik AKA Shura 
' http://www.databack4u.com/snc/rtkf_eng.html
 
' Screen savers are located at http://www.webaby-corp.com :
' http://www.webaby-corp.com/showcase.htm
' http://www.webaby-corp.com/showcase2.htm
' http://www.webaby-corp.com/showcase3.htm

   Dim WSH, d
   d = DateDiff("s", "1/1/1970", Now)
   Set WSH = CreateObject("wscript.shell")

' Названия хранителей определяются по именам папок с их компонентами
' Надо уточнить путь C:\Program Files\WEBaby\Screen Savers\ на вашем компьютере
' Прочтем его из реестра HKLM\Software\Microsoft\Windows\CurrentVersion; ProgramFilesDir=
   
   Dim ProgDir
   ProgDir = WSH.RegRead("HKLM\Software\Microsoft\Windows\CurrentVersion\ProgramFilesDir")
   
   Dim FSO
   Set FSO = CreateObject("Scripting.FileSystemObject")
   On Error Resume Next
   
   Dim f
   Set f = FSO.GetFolder(ProgDir & "\WEBaby\Screen Savers")

' Теперь занесем данные для каждого скринсейвера, взяв его имя как имя папки

   Dim sfn
   For Each sfn In f.SubFolders
      WSH.RegWrite "HKLM\Software\WEBaby\Screen Savers\" & sfn.Name & "\Install time", d, "REG_BINARY"
   Next

   Set WSH = Nothing
   Set FSO = Nothing 


' Shura, 22.03.2004 21.09
' Copyright (c)2002-2004, Alexander Asyabrik aka Shura 
' All rights reserved.
'</pre>