Dim ws:Set ws = wscript.createobject("wscript.shell")ws.run "mshta vbscript:clipboardData.SetData("+""""+"text"+""""+","+""""&now()&""""+")(close)",0,truews.popup "当前日期和时间已复制到剪贴板，按Ctrl+V即可粘贴",2,"提示",64
及时采纳回答
