dim objset obj=createobject("wscript.shell")dat=now()obj.run "cmd.exe /c echo " & dat & " | clip",0,0set obj=nothingwscript.quit
保存成VBS 运行就OK了
