Перезапуск АДСЛ модема

uses
  SysUtils, windows, setupapi;

procedure RestartADSL(gd: TGUID);
var
  pcp: TSPPropChangeParams;
  DevInfo: HDEVINFO;
  DevInfoData: SP_DEVINFO_DATA;
  DataT, buffersize: DWORD;
  buffer, DevDescr:array[0..499]of char;
  i: Integer;
begin
    pcp.ClassInstallHeader.cbSize:= sizeof(SP_CLASSINSTALL_HEADER);
    pcp.ClassInstallHeader.InstallFunction:= DIF_PROPERTYCHANGE;
    pcp.Scope:= DICS_FLAG_CONFIGSPECIFIC;
    pcp.StateChange:= DICS_PROPCHANGE;
    pcp.HwProfile:= 0;

    DevInfo:= SetupDiGetClassDevs(@gd, 0, 0, 0);
    DevInfoData.cbSize := sizeof(SP_DEVINFO_DATA);
    buffersize:= 500;
    i:= 0;
    while(SetupDiEnumDeviceInfo(DevInfo, i, DevInfoData)) do
    begin
        SetupDiGetDeviceRegistryProperty(DevInfo, DevInfoData, SPDRP_ENUMERATOR_NAME, @DataT, @buffer, buffersize, @buffersize);
        if pos('SW',string(buffer))<>0 then
        begin
            SetupDiSetClassInstallParams(DevInfo, @DevInfoData, @pcp.ClassInstallHeader, sizeof(pcp));
            SetupDiCallClassInstaller(DIF_PROPERTYCHANGE, DevInfo, @DevInfoData);
        end;
        inc(i);
    end;
end;

var
  numGuids, reqGuids: DWORD;
  guids:array[0..15]of TGUID;
  i:word;
begin
    reqGuids:=16;
    numGuids:=0;
    SetupDiClassGuidsFromName('Net', @guids, reqGuids, numGuids);
    if numGuids<>0 then
      for i:= 0 to  numGuids-1 do
        RestartADSL(guids);
    MessageBox(0,'','',0);
end.