通过WMI获取系统.进程.CPU.磁盘.分区.网卡.主板.内存.显卡.共享.键盘.鼠标等信息

*!* 作 者：十豆三
*!* 日 期：2011-08-05
*!* 说 明：通过WMI获取系统.进程.CPU.磁盘.分区.网卡.主板.内存.显卡.共享.键盘.鼠标等信息

oWMI=Getobject('winmgmts:')     && vfp9.0
m.cWin32Class='Win32_Processor'  && CPU信息 ( ProcessorId 项为序列号)
oItems=oWMI.ExecQuery('Select * From '+m.cWin32Class)
Create Cursor GetInfo (_Property C(50),_Value C(200))
For Each oItemIn oItems        && 如有多个相同类型设备，也一齐取出。（如取硬盘信息时，有多块硬盘时也会全部取出）
    For Each oPropertyIn oItem.Properties_
        lcName=oProperty.Name
        lcVal=Transform(oProperty.Value)
        Try
            Insert Into GetInfo Values(lcName,lcVal)
        Catch
        Endtry
    Endfor
Endfor
Locate
Browse
Return

修改 m.cWin32Class='Win32_Process'
的值可获得其他信息
Win32_ComputerSystem                  && 计算机系统信息
Win32_Process                         && 进程信息
Win32_Processor                       && CPU信息 ( ProcessorId 项为序列号)
Win32_DiskDrive                       && 磁盘信息 ( PNPDeviceID 项中\之后为序列号)
Win32_LogicalDisk                     && 分区(盘符)信息
Win32_NetworkAdapterConfiguration     && 网卡信息 ( IPAddress 项为IP地址, MACAddress 项为MAC地址)
Win32_BaseBoard                       && 主板信息 ( Manufacturer 项为主板生产商, Product 项为主板名称)
Win32_PhysicalMemory                  && 内存信息 ( Capacity 项为内存容量[字节])
Win32_VideoController                 && 显示卡信息
Win32_Share                           && 共享信息
Win32_Keyboard                        && 键盘信息
Win32_PointingDevice                  && 鼠标和触摸版信息
更多请参考 MSDN

vfp9.0 以下要把
oWMI=Getobject('winmgmts:')
改为
oWS=Createobject("WbemScripting.SWbemLocator")
oWMI=oWS.ConnectServer(".","root\cimv2")