magwmi52
所属分类:系统编程
开发工具:Delphi
文件大小:371KB
下载次数:31
上传日期:2010-01-14 22:24:32
上 传 者:
hingman
说明: WMI和智能组件包含通过WMI的功能,SMART与SCSI传递,对硬盘的信息获取和配置网络适配器特定用途,而且对许多其他一般用途。MagWMI允许访问和Windows Update的使用Windows系统信息管理仪表。 MagWMI提供一般信息的任何WMI使用类似命令SQL视图访问,并专门与函数的TCP / IP协议的配置,如设置适配器的IP地址,计算机名和域/工作组。
(Magenta Systems WMI and SMART Component contains WMI, SMART and SCSI Pass
Through functions, of particular use for getting hard disk information and
configuring network adaptors, but also for many other general uses.
MagWMI which allows access and update of windows system information using
Windows Management Instrumentation. MagWMI provides general view access
to any WMI information using SQL like commands, and also a number of
dedicated function relating to TCP/IP configuration, such as setting the
adaptor IP addresses, and the computer name and domain/workgroup. There
are also some examples for getting BIOS and disk drive information using
WMI, and also a method using SMART for getting disk information since WMI
has limitations on Windows 2000. SMART also returns disk failing or fault
information. For disks that don t support SMART, SCSI Pass Through is
used to get the drive serial number.
A demo program illustrates the use of all the functions.
Note that WMI m)
文件列表:
wmimain.dfm (12510, 2009-03-05)
wmimain.pas (12189, 2009-03-05)
magsubs1.pas (170907, 2009-02-19)
magwmi.pas (64684, 2009-03-05)
smartapi.pas (13952, 2008-07-29)
testwmi1.dpr (192, 2003-11-24)
testwmi1.exe (580096, 2009-03-05)
WbemScripting_TLB.pas (205168, 2009-03-05)
magwmi52.upl (2178, 2009-03-05)
Magenta Systems WMI and SMART Component v5.2
============================================
Updated by Angus Robertson, Magenta Systems Ltd, England, 5th March 2009
delphi@magsys.co.uk, http://www.magsys.co.uk/delphi/
Copyright Magenta Systems Ltd
Introduction
------------
Magenta Systems WMI and SMART Component contains WMI, SMART and SCSI Pass
Through functions, of particular use for getting hard disk information and
configuring network adaptors, but also for many other general uses.
MagWMI which allows access and update of windows system information using
Windows Management Instrumentation. MagWMI provides general view access
to any WMI information using SQL like commands, and also a number of
dedicated function relating to TCP/IP configuration, such as setting the
adaptor IP addresses, and the computer name and domain/workgroup. There
are also some examples for getting BIOS and disk drive information using
WMI, and also a method using SMART for getting disk information since WMI
has limitations on Windows 2000. SMART also returns disk failing or fault
information. For disks that don't support SMART, SCSI Pass Through is
used to get the drive serial number.
A demo program illustrates the use of all the functions.
Note that WMI may be used to get information from both the local computer
and remote computers, the latter needed a valid logon. WMI will only
run locally if the Windows Management Instrumentation service is running.
Running across a network also needs the RPC service running.
Function Overview
-----------------
MagWMI contains some general purpose functions for accessing any WMI class
information, and more specific functions for particular types of
information, which also illustrate how to use the former. WMI often
returns significant qualities of information with multiple instance, for
instance multiple items about several disk drives. To best return this
information, a two dimensional dynamic string array defined as:
T2DimStrArray = array of array of string ;
is used for WmiResults. Functions are provided to search within this
array for specific rows of information. The component converts all the
internal WMI data types to ASCII for the results. Some result fields may
have multiple sub-results, which are pipe (|) delimited strings. The
result set may be thought of as being columns and rows in a grid, with
property names in the first column. The demo program shows the results in
a multi-column TListView.
Some parameters are passed in a single dimension string array defined as:
StringArray = array of string;
This is used instead of TStrings so garabage collection is automatic.
General Purpose WMI Functions
-----------------------------
function MagWmiGetInfoEx (const Comp, NameSpace, User, Pass, Arg: widestring ;
var WmiResults: T2DimStrArray; var instances: integer; var errinfo: string): integer ;
This is the lowest level function for getting WMI information, it needs
a computer name (. for local computer), WMI name space (usually
'root\CIMV2'), logon user name and password (may be blank for local
computer) and the argument to pass to WMI which may be a simple WMI class
or a complex WMI WQL language query statement, see below for examples.
A variable WmiResults needs to be predefined for the results, see above,
and instances will return the number of columns of data, in addition to
column 0 being the properties in the data. The function result is the
number of rows in the result, with 0 being the header. Result -1 means
failure with the error in errinfo. The size of the dynamic array may
also be checked with Low/High functions and should match instances and
result + 1 each.
function MagWmiGetInfo (const Comp, NameSpace, User, Pass, Arg: widestring ;
var WmiResults: T2DimStrArray; var instances: integer): integer ;
Similar to MagWmiGetInfoEx, but does not return errinfo.
function MagWmiGetOneQ (const Arg, Prop: widestring ;
var ResStr: string): integer ;
This is a simple function to get a single property for an argument on the
local computer only, it Arg is a WQL SELECT statement that should return
only a single instance, ResStr will then be filled from the field
specified by Prop. Result is -1 for failure.
function MagWmiSearchIdx (const WmiResults: T2DimStrArray;
const Prop: string): integer ;
This function searches the two dimensional array result from MagWmiGetInfo
for the row of a specific property, or zero if not found.
function MagWmiSearch1 (const WmiResults: T2DimStrArray;
const Prop: string): string ;
This function searches the two dimensional array result from MagWmiGetInfo
for the value of a specific property, blank if not found.
Specific WMI Functions
----------------------
Note most of functions work for the local computer only, to avoid passing
more parameters than necessary.
function MagWmiGetBaseBoard: string ;
Returns the motherboard manufacturer and product name.
function MagWmiGetSMBIOS: string ;
Returns BIOS version information.
function MagWmiGetLastBootDT: TDateTime ;
Returns the date and time of the last PC boot.
function MagWmiGetDiskSerial (drive: integer): string ;
Returns the serial number for a specified physical disk drive, where
0 is the first drive, 1 the second, etc. Note this function only
operates on Windows XP and later. Use SMART or SCSI functions for
Windows 2000 or drives that return a blank.
function MagWmiGetDiskModel (drive: integer): string ;
Returns the disk model name for a specified physical disk drive, where
0 is the first drive, 1 the second, etc.
function MagWmiGetOSInfo (item: string): string ;
Returns a specific property from the Win32_OperatingSystem class, ie
SerialNumber, Locale, RegisteredUser, BootDevice, etc.
function MagWmiGetProcInfo (item: string): string ;
Returns a specific property from the Win32_Processor class, ie Version,
Manufacturer, ProcessorId, etc.
function MagWmiFindAdaptor (var AdapterName: string): integer ;
Returns the name and index of a the first unique enabled Ethernet 802.3
adaptor (except 1394 Net Adapter), ignoring hidden adapters. Generally,
most PCs only have one working network connection and adaptor, and this
function will find it. If there are multiple working adaptors, you'll
need to check the names more carefully, particularly if there are
duplicate names.
function MagWmiNetSetIPAddr (const AdapNum: integer; const IPAddresses,
SubnetMasks: StringArray): integer ;
Changes the static IP addresses and subnet masks for a specific adaptor
number, found using MagWmiFindAdaptor. Note the addresses are passed in
dynamic StringArrays so that multiple IP addresses and matching masks can
be configured. Return is -1 for error, 0 OK no reboot needed, 1 reboot
needed, 68 bad parameters, 84 using wrong adaptor. This function
will disable DHCP.
function MagWmiNetSetGateway (const AdapNum: integer; const IPGateways:
StringArray; const GatewayCosts: TIntegerArray): integer ;
Changes the static gateway IP addresses and costs for a specific adaptor
number, found using MagWmiFindAdaptor. Note the addresses are passed in
dynamic StringArrays so that multiple IP addresses and matching costs can
be configured. Return is -1 for error, 0 OK no reboot needed, 1 reboot
needed, 68 bad parameters, 84 using wrong adaptor. This function fails
if DHCP is enabled.
function MagWmiNetSetDHCP (const AdapNum: integer): integer ;
Enables DHCP for a specific adaptor number, found using MagWmiFindAdaptor,
so it loses static IPs. Return is -1 for error, 0 OK no reboot needed, 1
reboot needed, 84 using wrong adaptor.
function MagWmiRenameComp (const NewName, UserName, Password:
string): integer ;
This functions allows the local computer to be renamed, it always needs
logon information. This only works on Windows XP and later, and a PC
reboot is needed before the new name is recognised.
function MagWmiCloseWin (const Comp, User, Pass: widestring ; reboot:
boolean; var errinfo: string): integer ;
This function allows the local or remote PC to be closed down or rebooted.
function MagWmiGetMemory: TWmiMemoryRec ;
This function returns a record containing seven diferent memory sizes
TWmiMemoryRec = Record
FreePhysicalMemory: Int*** ;
FreeSpaceInPagingFiles: Int*** ;
FreeVirtualMemory: Int*** ;
SizeStoredInPagingFiles: Int*** ;
TotalSwapSpaceSize: Int*** ;
TotalVirtualMemorySize: Int*** ;
TotalVisibleMemorySize: Int*** ;
end ;
function MagWmiSmartDiskInfo (drivenr: integer; var errinfo, model,
serial: string ; var diskbytes: Int***): boolean ;
This function returns the model, serial number and size in bytes for a
locally connected ATA disk drive, where 0 is the first drive, 1 the
second, etc. It will not work with SCSI drives, or USB or firewire
connected drive, nor with RAID arrays.
function MagWmiSmartDiskFail (drivenr: integer; var SmartResult:
TSmartResult ; var errinfo: string): boolean ;
This function returns a record containing a lot of information for a
locally connected ATA disk drive, where 0 is the first drive, 1 the
second, etc. It will not work with SCSI drives, or USB or firewire
connected drive, nor with RAID arrays. SMART information is really
a historic record of drive usage and particular attributes saved by
the drive, such as maximum temperature, running time, error rates, etc.
Different manufacturers save differing attributes, using different
units and techniques, so making use of the results can be difficult.
See below for examples of the attribute results.
TSmartResult = Record
DriveNum: integer ;
CapacityNum: int*** ;
VendorUnique: array [1..3] of USHORT ;
SerialNumber: string ;
FirmwareRev: string ;
ModelNumber: string ;
MoreVendorUnique: integer ;
Temperature: integer ;
TempWorst: integer ;
TempLow: integer ;
HoursRunning: integer ;
ReallocSector: integer ;
PowerCycles: integer ;
SmartFailTot: integer ;
SmartWarnTot: integer ;
TotalAttrs: integer ;
AttrNum: array [0..MaxSmartAttr] of integer ;
AttrName: array [0..MaxSmartAttr] of string ;
AttrPreFail: array [0..MaxSmartAttr] of boolean ;
AttrEvents: array [0..MaxSmartAttr] of boolean ;
AttrErrorRate: array [0..MaxSmartAttr] of boolean ;
AttrCurValue: array [0..MaxSmartAttr] of integer ;
AttrWorstVal: array [0..MaxSmartAttr] of integer ;
AttrThreshold: array [0..MaxSmartAttr] of integer ;
AttrRawValue: array [0..MaxSmartAttr] of Int*** ;
AttrState: array [0..MaxSmartAttr] of string ;
end ;
function MagWmiScsiDiskInfo (drivenr: integer; var errinfo, model,
serial: string ; var diskbytes: Int***): boolean ;
This function returns the model, serial number and size in bytes for
SCSI disk drives, and and some USB drives, where 0 is the first drive,
1 the second, etc. The installed drivers really determine whether this
function will work or not.
Example WMI Class and SELECT Statements
---------------------------------------
Listed below are the WMI class and WQL language select statements provided
by the demo program (in the drop down box). Look at the Microsoft WMI
documentation for hundreds more classes. Using a class on it's own
returns all information for all instances of the class. A WQL select
statement (similar syntax to SQL) allows just the specifically required
data to be returned.
Win32_OperatingSystem
Win32_Keyboard
Win32_AutochkSetting
Win32_DiskDrive
Win32_DiskDrivePhysicalMedia
Win32_PhysicalMedia
Win32_LogicalDisk
Win32_MappedLogicalDisk
Win32_TapeDrive
Win32_BaseBoard
Win32_BIOS
Win32_Bus
Win32_DeviceSettings
Win32_IDEController
Win32_MemoryDevice
Win32_PhysicalMemory
Win32_PNPDevice
Win32_PortConnector
Win32_Processor
Win32_SerialPort
Win32_SerialPortConfiguration
Win32_SerialPortSetting
Win32_SoundDevice
Win32_SystemBIOS
Win32_USBController
Win32_USBControllerDevice
Win32_NetworkAdapter
Win32_NetworkAdapterConfiguration
Win32_NetworkAdapterSetting
Win32_Printer
Win32_PrinterConfiguration
Win32_POTSModem
Win32_POTSModemToSerialPort
Win32_DesktopMonitor
Win32_DisplayConfiguration
Win32_VideoController
Win32_VideoSettings
Win32_ActiveRoute
Win32_IP4PersistedRouteTable
Win32_IP4RouteTable
Win32_NetworkClient
Win32_NetworkConnection
Win32_BootConfiguration
Win32_ComputerSystem
Win32_MotherboardDevice
Win32_SystemUsers
Win32_SystemTimeZone
Win32_SystemSetting
Win32_Account
Win32_UserAccount
Win32_SystemAccount
Win32_Group
Win32_LogonSession
Win32_ComputerSystemWindowsProductActivation
Win32_WindowsProductActivation
Win32_FontIntoAction
Win32_ScheduledJob
Win32_Process
Win32_ServiceControl
Win32_Product
Win32_TemperatureProbe
Win32_StartupCommand
Win32_BaseService
Win32_Service
Win32_Desktop
Win32_Environment
Win32_LogicalProgramGroup
Win32_ProgramGroup
Win32_PerfFormattedData_RemoteAccess_RASTotal
Win32_PerfFormattedData_RemoteAccess_RASPort
Win32_PerfRawData_RemoteAccess_RASPort
SELECT * FROM Win32_OperatingSystem
SELECT * FROM Win32_NetworkAdapter WHERE ConfigManagerErrorCode = 0
SELECT Name, MACAddress, ConfigManagerErrorCode, NetConnectionID
FROM Win32_NetworkAdapter WHERE AdapterType = 'Ethernet 802.3'
SELECT Name, Model, InterfaceType, MediaType, Size from Win32_DiskDrive
SELECT Name, Description, DriveType, FileSystem, FreeSpace, Size,
VolumeSerialNumber from Win32_LogicalDisk
SELECT Description, IPAddress, IPSubnet, IPConnectionMetric,
MACAddress, DefaultIPGateway FROM Win32_NetworkAdapterConfiguration
WHERE DefaultTTL > 1
Demonstration Application
-------------------------
A Windows demonstration application TESTWMI1.EXE is supplied, with source
and compiled program. It illustrates the use of almost all the functions
described above. Beware some are dangerous, such as rebooting the
computer, changing the IP address and renaming the computer. The edit
box for Get Class or Query contains a drop down with the lots of classes,
but others can be entered for testing.
SMART Results
-------------
Below are two sample results generated from the MagWmiSmartDiskFail function.
----------------------------------------------------------------------------------------------------
Drive 0 IC25N040ATMR04-0; Serial Number MRG254K2FUMHYP; Capacity 37.3G
SMART Test Passed OK
Attribute Name State Cur Value Worst Value Threshold Raw Value Pre-Fail
1 Raw Read Error Rate OK 97 97 62 196,611 Yes
2 Throughput Performance OK 100 100 40 0 Yes
3 Spin Up Time OK 158 158 33 Yes
4 Start/Stop Count - 99 99 0 2,696 No
5 Reallocated Sector Count OK 100 100 5 0 Yes
7 Seek Error Rate OK 100 100 67 0 Yes
8 Seek Time Performance OK 100 100 40 0 Yes
9 Power On Count - 94 94 0 2,912 No
10 Spin Retry Count OK 100 100 60 0 Yes
12 Power Cycle Count - 99 99 0 2,***8 No
191 Unknown - 95 95 0 524,2*** No
192 Emergency Retract Cycle - *** *** 0 454 No
193 Load Cycle Count - 97 97 0 39,926 No
194 Temperature Celcius - 166 166 0 No
196 Reallocation Event Count - 100 100 0 237 No
197 Current Pending Sector - 100 100 0 44 No
1*** Off-line Uncorrectable - 100 100 0 0 No
199 Ultra ATA CRC Error Rate - 200 200 0 5 No
----------------------------------------------------------------------------------------------------
Drive 1 TOSHIBA MK1031GAS; Serial Number 75CQ1825S; Capacity 93.2G
SMART Test Passed OK
Attribute Name State Cur Value Worst Value Threshold Raw Value Pre-Fail
1 Raw Read Error Rate OK 100 100 50 0 Yes
2 Throughput Performance OK 100 100 50 0 Yes
3 Spin Up Time OK 100 100 1 1,272 Yes
4 Start/Stop Count - 100 100 0 167 No
5 Reallocated Sector Count OK 100 100 50 0 Yes
7 Seek Error Rate OK 100 100 50 0 Yes
8 Seek Time Performance OK 100 100 50 0 Yes
9 Power On Count - 99 99 0 562 No
10 Spin Retry Count OK 103 100 30 0 Yes
12 Power Cycle Count - 100 100 0 167 No
192 Emergency Retract Cycle - 100 100 0 2 No
193 Load Cycle Count - 100 100 0 2,861 No
194 Temperature Celcius - 100 100 0 No
196 Reallocation Event Count - 100 100 0 0 No
197 Current Pending Sector - 100 100 0 0 No
1*** Off-line Uncorrectable - 100 100 0 0 No
199 Ultra ATA CRC Error Rate - 200 200 0 0 No
220 Unknown - 100 100 0 74 No
222 Unknown - 99 99 0 415 No
223 Unknown - 100 100 0 0 No
224 Unknown - 100 100 0 0 No
226 Unknown - 100 100 0 346 No
240 Unknown OK 100 100 1 0 Yes
----------------------------------------------------------------------------------------------------
Files Enclo ... ...
近期下载者:
相关文件:
收藏者: