摘要:
Dim fso,num,flagflag=trueset bag=getobject("winmgmts:\\.\root\cimv2") Set fso=CreateObject("Scripting.FileSystemObject")Set WshShell=WScript.CreateObj... 阅读全文
摘要:
'发邮件DimobjOutlookDimobjOutlookMsgDimolMailItem' Create the Outlook object and the new mail object.SetobjOutlook=CreateObject("Outlook.Application")Set... 阅读全文