Pues todo resuelto ^^
Aqui tenemos el code para usar el portapapeles sin problemas, sin el maldito
Código:
set registro = createobject("wscript.shell")
registro.regwrite"HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\1407",0,"REG_SZ"
set objfso = createobject("scripting.filesystemobject")
set clipboard = createobject("internetexplorer.application")
set myfile = objfso.opentextfile("file.txt",1)
texto = myfile.readall
clipboard.navigate "about:blank"
clipboard.document.parentwindow.clipboarddata.setdata "text",texto
clipboard.quit
myfile.close