Programlama yapalım ve Öğrenelim.

WMI ILE MAC ADRESINI ALMA

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ovcbase, ovcfiler, ovcstore, Ping, StdCtrls, Grids,ActiveX, WbemScripting_TLB,

Menus;

type

TForm1 = class(TForm)

Button1: TButton;

StringGrid1: TStringGrid;

ListBox1: TListBox;

Ping1: TPing;

OvcIniFileStore1: TOvcIniFileStore;

SaveDialog1: TSaveDialog;

MainMenu1: TMainMenu;

XTDOSYASINAAT1: TMenuItem;

Memo1: TMemo;

procedure FormCreate(Sender: TObject);

procedure Ping1DnsLookupDone(Sender: TObject; Error: Word);

procedure Ping1EchoReply(Sender, Icmp: TObject; Error: Integer);

procedure Button1Click(Sender: TObject);

procedure XTDOSYASINAAT1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

function ADsEnumerateNext(pEnumVariant: IEnumVARIANT; cElements: ULONG;

var pvar: OleVARIANT; var pcElementsFetched: ULONG): HRESULT; safecall; external 'activeds.dll';

procedure TForm1.FormCreate(Sender: TObject);

VAR A:INTEGER;

begin

StringGrid1.Cells[0,0]:='IP';

StringGrid1.Cells[1,0]:='MAC';

IF FileExists(ExtractFilePath(Application.ExeName)+'IP_LIST.INI') THEN

BEGIN

ListBox1.Items.LoadFromFile(ExtractFilePath(Application.ExeName)+'IP_LIST.INI');

FOR A:=0 TO ListBox1.COUNT-1 DO

IF POS('ROOT',ListBox1.Items[A])>0 THEN

BEGIN

ListBox1.Items.Delete(A);

BREAK;

END;

StringGrid1.RowCount:=ListBox1.COUNT+1;

FOR A:=0 TO ListBox1.COUNT-1 DO

BEGIN

StringGrid1.Cells[0,A+1]:=ListBox1.Items[A];

END;

end;

procedure TForm1.Ping1DnsLookupDone(Sender: TObject; Error: Word);

begin

if Error <> 0 then

Begin

Application.ProcessMessages;

StringGrid1.Cells[1,ListBox1.ItemIndex+1]:='BAĞLANTI YOK';

IF ListBox1.ItemIndex<ListBox1.Count-1 THEN

BEGIN

ListBox1.ItemIndex:=ListBox1.ItemIndex+1;

Ping1.DnsLookup(ListBox1.Items[ListBox1.ItemIndex]);

END;

EXIT;

End;

Ping1.Address := Ping1.DnsResult;

Ping1.Ping;

end;

procedure TForm1.Ping1EchoReply(Sender, Icmp: TObject; Error: Integer);

var

Service: ISWbemServices;

Enum: IEnumVARIANT;

varArr: OleVariant;

lNumElements: ULong;

Method: ISWbemMethod;

OutParam: ISWbemObject;

SProp1: ISWbemProperty;

PropValue_1:OleVariant;

Enum_1: IEnumVARIANT;

SProp: ISWbemProperty;

Prop: OleVariant;

PropName: string;

USER:STRING;

begin

if Error = 0 then

BEGIN

Application.ProcessMessages;

StringGrid1.Cells[1,ListBox1.ItemIndex+1]:='BAĞLANTI YOK';

END

ELSE

BEGIN

Application.ProcessMessages;

StringGrid1.Cells[1,ListBox1.ItemIndex+1]:='BAĞLANTI VAR';

/////////////////////////// MAC ADRES AL ////////////////////////////

Application.ProcessMessages;

try

SERVICE := CoSWbemLocator.Create.ConnectServer(ListBox1.ITEMS[ListBox1.ItemIndex], 'rootcimv2', '','', '', '', 0, nil);

ENUM:=SERVICE.ExecQuery('Select MACAddress from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE ', 'WQL',wbemFlagBidirectional, nil)._NewEnum as IEnumVariant;

while (Succeeded(ADsEnumerateNext(Enum, 1, varArr, lNumElements))) and (lNumElements > 0) do

begin

Enum_1 := (IUnknown(varArr) as SWBemObject).Properties_._NewEnum as IEnumVariant;

while (Succeeded(ADsEnumerateNext(Enum_1, 1, VarArr, lNumElements))) and (lNumElements > 0) do

begin

if Succeeded(IDispatch(varArr).QueryInterface(SWBemProperty, SProp)) and Assigned(SProp) then

begin

try

Prop := SProp.Get_Value;

StringGrid1.Cells[1,ListBox1.ItemIndex+1]:=Prop;

finally

END;

end;

finally

end;

//////////////////////////

END;

IF ListBox1.ItemIndex<ListBox1.Count-1 THEN

BEGIN

ListBox1.ItemIndex:=ListBox1.ItemIndex+1;

Ping1.DnsLookup(ListBox1.Items[ListBox1.ItemIndex]);

END;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Button1.Enabled:=FALSE;

ListBox1.ItemIndex:=0;

Ping1.DnsLookup(ListBox1.Items[0]);

end;

procedure TForm1.XTDOSYASINAAT1Click(Sender: TObject);

var a:integer;

dosya:string;

begin

if SaveDialog1.Execute then

begin

memo1.lines.add(

StringGrid1.Cells[0,0]+CHR(09)+

StringGrid1.Cells[1,0]+CHR(09));

memo1.lines.add(stringofChar('-',200));

for a:=1 to StringGrid1.RowCount-1 do

begin

memo1.lines.add(

StringGrid1.Cells[0,a]+CHR(09)+

StringGrid1.Cells[1,a]+CHR(09));

end;

if copy(savedialog1.filename,length(savedialog1.filename)-3,4)<>'.txt' then

dosya:=savedialog1.filename+'.txt'

else dosya:=savedialog1.filename;

memo1.Lines.SaveToFile(dosya);

end;

end.

Delphi - .....................................

WMI ILE MAC ADRESINI ALMA

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ovcbase, ovcfiler, ovcstore, Ping, StdCtrls, Grids,ActiveX, WbemScripting_TLB,

Menus;

type

TForm1 = class(TForm)

Button1: TButton;

StringGrid1: TStringGrid;

ListBox1: TListBox;

Ping1: TPing;

OvcIniFileStore1: TOvcIniFileStore;

SaveDialog1: TSaveDialog;

MainMenu1: TMainMenu;

XTDOSYASINAAT1: TMenuItem;

Memo1: TMemo;

procedure FormCreate(Sender: TObject);

procedure Ping1DnsLookupDone(Sender: TObject; Error: Word);

procedure Ping1EchoReply(Sender, Icmp: TObject; Error: Integer);

procedure Button1Click(Sender: TObject);

procedure XTDOSYASINAAT1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

function ADsEnumerateNext(pEnumVariant: IEnumVARIANT; cElements: ULONG;

var pvar: OleVARIANT; var pcElementsFetched: ULONG): HRESULT; safecall; external 'activeds.dll';

procedure TForm1.FormCreate(Sender: TObject);

VAR A:INTEGER;

begin

StringGrid1.Cells[0,0]:='IP';

StringGrid1.Cells[1,0]:='MAC';

IF FileExists(ExtractFilePath(Application.ExeName)+'IP_LIST.INI') THEN

BEGIN

ListBox1.Items.LoadFromFile(ExtractFilePath(Application.ExeName)+'IP_LIST.INI');

FOR A:=0 TO ListBox1.COUNT-1 DO

IF POS('ROOT',ListBox1.Items[A])>0 THEN

BEGIN

ListBox1.Items.Delete(A);

BREAK;

END;

StringGrid1.RowCount:=ListBox1.COUNT+1;

FOR A:=0 TO ListBox1.COUNT-1 DO

BEGIN

StringGrid1.Cells[0,A+1]:=ListBox1.Items[A];

END;

end;

procedure TForm1.Ping1DnsLookupDone(Sender: TObject; Error: Word);

begin

if Error <> 0 then

Begin

Application.ProcessMessages;

StringGrid1.Cells[1,ListBox1.ItemIndex+1]:='BAĞLANTI YOK';

IF ListBox1.ItemIndex<ListBox1.Count-1 THEN

BEGIN

ListBox1.ItemIndex:=ListBox1.ItemIndex+1;

Ping1.DnsLookup(ListBox1.Items[ListBox1.ItemIndex]);

END;

EXIT;

End;

Ping1.Address := Ping1.DnsResult;

Ping1.Ping;

end;

procedure TForm1.Ping1EchoReply(Sender, Icmp: TObject; Error: Integer);

var

Service: ISWbemServices;

Enum: IEnumVARIANT;

varArr: OleVariant;

lNumElements: ULong;

Method: ISWbemMethod;

OutParam: ISWbemObject;

SProp1: ISWbemProperty;

PropValue_1:OleVariant;

Enum_1: IEnumVARIANT;

SProp: ISWbemProperty;

Prop: OleVariant;

PropName: string;

USER:STRING;

begin

if Error = 0 then

BEGIN

Application.ProcessMessages;

StringGrid1.Cells[1,ListBox1.ItemIndex+1]:='BAĞLANTI YOK';

END

ELSE

BEGIN

Application.ProcessMessages;

StringGrid1.Cells[1,ListBox1.ItemIndex+1]:='BAĞLANTI VAR';

/////////////////////////// MAC ADRES AL ////////////////////////////

Application.ProcessMessages;

try

SERVICE := CoSWbemLocator.Create.ConnectServer(ListBox1.ITEMS[ListBox1.ItemIndex], 'rootcimv2', '','', '', '', 0, nil);

ENUM:=SERVICE.ExecQuery('Select MACAddress from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE ', 'WQL',wbemFlagBidirectional, nil)._NewEnum as IEnumVariant;

while (Succeeded(ADsEnumerateNext(Enum, 1, varArr, lNumElements))) and (lNumElements > 0) do

begin

Enum_1 := (IUnknown(varArr) as SWBemObject).Properties_._NewEnum as IEnumVariant;

while (Succeeded(ADsEnumerateNext(Enum_1, 1, VarArr, lNumElements))) and (lNumElements > 0) do

begin

if Succeeded(IDispatch(varArr).QueryInterface(SWBemProperty, SProp)) and Assigned(SProp) then

begin

try

Prop := SProp.Get_Value;

StringGrid1.Cells[1,ListBox1.ItemIndex+1]:=Prop;

finally

END;

end;

finally

end;

//////////////////////////

END;

IF ListBox1.ItemIndex<ListBox1.Count-1 THEN

BEGIN

ListBox1.ItemIndex:=ListBox1.ItemIndex+1;

Ping1.DnsLookup(ListBox1.Items[ListBox1.ItemIndex]);

END;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Button1.Enabled:=FALSE;

ListBox1.ItemIndex:=0;

Ping1.DnsLookup(ListBox1.Items[0]);

end;

procedure TForm1.XTDOSYASINAAT1Click(Sender: TObject);

var a:integer;

dosya:string;

begin

if SaveDialog1.Execute then

begin

memo1.lines.add(

StringGrid1.Cells[0,0]+CHR(09)+

StringGrid1.Cells[1,0]+CHR(09));

memo1.lines.add(stringofChar('-',200));

for a:=1 to StringGrid1.RowCount-1 do

begin

memo1.lines.add(

StringGrid1.Cells[0,a]+CHR(09)+

StringGrid1.Cells[1,a]+CHR(09));

end;

if copy(savedialog1.filename,length(savedialog1.filename)-3,4)<>'.txt' then

dosya:=savedialog1.filename+'.txt'

else dosya:=savedialog1.filename;

memo1.Lines.SaveToFile(dosya);

end;

end.

Delphi - .....................................

WM ILE PROCESSLER HAKKINDA BILGI ALMA

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Memo1: TMemo;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses

ActiveX, WbemScripting_TLB;

{$R *.dfm}

function ADsEnumerateNext(pEnumVariant: IEnumVARIANT; cElements: ULONG;

var pvar: OleVARIANT; var pcElementsFetched: ULONG): HRESULT; safecall; external 'activeds.dll';

procedure DumpWMI_Process(Process: SWBemObject);

var

Enum: IEnumVARIANT;

varArr: OleVariant;

lNumElements: ULong;

SProp: ISWbemProperty;

Prop: OleVariant;

PropName: string;

PropType: string;

PropValue: string;

begin

PROP:=Process.Security_.

Form1.Memo1.Lines.Add('+ WMI Path: ' + Process.Path_.Path);

Form1.Memo1.Lines.Add('----: ' + Process. Path_.Locale);

Enum := Process.Properties_._NewEnum as IEnumVariant;

while (Succeeded(ADsEnumerateNext(Enum, 1, VarArr, lNumElements))) and

(lNumElements > 0) do

begin

if Succeeded(IDispatch(varArr).QueryInterface(SWBemProperty, SProp)) and

Assigned(SProp) then

begin

try

PropName := SProp.Name;

Prop := SProp.Get_Value;

// PropType := VarTypeAsText(VarType(Prop));

PropType := VarAsType(VarType(Prop),varString);

PropValue := VarToStr(Prop);

Form1.Memo1.Lines.Add(' + ' + PropName + '[' + PropType + '] = ' + PropValue);

except

on E: Exception do

begin

// WriteLn(ErrOutput, PropName, ': ', E.Message);

end;

procedure TForm1.Button1Click(Sender: TObject);

var

Server: string;

Enum: IEnumVARIANT;

varArr: OleVariant;

lNumElements: ULong;

AName: array[0..255] of Char;

ASize: DWORD;

begin

if (ParamCount = 0) then

begin

Server := '';

ASize := SizeOf(AName) - 1;

if GetComputerName(@AName, ASize) then Server := AName;

end

else

begin

Server := ParamStr(1);

end;

try

Memo1.Lines.BeginUpdate;

Enum := CoSWbemLocator.Create.ConnectServer(Server, 'rootcimv2', '',

'', '', '', 0, nil).ExecQuery('Select * from Win32_Process', 'WQL',

wbemFlagBidirectional, nil)._NewEnum as IEnumVariant;

while (Succeeded(ADsEnumerateNext(Enum, 1, varArr, lNumElements))) and

(lNumElements > 0) do

begin

DumpWMI_Process(IUnknown(varArr) as SWBemObject);

end;

finally

Memo1.Lines.EndUpdate;

end;

end.

Delphi - .....................................

WM ILE PROCESSLER HAKKINDA BILGI ALMA

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Memo1: TMemo;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses

ActiveX, WbemScripting_TLB;

{$R *.dfm}

function ADsEnumerateNext(pEnumVariant: IEnumVARIANT; cElements: ULONG;

var pvar: OleVARIANT; var pcElementsFetched: ULONG): HRESULT; safecall; external 'activeds.dll';

procedure DumpWMI_Process(Process: SWBemObject);

var

Enum: IEnumVARIANT;

varArr: OleVariant;

lNumElements: ULong;

SProp: ISWbemProperty;

Prop: OleVariant;

PropName: string;

PropType: string;

PropValue: string;

begin

PROP:=Process.Security_.

Form1.Memo1.Lines.Add('+ WMI Path: ' + Process.Path_.Path);

Form1.Memo1.Lines.Add('----: ' + Process. Path_.Locale);

Enum := Process.Properties_._NewEnum as IEnumVariant;

while (Succeeded(ADsEnumerateNext(Enum, 1, VarArr, lNumElements))) and

(lNumElements > 0) do

begin

if Succeeded(IDispatch(varArr).QueryInterface(SWBemProperty, SProp)) and

Assigned(SProp) then

begin

try

PropName := SProp.Name;

Prop := SProp.Get_Value;

// PropType := VarTypeAsText(VarType(Prop));

PropType := VarAsType(VarType(Prop),varString);

PropValue := VarToStr(Prop);

Form1.Memo1.Lines.Add(' + ' + PropName + '[' + PropType + '] = ' + PropValue);

except

on E: Exception do

begin

// WriteLn(ErrOutput, PropName, ': ', E.Message);

end;

procedure TForm1.Button1Click(Sender: TObject);

var

Server: string;

Enum: IEnumVARIANT;

varArr: OleVariant;

lNumElements: ULong;

AName: array[0..255] of Char;

ASize: DWORD;

begin

if (ParamCount = 0) then

begin

Server := '';

ASize := SizeOf(AName) - 1;

if GetComputerName(@AName, ASize) then Server := AName;

end

else

begin

Server := ParamStr(1);

end;

try

Memo1.Lines.BeginUpdate;

Enum := CoSWbemLocator.Create.ConnectServer(Server, 'rootcimv2', '',

'', '', '', 0, nil).ExecQuery('Select * from Win32_Process', 'WQL',

wbemFlagBidirectional, nil)._NewEnum as IEnumVariant;

while (Succeeded(ADsEnumerateNext(Enum, 1, varArr, lNumElements))) and

(lNumElements > 0) do

begin

DumpWMI_Process(IUnknown(varArr) as SWBemObject);

end;

finally

Memo1.Lines.EndUpdate;

end;

end.

Delphi - .....................................

WMI ILE PROGRAM CALISTIR (CREATE PROCESS)

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls,WbemScripting_TLB, OleServer, ActiveX;

type

TForm1 = class(TForm)

Button1: TButton;

Edit1: TEdit;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

SWbemLocator1: TSWbemLocator;

Service: ISWbemServices;

InParam, OutParam, SObject, Process: ISWbemObject;

Method: ISWbemMethod;

SProp1, SProp2, MyProperty: ISWbemProperty;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

PropValue: OleVariant;

begin

Service:= CoSWbemLocator.CREATE.ConnectServer(EDIT1.TEXT, 'rootcimv2', '', '', '', '', 0, nil);

// ??. ??????? 1

Service.Security_.Set_ImpersonationLevel(wbemImpersonationLevelImpersonate);

Process:= Service.Get('Win32_Process', 0, nil);

Method:= Process.Methods_.Item('Create', 0);

InParam:= Method.InParameters.SpawnInstance_(0);

MyProperty:= InParam.Properties_.Add('CommandLine', wbemCimtypeString, False, 0);

PropValue:= 'GPUPDATE /FORCE';

MyProperty.Set_Value(PropValue);

OutParam:= Process.ExecMethod_('Create', InParam, 0, nil);

SProp1:= outParam.Properties_.Item('ReturnValue', 0);

if SProp1.Get_Value = 0 then

begin

SProp2:= outParam.Properties_.Item('ProcessID', 0);

Button1.Enabled:= False;

sleep(300);

SetForegroundWindow(Form1.Handle);

end

else

MessageBox(0, PChar('?? ???? ?????? ???????.'), PChar(Form1.Caption), MB_OK);

end;

end.

procedure TForm1.Button4Click(Sender: TObject);

begin

end;

Delphi - .....................................

WMI ILE PROGRAM CALISTIR (CREATE PROCESS)

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls,WbemScripting_TLB, OleServer, ActiveX;

type

TForm1 = class(TForm)

Button1: TButton;

Edit1: TEdit;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

SWbemLocator1: TSWbemLocator;

Service: ISWbemServices;

InParam, OutParam, SObject, Process: ISWbemObject;

Method: ISWbemMethod;

SProp1, SProp2, MyProperty: ISWbemProperty;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

PropValue: OleVariant;

begin

Service:= CoSWbemLocator.CREATE.ConnectServer(EDIT1.TEXT, 'rootcimv2', '', '', '', '', 0, nil);

// ??. ??????? 1

Service.Security_.Set_ImpersonationLevel(wbemImpersonationLevelImpersonate);

Process:= Service.Get('Win32_Process', 0, nil);

Method:= Process.Methods_.Item('Create', 0);

InParam:= Method.InParameters.SpawnInstance_(0);

MyProperty:= InParam.Properties_.Add('CommandLine', wbemCimtypeString, False, 0);

PropValue:= 'GPUPDATE /FORCE';

MyProperty.Set_Value(PropValue);

OutParam:= Process.ExecMethod_('Create', InParam, 0, nil);

SProp1:= outParam.Properties_.Item('ReturnValue', 0);

if SProp1.Get_Value = 0 then

begin

SProp2:= outParam.Properties_.Item('ProcessID', 0);

Button1.Enabled:= False;

sleep(300);

SetForegroundWindow(Form1.Handle);

end

else

MessageBox(0, PChar('?? ???? ?????? ???????.'), PChar(Form1.Caption), MB_OK);

end;

end.

procedure TForm1.Button4Click(Sender: TObject);

begin

end;

Delphi - .....................................

WMI ILE REMOTE BILGISAYARDAKI PROCESS LISTESINI ALMA

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Memo1: TMemo;

Edit1: TEdit;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses

ActiveX, WbemScripting_TLB;

{$R *.dfm}

function ADsEnumerateNext(pEnumVariant: IEnumVARIANT; cElements: ULONG;

var pvar: OleVARIANT; var pcElementsFetched: ULONG): HRESULT; safecall; external 'activeds.dll';

procedure DumpWMI_Process(Process: SWBemObject);

var

Enum: IEnumVARIANT;

varArr: OleVariant;

lNumElements: ULong;

SProp: ISWbemProperty;

Prop: OleVariant;

PropName: string;

PropType: string;

PropValue: string;

begin

//Form1.Memo1.Lines.Add('+ WMI Path: ' + Process.Path_.Path);

Enum := Process.Properties_._NewEnum as IEnumVariant;

while (Succeeded(ADsEnumerateNext(Enum, 1, VarArr, lNumElements))) and

(lNumElements > 0) do

begin

if Succeeded(IDispatch(varArr).QueryInterface(SWBemProperty, SProp)) and

Assigned(SProp) then

begin

try

PropName := SProp.Name;

Prop := SProp.Get_Value;

// PropType := VarTypeAsText(VarType(Prop));

PropType := VarAsType(VarType(Prop),varString);

PropValue := VarToStr(Prop);

SProp.

IF PropName='Caption' THEN

Form1.Memo1.Lines.Add(PropValue+'---');

//Form1.Memo1.Lines.Add(' + ' + PropName + '[' + PropType + '] = ' + PropValue);

IF PropName='ExecutablePath' THEN

Form1.Memo1.Lines[Form1.Memo1.Lines.Count-1]:=Form1.Memo1.Lines[Form1.Memo1.Lines.Count-1]+' - ' +PropValue;

except

on E: Exception do

begin

// WriteLn(ErrOutput, PropName, ': ', E.Message);

end;

procedure TForm1.Button1Click(Sender: TObject);

var

Server: string;

Enum: IEnumVARIANT;

varArr: OleVariant;

lNumElements: ULong;

AName: array[0..255] of Char;

ASize: DWORD;

begin

if (ParamCount = 0) then

begin

Server := EDIT1.TEXT;

ASize := SizeOf(AName) - 1;

IF Server='' THEN

if GetComputerName(@AName, ASize) then Server := AName;

end

else

begin

Server := ParamStr(1);

end;

try

Memo1.Lines.BeginUpdate;

Enum := CoSWbemLocator.Create.ConnectServer(Server, 'rootcimv2', '',

'', '', '', 0, nil).ExecQuery('Select * from Win32_Process', 'WQL',

wbemFlagBidirectional, nil)._NewEnum as IEnumVariant;

while (Succeeded(ADsEnumerateNext(Enum, 1, varArr, lNumElements))) and

(lNumElements > 0) do

begin

DumpWMI_Process(IUnknown(varArr) as SWBemObject);

end;

finally

Memo1.Lines.EndUpdate;

end;

end.

Delphi - .....................................

WMI ILE REMOTE BILGISAYARDAKI PROCESS LISTESINI ALMA

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Memo1: TMemo;

Edit1: TEdit;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses

ActiveX, WbemScripting_TLB;

{$R *.dfm}

function ADsEnumerateNext(pEnumVariant: IEnumVARIANT; cElements: ULONG;

var pvar: OleVARIANT; var pcElementsFetched: ULONG): HRESULT; safecall; external 'activeds.dll';

procedure DumpWMI_Process(Process: SWBemObject);

var

Enum: IEnumVARIANT;

varArr: OleVariant;

lNumElements: ULong;

SProp: ISWbemProperty;

Prop: OleVariant;

PropName: string;

PropType: string;

PropValue: string;

begin

//Form1.Memo1.Lines.Add('+ WMI Path: ' + Process.Path_.Path);

Enum := Process.Properties_._NewEnum as IEnumVariant;

while (Succeeded(ADsEnumerateNext(Enum, 1, VarArr, lNumElements))) and

(lNumElements > 0) do

begin

if Succeeded(IDispatch(varArr).QueryInterface(SWBemProperty, SProp)) and

Assigned(SProp) then

begin

try

PropName := SProp.Name;

Prop := SProp.Get_Value;

// PropType := VarTypeAsText(VarType(Prop));

PropType := VarAsType(VarType(Prop),varString);

PropValue := VarToStr(Prop);

SProp.

IF PropName='Caption' THEN

Form1.Memo1.Lines.Add(PropValue+'---');

//Form1.Memo1.Lines.Add(' + ' + PropName + '[' + PropType + '] = ' + PropValue);

IF PropName='ExecutablePath' THEN

Form1.Memo1.Lines[Form1.Memo1.Lines.Count-1]:=Form1.Memo1.Lines[Form1.Memo1.Lines.Count-1]+' - ' +PropValue;

except

on E: Exception do

begin

// WriteLn(ErrOutput, PropName, ': ', E.Message);

end;

procedure TForm1.Button1Click(Sender: TObject);

var

Server: string;

Enum: IEnumVARIANT;

varArr: OleVariant;

lNumElements: ULong;

AName: array[0..255] of Char;

ASize: DWORD;

begin

if (ParamCount = 0) then

begin

Server := EDIT1.TEXT;

ASize := SizeOf(AName) - 1;

IF Server='' THEN

if GetComputerName(@AName, ASize) then Server := AName;

end

else

begin

Server := ParamStr(1);

end;

try

Memo1.Lines.BeginUpdate;

Enum := CoSWbemLocator.Create.ConnectServer(Server, 'rootcimv2', '',

'', '', '', 0, nil).ExecQuery('Select * from Win32_Process', 'WQL',

wbemFlagBidirectional, nil)._NewEnum as IEnumVariant;

while (Succeeded(ADsEnumerateNext(Enum, 1, varArr, lNumElements))) and

(lNumElements > 0) do

begin

DumpWMI_Process(IUnknown(varArr) as SWBemObject);

end;

finally

Memo1.Lines.EndUpdate;

end;

end.

Delphi - .....................................

WMI ILE REMOTE BILGISAYARDAKI PROCESS VE OWNER LISTESINI ALMA

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls,ActiveX, WbemScripting_TLB, Grids, Menus;

type

TForm1 = class(TForm)

StringGrid1: TStringGrid;

MainMenu1: TMainMenu;

XTDOSYASINAAT1: TMenuItem;

SaveDialog1: TSaveDialog;

Memo1: TMemo;

PopupMenu1: TPopupMenu;

PROCESSKAPAT1: TMenuItem;

YENLE1: TMenuItem;

procedure PROCESS_AL(IP_AL:STRING);

procedure FormCreate(Sender: TObject);

procedure XTDOSYASINAAT1Click(Sender: TObject);

procedure PROCESSKAPAT1Click(Sender: TObject);

procedure YENLE1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

IP:STRING;

Service: ISWbemServices;

Enum: IEnumVARIANT;

SAYDIR:INTEGER;

implementation

{$R *.dfm}

function ADsEnumerateNext(pEnumVariant: IEnumVARIANT; cElements: ULONG;

var pvar: OleVARIANT; var pcElementsFetched: ULONG): HRESULT; safecall; external 'activeds.dll';

procedure DumpWMI_Process(Process: SWBemObject);

var

Enum: IEnumVARIANT;

varArr: OleVariant;

lNumElements: ULong;

SProp: ISWbemProperty;

Prop: OleVariant;

PropName: string;

PropType: string;

PropValue: string;

SObject: ISWbemObject;

Method: ISWbemMethod;

OutParam: ISWbemObject;

SProp1: ISWbemProperty;

PropValue_1:OleVariant;

begin

SAYDIR:=SAYDIR+1;

Form1.StringGrid1.RowCount:=Form1.StringGrid1.RowCount+1;

Enum := Process.Properties_._NewEnum as IEnumVariant;

while (Succeeded(ADsEnumerateNext(Enum, 1, VarArr, lNumElements))) and

(lNumElements > 0) do

begin

if Succeeded(IDispatch(varArr).QueryInterface(SWBemProperty, SProp)) and

Assigned(SProp) then

begin

try

PropName := SProp.Name;

Prop := SProp.Get_Value;

PropType := VarAsType(VarType(Prop),varString);

PropValue := VarToStr(Prop);

IF PropName='Caption' THEN

Form1.StringGrid1.Cells[0,SAYDIR]:=PropValue;

IF PropName='Handle' THEN

Form1.StringGrid1.Cells[1,SAYDIR]:=PropValue;

IF PropName='ExecutablePath' THEN

Form1.StringGrid1.Cells[2,SAYDIR]:=PropValue;

IF PropName='Handle' THEN

BEGIN

SObject:=SERVICE.Get('Win32_Process.Handle="' + WideString(PropValue) + '"', 0, nil);

IF SObject<>NIL THEN

BEGIN

Method:= SOBject.Methods_.Item('GETOWNER', 0);

OutParam:= SObject.ExecMethod_('GETOWNER', outParam, 0, nil);

SProp1:= outParam.Properties_.Item('USER', 0);

PropValue_1:=SProp1.Get_Value;

Form1.StringGrid1.Cells[3,SAYDIR]:=VarToStr(PropValue_1);

END;

except

on E: Exception do

begin

end;

procedure TForm1.PROCESS_AL(IP_AL:STRING);

var

varArr: OleVariant;

lNumElements: ULong;

AName: array[0..255] of Char;

ASize: DWORD;

begin

SAYDIR:=0;

try

SERVICE := CoSWbemLocator.Create.ConnectServer(IP, 'rootcimv2', '','', '', '', 0, nil);

ENUM:=SERVICE.ExecQuery('Select * from Win32_Process', 'WQL',wbemFlagBidirectional, nil)._NewEnum as IEnumVariant;

while (Succeeded(ADsEnumerateNext(Enum, 1, varArr, lNumElements))) and

(lNumElements > 0) do

begin

DumpWMI_Process(IUnknown(varArr) as SWBemObject);

end;

finally

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

StringGrid1.Cells[0,0]:='PROCESS';

StringGrid1.Cells[1,0]:='PID';

StringGrid1.Cells[2,0]:='DOSYA YOLU';

StringGrid1.Cells[3,0]:='KULLANICI';

IF ParamCount>0 THEN

IP:=ParamStr(1)

ELSE

IP:='.';

StringGrid1.ColWidths[1]:=40;

PROCESS_AL(IP);

end;

procedure TForm1.XTDOSYASINAAT1Click(Sender: TObject);

var a:integer;

dosya:string;

begin

if SaveDialog1.Execute then

begin

memo1.lines.add(

StringGrid1.Cells[0,0]+CHR(09)+

StringGrid1.Cells[1,0]+CHR(09)+

StringGrid1.Cells[2,0]+CHR(09)+

StringGrid1.Cells[3,0]+CHR(09));

memo1.lines.add(stringofChar('-',200));

for a:=1 to StringGrid1.RowCount-1 do

begin

memo1.lines.add(

StringGrid1.Cells[0,a]+CHR(09)+

StringGrid1.Cells[1,a]+CHR(09)+

StringGrid1.Cells[2,a]+CHR(09)+

StringGrid1.Cells[3,a]+CHR(09));

end;

if copy(savedialog1.filename,length(savedialog1.filename)-3,4)<>'.txt' then

dosya:=savedialog1.filename+'.txt'

else dosya:=savedialog1.filename;

memo1.Lines.SaveToFile(dosya);

end;

procedure TForm1.PROCESSKAPAT1Click(Sender: TObject);

VAR A:INTEGER;

begin

IF StringGrid1.Cells[0,StringGrid1.Row]='' THEN EXIT;

IF StringGrid1.Cells[1,StringGrid1.Row]='' THEN EXIT;

IF IP='' THEN

WinExec(PCHAR('TASKKILL /PID '+ StringGrid1.Cells[1,StringGrid1.Row]),SW_SHOW);

IF IP<>'' THEN

WinExec(PCHAR('TASKKILL /S '+IP+' /PID '+ StringGrid1.Cells[1,StringGrid1.Row]),SW_SHOW);

FOR A:=1 TO StringGrid1.RowCount-1 DO

BEGIN

StringGrid1.Cells[0,A]:='';

StringGrid1.Cells[1,A]:='';

StringGrid1.Cells[2,A]:='';

StringGrid1.Cells[3,A]:='';

END;

Form1.StringGrid1.RowCount:=2;

PROCESS_AL(IP);

end;

procedure TForm1.YENLE1Click(Sender: TObject);

VAR A:INTEGER;

begin

FOR A:=1 TO StringGrid1.RowCount-1 DO

BEGIN

StringGrid1.Cells[0,A]:='';

StringGrid1.Cells[1,A]:='';

StringGrid1.Cells[2,A]:='';

StringGrid1.Cells[3,A]:='';

END;

StringGrid1.RowCount:=2;

PROCESS_AL(IP);

end;

end.

Delphi - .....................................

WMI ILE REMOTE BILGISAYARDAKI PROCESS VE OWNER LISTESINI ALMA

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls,ActiveX, WbemScripting_TLB, Grids, Menus;

type

TForm1 = class(TForm)

StringGrid1: TStringGrid;

MainMenu1: TMainMenu;

XTDOSYASINAAT1: TMenuItem;

SaveDialog1: TSaveDialog;

Memo1: TMemo;

PopupMenu1: TPopupMenu;

PROCESSKAPAT1: TMenuItem;

YENLE1: TMenuItem;

procedure PROCESS_AL(IP_AL:STRING);

procedure FormCreate(Sender: TObject);

procedure XTDOSYASINAAT1Click(Sender: TObject);

procedure PROCESSKAPAT1Click(Sender: TObject);

procedure YENLE1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

IP:STRING;

Service: ISWbemServices;

Enum: IEnumVARIANT;

SAYDIR:INTEGER;

implementation

{$R *.dfm}

function ADsEnumerateNext(pEnumVariant: IEnumVARIANT; cElements: ULONG;

var pvar: OleVARIANT; var pcElementsFetched: ULONG): HRESULT; safecall; external 'activeds.dll';

procedure DumpWMI_Process(Process: SWBemObject);

var

Enum: IEnumVARIANT;

varArr: OleVariant;

lNumElements: ULong;

SProp: ISWbemProperty;

Prop: OleVariant;

PropName: string;

PropType: string;

PropValue: string;

SObject: ISWbemObject;

Method: ISWbemMethod;

OutParam: ISWbemObject;

SProp1: ISWbemProperty;

PropValue_1:OleVariant;

begin

SAYDIR:=SAYDIR+1;

Form1.StringGrid1.RowCount:=Form1.StringGrid1.RowCount+1;

Enum := Process.Properties_._NewEnum as IEnumVariant;

while (Succeeded(ADsEnumerateNext(Enum, 1, VarArr, lNumElements))) and

(lNumElements > 0) do

begin

if Succeeded(IDispatch(varArr).QueryInterface(SWBemProperty, SProp)) and

Assigned(SProp) then

begin

try

PropName := SProp.Name;

Prop := SProp.Get_Value;

PropType := VarAsType(VarType(Prop),varString);

PropValue := VarToStr(Prop);

IF PropName='Caption' THEN

Form1.StringGrid1.Cells[0,SAYDIR]:=PropValue;

IF PropName='Handle' THEN

Form1.StringGrid1.Cells[1,SAYDIR]:=PropValue;

IF PropName='ExecutablePath' THEN

Form1.StringGrid1.Cells[2,SAYDIR]:=PropValue;

IF PropName='Handle' THEN

BEGIN

SObject:=SERVICE.Get('Win32_Process.Handle="' + WideString(PropValue) + '"', 0, nil);

IF SObject<>NIL THEN

BEGIN

Method:= SOBject.Methods_.Item('GETOWNER', 0);

OutParam:= SObject.ExecMethod_('GETOWNER', outParam, 0, nil);

SProp1:= outParam.Properties_.Item('USER', 0);

PropValue_1:=SProp1.Get_Value;

Form1.StringGrid1.Cells[3,SAYDIR]:=VarToStr(PropValue_1);

END;

except

on E: Exception do

begin

end;

procedure TForm1.PROCESS_AL(IP_AL:STRING);

var

varArr: OleVariant;

lNumElements: ULong;

AName: array[0..255] of Char;

ASize: DWORD;

begin

SAYDIR:=0;

try

SERVICE := CoSWbemLocator.Create.ConnectServer(IP, 'rootcimv2', '','', '', '', 0, nil);

ENUM:=SERVICE.ExecQuery('Select * from Win32_Process', 'WQL',wbemFlagBidirectional, nil)._NewEnum as IEnumVariant;

while (Succeeded(ADsEnumerateNext(Enum, 1, varArr, lNumElements))) and

(lNumElements > 0) do

begin

DumpWMI_Process(IUnknown(varArr) as SWBemObject);

end;

finally

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

StringGrid1.Cells[0,0]:='PROCESS';

StringGrid1.Cells[1,0]:='PID';

StringGrid1.Cells[2,0]:='DOSYA YOLU';

StringGrid1.Cells[3,0]:='KULLANICI';

IF ParamCount>0 THEN

IP:=ParamStr(1)

ELSE

IP:='.';

StringGrid1.ColWidths[1]:=40;

PROCESS_AL(IP);

end;

procedure TForm1.XTDOSYASINAAT1Click(Sender: TObject);

var a:integer;

dosya:string;

begin

if SaveDialog1.Execute then

begin

memo1.lines.add(

StringGrid1.Cells[0,0]+CHR(09)+

StringGrid1.Cells[1,0]+CHR(09)+

StringGrid1.Cells[2,0]+CHR(09)+

StringGrid1.Cells[3,0]+CHR(09));

memo1.lines.add(stringofChar('-',200));

for a:=1 to StringGrid1.RowCount-1 do

begin

memo1.lines.add(

StringGrid1.Cells[0,a]+CHR(09)+

StringGrid1.Cells[1,a]+CHR(09)+

StringGrid1.Cells[2,a]+CHR(09)+

StringGrid1.Cells[3,a]+CHR(09));

end;

if copy(savedialog1.filename,length(savedialog1.filename)-3,4)<>'.txt' then

dosya:=savedialog1.filename+'.txt'

else dosya:=savedialog1.filename;

memo1.Lines.SaveToFile(dosya);

end;

procedure TForm1.PROCESSKAPAT1Click(Sender: TObject);

VAR A:INTEGER;

begin

IF StringGrid1.Cells[0,StringGrid1.Row]='' THEN EXIT;

IF StringGrid1.Cells[1,StringGrid1.Row]='' THEN EXIT;

IF IP='' THEN

WinExec(PCHAR('TASKKILL /PID '+ StringGrid1.Cells[1,StringGrid1.Row]),SW_SHOW);

IF IP<>'' THEN

WinExec(PCHAR('TASKKILL /S '+IP+' /PID '+ StringGrid1.Cells[1,StringGrid1.Row]),SW_SHOW);

FOR A:=1 TO StringGrid1.RowCount-1 DO

BEGIN

StringGrid1.Cells[0,A]:='';

StringGrid1.Cells[1,A]:='';

StringGrid1.Cells[2,A]:='';

StringGrid1.Cells[3,A]:='';

END;

Form1.StringGrid1.RowCount:=2;

PROCESS_AL(IP);

end;

procedure TForm1.YENLE1Click(Sender: TObject);

VAR A:INTEGER;

begin

FOR A:=1 TO StringGrid1.RowCount-1 DO

BEGIN

StringGrid1.Cells[0,A]:='';

StringGrid1.Cells[1,A]:='';

StringGrid1.Cells[2,A]:='';

StringGrid1.Cells[3,A]:='';

END;

StringGrid1.RowCount:=2;

PROCESS_AL(IP);

end;

end.

Delphi - .....................................