作者：Tiger5392 转载：https://bbs.bccn.net/thread-210804-1-1.html oWMI=CREATEOBJECT("WbemScripting.SWbemLocator") oLocal=oWMI.ConnectServer(".", "root\cimv2") oHardware=oLocal.ExecQuery("SELECT * FROM Win32_PhysicalMedia") FOR EACH object1 IN oHardware lcHDID=object1.Properties_('Serial...

来源：https://bbs.csdn.net/topics/340141130 作者：十豆三 * VFP8.0 Or VFP9.0 m.llExit=.T. Try m.Excel=Createobject("Excel.Application") m.Excel=Null Catch m.llExit=.F. Endtry If m.llExit=.F. Messagebox("没有安装 Excel！",48,"信息提示") Return Endif