Short form of same script:
data = "Data that will be placed in clipboard"
set a = createobject("dynamicwrapper")
a.register "kernel32.dll", "GlobalAlloc", "i=uu", "f=s", "r=l"
a.register "kernel32.dll", "GlobalLock", "i=l", "f=s", "r=l"
a.register "kernel32.dll", "lstrcpy", "i=hs", "f=s"...