проблемы с удаленным WMI

From

Sergey Andyk (2:5005/58.43)

To

Yura K Bilyk

Date

2003-01-10T16:26:33Z

Area

SU.WINDOWS.NT.PROG

Good day (morning,evening,night) Yura!

  Yura K Bilyk wrote to All on 23 Dec 02 :
 YB> делаю так:
 YB> -+----------------
 YB> var c: IADs;
 YB>  ims: IWbemServices;
 YB>  iwl: IWbemLocator;

 YB> begin
 YB> CoInitialize(nil);
 YB> CoCreateInstance(CLSID_WbemLocator,nil,CLSCTX_INPROC_SERVER,IID_IWbemL
 YB> ocator ,iwl); iwl.ConnectServer('\\myhost\root\dafault','','',widechar
 YB> (nil),0,widechar(nil ),nil,ims);

Я в дельфях не в курсе как это выглядит, но ims должен передаваться как указатель на указатель. Вот рабочий кусок.

=== Cut ===
m_pIWbemServices=NULL;
pIWbemLocator = NULL;

CoInitialize(NULL);

hr = CoCreateInstance(CLSID_WbemLocator,NULL,CLSCTX_INPROC_SERVER,IID_IWbemLoca tor,( LPVOID *) &pIWbemLocator);
if(hr==S_OK)
{
wchar_t cls[MAX_PATH];
wcscpy(cls,L"\\\\");
wcscat(cls,machine);
wcscat(cls,L"\\root\\cimv2");

hr = pIWbemLocator->ConnectServer(cls,NULL,NULL,0L,0L,NULL,NULL,&m_pIWbemServic es);
if(SUCCEEDED(hr))
{

MAINCODE();

}
}
=== Cut ===

        Bye Bye!
      Злобный SERG

--- GEcho 1.20/Pro
 * Origin: asvzzz@narod.ru, http://asvzzz.narod.ru  (2:5005/58.43)