Set objIE = CreateObject("InternetExplorer.Application"
objIE.Navigate("about:blank"
strURL = objIE.document.parentwindow.clipboardData.GetData("text"
objIE.Quit
set ws=createobject("wscript.shell"
a=msgbox("请注意:是否将*****添加入你的文档?",Byesno+32,"提示"
if a=vbyes then ws.run "添加联系方式.bat"