rruz / wmi-delphi-code-creator Goto Github PK
View Code? Open in Web Editor NEWGenerate Object Pascal (Delphi, FPC), Oxygene, C++ and C# code to access the WMI
Home Page: https://theroadtodelphi.wordpress.com/
Generate Object Pascal (Delphi, FPC), Oxygene, C++ and C# code to access the WMI
Home Page: https://theroadtodelphi.wordpress.com/
WDCC does not see Delphi 10.1 as an existing delphi. Any workaround?
Regards.
Hi,
I get unit OleServer not found on Delphi 10. I'm new to Delphi, so I'm not sure where to start looking.
Thanks
It would be possible to add the list of cpp compilers, TDM-GCC?
This greatly help developers notepad or simple IDEs.
What steps will reproduce the problem?
1.Select WIN32_CDROMDrive, Capabilities
2.
3.
What is the expected output? What do you see instead?
I expected to see 3,4,7 but get exception
What version of the product are you using? On what operating system?
Latest Version on Windows 8 Pro 32bit
Please provide any additional information below.
Original issue reported on code.google.com by [email protected]
on 27 May 2013 at 2:38
Attachments:
What steps will reproduce the problem?
1. Open Wmi Delphi Code generator binary (as downloaded today)
What is the expected output? What do you see instead?
Left top button says Ejecute code; should be Execute code
What version of the product are you using? On what operating system?
1.1.2.140
Please provide any additional information below.
Nitpicking, I know, but the rest looks so good I thought I'd mention it.
Very impressive!
Original issue reported on code.google.com by [email protected]
on 3 Aug 2011 at 2:53
I'm having a problem for a long time, this appeared an error with the following
description "Overflow while Converting Variant of Type (OLESTR) into type
(Integer)"
I'm using Delphi XE on Windows XP 32 ...
Thank you for your attention
Original issue reported on code.google.com by [email protected]
on 20 Aug 2012 at 7:11
WMI Finder > Enter Text to search.
Search text column /edit text was disabled. Why?
What steps will reproduce the problem?
1. Try to compile under Delphi 7 Personal or Delphi XE Starter
What is the expected output? What do you see instead?
Error : [Fatal Error] WDCC.dpr(70): File not found : 'Vcl.Themes.dcu'
What version of the product are you using? On what operating system?
Delphi 7 Personal
Delphi XE Starter
Windows 7 64 bits SP1
Please provide any additional information below.
There is no Vcl.Themes.pas under the untis folder
Original issue reported on code.google.com by pixel.k
on 14 May 2013 at 8:57
Wie im Screenshot zu sehen wird "AccesPaths" zwar im WMI angezeigt,
aber weder in der von WMI kompilierten noch in der in Delphi umgesetzten Version angezeigt,
Restliche Daten schon.
In Delphi kommt folgende Meldung
ähnliches bei GUID, hier wird eine aktive Partition (Permanendt in Verwendung) nicht ausgelesen, wieder mit der Null.....
wie hier zu sehen kommen manche
Hier noch schnell der Delphi Code
//-----------------------------------------------------------------------------------------------------
// This code was generated by the Wmi Delphi Code Creator (WDCC) Version 1.9.9.350
// http://code.google.com/p/wmi-delphi-code-creator/
// Blog http://theroadtodelphi.wordpress.com/wmi-delphi-code-creator/
// Author Rodrigo Ruz V. (RRUZ) Copyright (C) 2011-2015
//-----------------------------------------------------------------------------------------------------
//
// LIABILITY DISCLAIMER
// THIS GENERATED CODE IS DISTRIBUTED "AS IS". NO WARRANTY OF ANY KIND IS EXPRESSED OR IMPLIED.
// YOU USE IT AT YOUR OWN RISK. THE AUTHOR NOT WILL BE LIABLE FOR DATA LOSS,
// DAMAGES AND LOSS OF PROFITS OR ANY OTHER KIND OF LOSS WHILE USING OR MISUSING THIS CODE.
//
//----------------------------------------------------------------------------------------------------
program GetWMI_Info;
{$mode objfpc} {$H+}
uses
SysUtils,
ActiveX,
ComObj,
Variants;
// Serial Port Name
procedure GetMSSerial_PortNameInfo;
const
WbemUser ='';
WbemPassword ='';
WbemComputer ='localhost';
wbemFlagForwardOnly = $00000020;
var
FSWbemLocator : OLEVariant;
FWMIService : OLEVariant;
FWbemObjectSet: OLEVariant;
FWbemObject : Variant;
oEnum : IEnumvariant;
sValue : string;
begin;
FSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator');
FWMIService := FSWbemLocator.ConnectServer(WbemComputer, 'root\WMI', WbemUser, WbemPassword);
FWbemObjectSet:= FWMIService.ExecQuery('SELECT * FROM MSSerial_PortName','WQL',wbemFlagForwardOnly);
oEnum := IUnknown(FWbemObjectSet._NewEnum) as IEnumVariant;
while oEnum.Next(1, FWbemObject, nil) = 0 do
begin
sValue:= FWbemObject.Properties_.Item('Active').Value;
Writeln(Format('Active %s',[sValue]));// Boolean
sValue:= FWbemObject.Properties_.Item('InstanceName').Value;
Writeln(Format('InstanceName %s',[sValue]));// String
sValue:= FWbemObject.Properties_.Item('PortName').Value;
Writeln(Format('PortName %s',[sValue]));// String
Writeln('');
FWbemObject:=Unassigned;
end;
end;
begin
try
GetMSSerial_PortNameInfo;
except
on E:EOleException do
Writeln(Format('EOleException %s %x', [E.Message,E.ErrorCode]));
on E:Exception do
Writeln(E.Classname, ':', E.Message);
end;
Writeln('Press Enter to exit');
Readln;
end.
This line appears to be the problem:
while oEnum.Next(1, FWbemObject, nil) = 0 do
Have you ever considered adding Go as a supported language to WMI Delphi Code Creator? The 'StackExchange' account has a great example of querying WMI with Go:
https://github.com/StackExchange/wmi
Or another approach here: https://libraries.io/github/a-palchikov/wmi
Select * from Win32_NetworkAdapterConfiguration where.....
it's WQL is not working.
Check, pls.
Powershell is working it
I have a doubt, if it is possible to get the HD speed (RPM), if the memory is
DDR1, DDR2, DDR3, if the HD is SATA or IDE chipset and Socket Motherboard ...
Thank You
Original issue reported on code.google.com by [email protected]
on 3 Sep 2012 at 12:11
Hello RRUZ,
Thank you very much for your great tool :)
From .exe Delphi all works fine.
Now, I would like to use it via a Delphi Service.
Getting error : "CoInitialize has not been called, ProdID: WbemScripting.SWbemLocator"
is it Possible to use WMI from Service ?
Thx
What steps will reproduce the problem?
1. Run program, select some WMI classes & events.
2. Select a language (e.g. FreePascal)
3. Press ejecute code
What is the expected output? What do you see instead?
Compiler selection dialog shows up, in my case with 1 Lazarus/FPC compiler. If
I press OK, nothing happens.
If I select the compiler first, then press OK, it compiles & runs.
2 suggestions:
1. Don't enable OK until a compiler is selected or
2. In the case of 1 compiler, select that compiler. If multiple compilers,
select the first one.
What version of the product are you using? On what operating system?
1.1.2.140
Please provide any additional information below.
Love this program already.
Original issue reported on code.google.com by [email protected]
on 3 Aug 2011 at 2:56
What steps will reproduce the problem?
1.Install Wmi-Delphi-code-Creator
2.Execute
3.
What is the expected output? What do you see instead?
throws error as "Generic Failure" several times and then program starts.
Also generated codes behaves like this.
What version of the product are you using? On what operating system?
W7 Ultimate x64
Please provide any additional information below.
Original issue reported on code.google.com by [email protected]
on 3 Mar 2015 at 7:28
In C++ when reading UINT64 values from VARIANT structure, you should use bstrVal instead of uintVal. You can see more about the issue here: http://www.codeproject.com/Questions/384313/Cplusplus-WMI-UINT-question
Hope you fix this in next update,
Thanks!
Sorry
It HAS TO BE !!!!!!!!!!!
CaptureConsoleOutput('"'+CompilerName+'"' + ' ' + Format(' -B -CC "%s"', [ProjectFile]), Console);
Not only %S but compilename too otherwise it dose not work!!
Original issue reported on code.google.com by [email protected]
on 4 Jul 2011 at 8:54
Hi,
Is it possible to tell WDCC where to find de Lazarus IDE and FPC compiler, because it does not find it. I've manually compiled both, so no default installation.
Thanks in advance,
Maarten
WmiClassIsSingleton is missing in uWmiDelphiCode
are there any thing missing in the source?
Original issue reported on code.google.com by [email protected]
on 15 Jun 2011 at 10:26
The link to Binaries (Portable edition) is broken in the README.md file.
The same link is also used on your web site. Also resulting in a Error 404 page.
Hi,
i choose win32_networkadapetrconfiguration with the properties, ipaddress and mac.
when i save the file and run it with Delphi XE8, i always get:
EVariantTypeCastError: could not convert variant of type (Null) into type (Olestr).
Whats wrong here ?
I am using version 1.9.5.0
I am using XP and XE
The program dose not generate exe
1. when compiled it dose not return ANY dos error
to screen.
2. Compilation is NOT done although the path is correct
I thought to add " like
if CreateProcess(nil, PChar('"'+lpCommandLine+'"'), @lpPipeAttributes,
but it did not help
the dos command dose not find the long name path i guess
But worse error do NOT return to screen.
Original issue reported on code.google.com by [email protected]
on 16 Jun 2011 at 6:55
When a firewall, such as ZoneAlarm blocks internet access, the portable edition
will hang for a minute or two before displaying a notice that it could not
connect to a server to check for updates. After this, the main interface is
seen.
OS: Windows XP Pro Service Pack 3
WDCC v1.8.3
Original issue reported on code.google.com by [email protected]
on 28 Mar 2014 at 5:50
The portable edition cache files are being stored in the Application Data
directory, instead of inside it's own Cache directory.
C:\Documents and Settings\User\Application Data\WDCC\Cache\
OS: Windows XP Pro Service Pack 3
WDCC v1.8.3
Original issue reported on code.google.com by [email protected]
on 28 Mar 2014 at 5:46
Dose not compile under XE.
Took the demo and tried to compile with xe
I started fixing but to many errors.
Specially style.
Gave up.
Plz make an XE version
A declarative, efficient, and flexible JavaScript library for building user interfaces.
🖖 Vue.js is a progressive, incrementally-adoptable JavaScript framework for building UI on the web.
TypeScript is a superset of JavaScript that compiles to clean JavaScript output.
An Open Source Machine Learning Framework for Everyone
The Web framework for perfectionists with deadlines.
A PHP framework for web artisans
Bring data to life with SVG, Canvas and HTML. 📊📈🎉
JavaScript (JS) is a lightweight interpreted programming language with first-class functions.
Some thing interesting about web. New door for the world.
A server is a program made to process requests and deliver data to clients.
Machine learning is a way of modeling and interpreting data that allows a piece of software to respond intelligently.
Some thing interesting about visualization, use data art
Some thing interesting about game, make everyone happy.
We are working to build community through open source technology. NB: members must have two-factor auth.
Open source projects and samples from Microsoft.
Google ❤️ Open Source for everyone.
Alibaba Open Source for everyone
Data-Driven Documents codes.
China tencent open source team.