How to implement the WMI WIN32 calls

[Bachatero]

Hi all,

I use VBS (Visual Basic Script) to automate some tasks. However, sometimes I miss some nice and handy features in VBS.

As well I use Borland C++. Now I will try to use borland to perform these tasks. Do somebody know were I can find some simple examples how to implement the WMI Win32 calls with borland C++.

Thanks in advance,

Johan

 

[Glenn9999]

While this is using Delphi, it should be helpful in indicating what needs to be done.

faq102-7315
faq102-7316

It is not possible for anyone to acknowledge truth when their salary depends on them not doing it.

 

[bborissov]

Check:

http://www.microsoft.com/downloads/...64-ea15-4661-8da4-55bbc145c30e&displaylang=en

Unfortunately it only generates code for C#, VB.NET and VBS.

Borislav Borissov
VFP9 SP2, SQL Server 2000,2005 & 2008.

 

[HughLerwill]

Google 'c++ wmi' found this

http://msdn.microsoft.com/en-us/library/aa394558(VS.85).aspx

in first place

 

[Bachatero]

Thanks for the information.

Hi Glenn,

I used the code that was posted on the: Get System information from WMI faq102-7315

I have just a question:

The function below generates the following error code:

function WMIRowFindFirst(ObjectSet: ISWbemObjectSet; var ENum: IEnumVariant; var tempobj: OleVariant): boolean;
// finds the first row in a result set.
  var
    Value: Longint;
  begin
    Enum :=  (ObjectSet._NewEnum) as IEnumVariant;
    Result := (ENum.Next(1, tempObj, @Value) = 0);
  end;

The following line generates this error:

Result := (ENum.Next(1, tempObj, @Value) = 0);

[DCC Error] wmiserv.pas(75): E2033 Types of actual and formal var parameters must be identical

I found this message back on the internet, however I still can't solve it.

Can anyone give me a hint how to solve this.

Thanks in advance,

Johan

 

[execretor]

If you must work on Windows Vista or later, can I suggest you to learn PowerShell?
Is easy to use and you can write programs with wmi very quickly.

NOTE: For Windows XP you can also install PowerShell package

 

[Bachatero]

It is working now,

I changed:

var
Value: Longint;

To

var
Value: Cardinal;

Thanks,

Johan