[insombia]

ну придется почти всю страницу переписывать, и потом уже двигать текст, пример из старого скрипта злого деда вот : читать дальше » »

Жаль не пашет только текст весь стал корявый

[Imitri7]

insombia, скинь скрин, можт я подскажу че сделать чтоб все пучком было )

[insombia]

Imitri7 вот именно что скрипта у меня нету я хочу сделать что-то похожее

[El Sanchez]

помнишь мы говорили про appmutex, можно ли сделать так, чтобы на деинсталлятор правило не действовало, например если у меня ошибка распаковки вызывается деинсталлятор, и выдаётся сообщение "вы уже запустили одну копию этой программы" »

Rikill, не совсем понял, что требуется. При ошибке распаковки на этапе установки и так выводится соответствующее сообщение и производится откат.

как получить информацию о всех сетевых интерфейсах установленных на локальном ПК? »

Gugle, может какую конкретную инфу, типа MAC, IP, название? Всех - это с минипортами, ассинхронными адаптерами и т.д.?

[Gugle]

El Sanchez, мне нужны MAC, IP, Description всех ethernet адаптеров установленных на ПК.

Пока, все что нашел это работа с "cmd.exe", через команду "ipconfig /all". Оттуда, конечно, можно вытащить информацию, но я предполагаю, что это можно сделать более изящно, чем парсить вывод cmd.exe.

[El Sanchez]

Gugle, добавил MAC в этот код, еще и ошибку исправил:

скрипт

Код:

[code]
type
  IP_ADDR_INFO = array of record
  Description: String;
  IPv4: String;
  IPv6: String;
  MAC: String;
end;

function GetLocalIP(var IPAddrInfo: IP_ADDR_INFO): Boolean;
var
  objSWbemLocator, objSWbemServices, objSWbemObjectSet, objRegExp, objRegExpMatches: Variant;
  IndexCount, i: Byte;
  strBuf, ptrnIPv4, ptrnIPv6: String;
begin
  try
    objSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator');
    objRegExp := CreateOleObject('VBScript.RegExp');
  except
    ShowExceptionMessage;
    Exit;
  end;
  ptrnIPv4 := '(\d{1,3}[.]){3}\d{1,3}'; //IPv4 regexp
  ptrnIPv6 := //IPv6 regexp
    '(([0-9a-fA-F]{1,4}:){1,1}(:[0-9a-fA-F]{1,4}){1,6})|(([0-9a-fA-F]{1,4}:){1,2}(:[0-9a-fA-F]{1,4}){1,5})|' +
    '(([0-9a-fA-F]{1,4}:){1,3}(:[0-9a-fA-F]{1,4}){1,4})|//(([0-9a-fA-F]{1,4}:){1,4}(:[0-9a-fA-F]{1,4}){1,3})|' +
    '(([0-9a-fA-F]{1,4}:){1,5}(:[0-9a-fA-F]{1,4}){1,2})|(([0-9a-fA-F]{1,4}:){1,6}(:[0-9a-fA-F]{1,4}){1,1})|' +
    '((([0-9a-fA-F]{1,4}:){1,7}|:):)|(:(:[0-9a-fA-F]{1,4}){1,7})|(((([0-9a-fA-F]{1,4}:){6})(25[0-5]|2[0-4]\d|[0-1]?\d?\d)(\.(25[0-5]|2[0-4]\d|[0-1]?\d?\d)){3}))|' +
    '((([0-9a-fA-F]{1,4}:){5}[0-9a-fA-F]{1,4}:(25[0-5]|2[0-4]\d|[0-1]?\d?\d)(\.(25[0-5]|2[0-4]\d|[0-1]?\d?\d)){3}))|' +
    '(([0-9a-fA-F]{1,4}:){5}:[0-9a-fA-F]{1,4}:(25[0-5]|2[0-4]\d|[0-1]?\d?\d)(\.(25[0-5]|2[0-4]\d|[0-1]?\d?\d)){3})|' +
    '(([0-9a-fA-F]{1,4}:){1,1}(:[0-9a-fA-F]{1,4}){1,4}:(25[0-5]|2[0-4]\d|[0-1]?\d?\d)(\.(25[0-5]|2[0-4]\d|[0-1]?\d?\d)){3})|' +
    '(([0-9a-fA-F]{1,4}:){1,2}(:[0-9a-fA-F]{1,4}){1,3}:(25[0-5]|2[0-4]\d|[0-1]?\d?\d)(\.(25[0-5]|2[0-4]\d|[0-1]?\d?\d)){3})|' +
    '(([0-9a-fA-F]{1,4}:){1,3}(:[0-9a-fA-F]{1,4}){1,2}:(25[0-5]|2[0-4]\d|[0-1]?\d?\d)(\.(25[0-5]|2[0-4]\d|[0-1]?\d?\d)){3})';

  objSWbemServices := objSWbemLocator.ConnectServer();
  objSWbemServices.Security_.ImpersonationLevel := 3;
  IndexCount := objSWbemServices.ExecQuery('SELECT * FROM Win32_NetworkAdapterConfiguration').Count;
  objSWbemObjectSet := objSWbemServices.ExecQuery('SELECT Description,IPAddress,MACAddress FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=TRUE');

  for i := 1 to IndexCount do
  try
    SetArrayLength(IPAddrInfo, GetArrayLength(IPAddrInfo)+1);
    strBuf := objSWbemObjectSet.Item('Win32_NetworkAdapterConfiguration.Index=' + IntToStr(i)).GetObjectText_;
    IPAddrInfo[GetArrayLength(IPAddrInfo)-1].Description := objSWbemObjectSet.Item('Win32_NetworkAdapterConfiguration.Index=' + IntToStr(i)).Properties_.Item('Description').Value;
    objRegExp.Pattern := ptrnIPv4;
    if objRegExp.Test(strBuf) then
    begin
      objRegExpMatches := objRegExp.Execute(strBuf);
      IPAddrInfo[GetArrayLength(IPAddrInfo)-1].IPv4 := objRegExpMatches.Item[0].Value;
    end;
    objRegExp.Pattern := ptrnIPv6;
    if objRegExp.Test(strBuf) then
    begin
      objRegExpMatches := objRegExp.Execute(strBuf);
      IPAddrInfo[GetArrayLength(IPAddrInfo)-1].IPv6 := objRegExpMatches.Item[0].Value;
    end;
    IPAddrInfo[GetArrayLength(IPAddrInfo)-1].MAC := objSWbemObjectSet.Item('Win32_NetworkAdapterConfiguration.Index=' + IntToStr(i)).Properties_.Item('MACAddress').Value;
  except
    GetExceptionMessage;
    SetArrayLength(IPAddrInfo, GetArrayLength(IPAddrInfo)-1);
  end;
  Result := (GetArrayLength(IPAddrInfo) > 0);
end;

procedure InitializeWizard();
var
  i: Byte;
  arr: IP_ADDR_INFO;
begin
  if GetLocalIP(arr) then for i := 0 to GetArrayLength(arr)-1 do
  MsgBox(
    'Description: ' + arr[i].Description + #13#10 +
    'IPv4: ' + arr[i].IPv4 + #13#10 +
    'IPv6: ' + arr[i].IPv6 + #13#10 +
    'MAC: ' + arr[i].MAC, mbInformation, MB_OK);
end;

[Gugle]

El Sanchez, спасибо. Пошел разбиться со скриптом.

Появились вопросы:
1. На строке:

Код:

strBuf := objSWbemObjectSet.Item('Win32_NetworkAdapterConfiguration.Index=' + IntToStr(i)).GetObjectText_;

Вываливается с ошибкой:
SWbemObjectSet: Не найден.

читать дальше »

2. Где и/или как можно посмотреть весь список столбцов ... (что такое ту мы используем?) для формирования своего запроса типа:

Код:

objSWbemObjectSet := objSWbemServices.ExecQuery('SELECT Description,IPAddress,MACAddress FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=TRUE');

Все понятно откуда это! Пояснять не надо. )))



3. А можно еще и DeviceID вытащить?
Начал поиск, но если знаешь название в скрипте, то напиши плз. Я пока очень медленно в этом разбираюсь.

[Rikill]

El Sanchez, отката не происходит, ибо выводится сообщение что уже запущен один вариант установки из-за AppMutex нужно сделать исключение для деинсталлятора, чтобы можно было запустить setup.exe один раз, но чтобы можно было вместе запускать setup.exe/unins000.exe

[Imitri7]

insombia, не так уж и сложно сделать такой инстал, есть примеры даже, просто переделывай под себя)

[R.i.m.s.k.y.]

dotnetfx3_x86, vcredist_x86, xliveredist - сердцем этих установщиков является msi-документ, а значит используем возможности API системы, а именно функцию MsiQueryProductState. »

подскажи, пожалуйста, GUID framework 3.5 и vcredist 2008 x86
а что за Orca такая?