Wmi:= CreateOleObject('WbemScripting.SWbemLocator'); Objs := Wmi.ConnectServer('.','root\cimv2').ExecQuery('Select * from Win32_'+WMIType); tempItem:=IEnumVariant(IUnknown(Objs._NewEnum)); Result:='';while(temp
WMI : OleVariant; RET : OleVariant; Enum : IEnumVariant; Tmp : OleVariant; Value :Cardinal; begin Result :=''; try Locator := CreateOleObject('WbemScripting.SWbemLocator'); WMI := Locator.ConnectServer('.','','',''); RET := WMI.ExecQuery('Select * From Win32_DiskDrive');//Win32_D...
uses ActiveX, ComObj, Variants; function GetCPUModel: string; var wmiServices: OLEVariant; colItems: OLEVariant; colItem: OLEVariant; oEnum: IEnumVariant; iValue: LongWord; begin Result := ''; wmiServices := GetObject('winmgmts:\\.\root\cimv2'); colItems := wmiServices.ExecQuery('SELECT...
27. WMI := Locator.ConnectServer(".", "", "", ""); 28. 29. Ret := WMI.ExecQuery("SELECT * FROM Win32_USBHub");//这里Win32_USBHub为检测项,详见下表 30. 31. 32. 33. Enum:= IUnknown(RET._NewEnum) as IEnumVariant; 34. 35. while (Enum.Next(1, Tmp, Value) = S_OK) do...
function GetCPUTemper: Double;var wmi, obj: OleVariant;enum: IEnumVariant;dw: DWORD;begin Result := 0;wmi := CreateOleObject('WbemScripting.SWbemLocator');if VarIsEmpty(wmi) then Exit;obj := wmi.ConnectServer('.', 'root\WMI').ExecQuery('SELECT * FROM MSAcpi_ThermalZoneTemperature...
implementationfunctionGetWMIProperty(WMIType,WMIProperty:string):string;varWmi,Objs,Obj:OleVariant;Enum:IEnumVariant;C:Cardinal;s:string;beginWmi:=CreateOleObject('WbemScripting.SWbemLocator');Objs:=Wmi.ConnectServer('.','root\cimv2').ExecQuery('Select * from Win32_'+WMIType);Enum:=IEnumVariant(I...
FWbemObjectSet:= FWMIService.ExecQuery(Format(‘SELECT * FROM %s’,[WmiClassSCProduct[SCProduct]]),’WQL’,0); oEnum := IUnknown(FWbemObjectSet._NewEnum) as IEnumVariant; while oEnum.Next(1, FWbemObject, iValue) = 0 do begin if osVerInfo.dwMajorVersion=6 then //windows vista or...
uses ComObj, ActiveX;function GetDiskRunTime: Word;varwmi, obj: OleVariant;enum: IEnumVariant;dw: DWORD;beginResult := 0;wmi := CreateOleObject('WbemScripting.SWbemLocator');if VarIsEmpty(wmi) then Exit;obj := wmi.ConnectServer('.', 'root\WMI').ExecQuery('SELECT * FROM MS...
Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapter",,48) For Each objItem in colItems if (left(objItem.NetConnectionID,4)="本地连接") then lanname=objItem.Name end if Next lan2="网卡: " & lanname tempfile.writeline(board2) ...
Objs := Wmi.ConnectServer('.','root/cimv2').ExecQuery('Select * from Win32_OperatingSystem'); Enum :=IEnumVariant(IUnknown(Objs._NewEnum)); Enum.Reset; Enum.Next(1, Obj, C); Obj := Obj.Properties_.Item(WMIProperty,0).Value; ...