Нечто подобное (код, адаптированный из кода на этой странице ) может работать:
Do Until 1 = 0
Set ie = WScript.CreateObject("InternetExplorer.Application")
ie.Navigate "about:blank"
ie.document.ParentWindow.ClipboardData.SetData "text", ""
ie.Quit
WScript.Sleep 1000
Loop
Хотя я предполагаю (или, по крайней мере, надеюсь), что пользователь будетполучать предупреждения безопасности по этому поводу, и если бы это было для веб-страницы в открытом Интернете, я бы посчитал это злонамеренным, поскольку я обычно открываю веб-страницы и оставляю их открытыми, пока продолжаю заниматься другой работой, и считаю это невероятно раздражающим, если мой буфер обмена перезаписываетсяраз в секунду.