如何查询远程机器是否包含某个文件夹(DELPHI)

最近接到用户的一个需求：查询给出计算机清单内这些计算机是否包含某个文件夹。当查询时，要对用户透明。说白了就是远程查询。想了想就用WMI来做，下面是相应的代码，为了简单，用了第三方控件

unit DirectoryCheck;

interface

uses

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

  Dialogs, WinSkinStore, WinSkinData, ComCtrls, StdCtrls, cxControls,

  cxContainer, cxEdit, cxTextEdit, cxMaskEdit, Mask, RzEdit, DB,

  WmiConnection, WmiDataSet, IdBaseComponent, IdComponent, IdRawBase,

  IdRawClient, IdIcmpClient,ComObj;

type

  TForm1 = class(TForm)

    SkinData1: TSkinData;

    Label1: TLabel;

    Edit1: TEdit;

    Label2: TLabel;

    RzMaskEdit1: TRzMaskEdit;

    Button1: TButton;

    WmiQuery1: TWmiQuery;

    WmiConnection1: TWmiConnection;

    IdIcmpClient1: TIdIcmpClient;

    Label4: TLabel;

    Edit3: TEdit;

    Function PingResult(HostName:String):String;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

Function Tform1.PingResult(HostName:String):String;

Begin

IdIcmpClient1.Host:=HostName;

Try

  IdIcmpClient1.Ping;

   if (IdIcmpClient1.replyStatus.BytesReceived=0) or (IdIcmpClient1.ReplyStatus.TimeToLive=0) then

           begin

            Result:='该机器不存在或不在线或防火墙开着';

            end else

              begin

                 Result:='该机器存在';

              end

     Except

       Result:='该机器不存在';

     end;

end;

procedure TForm1.Button1Click(Sender: TObject);

var account,pwd,path,Hostname,directoryname,SQLstring,addvalue:string;

    introw,i,k:Integer;

    ExcelApp:Variant;

begin

//directoryname:='%'+StringReplace(Trim(EDIT2.Text),'\','\\',[rfReplaceAll]);

//directoryname:='%'+Trim(Edit2.Text);

directoryname:='%'+'Crack';

path:=Trim(edit3.Text);

account:=Trim(edit1.Text);

pwd:=Trim(RzMaskEdit1.Text);

Introw:=2;

ExcelApp:=CreateoleObject('Excel.Application');

ExcelApp.Visible:=True;

ExcelApp.Workbooks.Open(Path);

ExcelApp.Worksheets[1].Activate;

ExcelApp.ActiveSheet.Rows[1].Font.Bold := True;

Excelapp.activeSheet.Columns[2].ColumnWidth:=34;

Excelapp.activeSheet.Columns[3].ColumnWidth:=70;

ExcelApp.cells[1,1].value:='Host Name';

ExcelApp.cells[1,2].value:='Ping 的状态';

ExcelApp.cells[1,3].value:='检测结果';

ExcelApp.cells[1,4].value:='Comments';

//ExcelApp.cells[1,3].value:=null;

While not (ExcelApp.Cells[introw,1].value ='')   do

  begin

  ExcelApp.cells[introw,2].value:=form1.PingResult(ExcelApp.cells[introw,1].value);

  if ExcelApp.cells[introw,2].value ='该机器存在' then

      begin

      Hostname:=Excelapp.cells[introw,1].value;

      SQLstring:='select * from Win32_Directory where name like '+''''+directoryname+'''';

      Wmiconnection1.Credentials.UserName:=account;

      Wmiconnection1.Credentials.Password:=pwd;

      wmiconnection1.MachineName:=Hostname;

      try

      wmiconnection1.connected:=true;

      wmiquery1.WQL.Clear;

      wmiquery1.WQL.Add(SQLstring);

      wmiquery1.Active:=true;

      Wmiquery1.Open;

      k:=0;

      if wmiquery1.RecordCount>0 then

         begin

         wmiquery1.First;

          // k:=0;

          for i:=k to wmiquery1.RecordCount-1 do

                begin

                 addvalue:=wmiquery1.FieldByName('Name').Value;

                 if k<1 then

                  begin

                   Excelapp.cells[introw,3].value:=addvalue+Chr(10);

                   wmiquery1.Next;

                  end else

                  begin

                  Excelapp.cells[introw,3].value:=Excelapp.cells[introw,3].value+addvalue+Chr(10);

                  wmiquery1.Next;

                  end;

                  k:=k+1;

               end;

           introw:=introw+1;

         end else

         begin

          Excelapp.cells[introw,3].value:='没有这个目录';

          introw:=introw+1;

         end;

      wmiquery1.Close;

      except

       ExcelApp.cells[introw,4].value:='相应端口无法打开';

       introw:=introw+1;

      end;

      end else

      introw:=introw+1;

   end;

 ExcelApp.ActiveWorkbook.Save;

 ExcelApp.WorkBooks.Close;

 ExcelApp.Quit;

 Excelapp:=unassigned;

 Showmessage('完成检查');

  end;

end.