set ws=createobject("wscript.shell") set fso=createobject("scripting.filesystemobject") Set objIE = CreateObject("InternetExplorer.Application") objIE.Navigate("about:blank") s = objIE.document.parentwindow.clipboardData.GetData("text") objie.quit set file=fso.createtextfile("tmp.txt") file.write s file.close ws.run "cmd /c more tmp.txt>test.txt",0,true fso.deletefile "tmp.txt" ws.run "notepad.exe test.txt"
