Задать вопрос
  • Может ли системный администратор?

    DikSoft
    @DikSoft
    Начинал с командной строки MSDOS 3.30 )
    Если используется System Center Configuration Manager, то там даже отчёт есть готовый. Аналитика активов - Оборудование 10А.
    Ответ написан
    Комментировать
  • Каким образом можно проапгрейдить свою Win 8 CoreSingleLanguage до Pro версии?

    DikSoft
    @DikSoft
    Начинал с командной строки MSDOS 3.30 )
    Если речь про InplaceUpgrade (обновление на месте без переустановки), то есть простой вариант :
    В реестре меняете редакцию и имя продукта на нужные:
    Windows Registry Editor Version 5.00
    
    [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion]
    "EditionID"="Professional"
    "ProductName"="Windows 8.0 Professional"

    - 8.0 или 8.1 зависит от того, что сейчас стоит на компьютере.
    Запускаете установку с дистрибутива нужной редакции, выбираете обновление с сохранением программ и данных.
    Не сработает:
    8.1 --> 8.0,
    x86 --> x64 , x64 --> x86

    На выходе получаете не активированную систему, все обновления нужно установить снова. Вариант не является поддерживаемым официально.

    Не лишней после обновления будет процедура очистки диска, а потом проверки образа.
    Описание процедуры: technet.microsoft.com/ru-ru/library/hh824869.aspx
    Ответ написан
    Комментировать
  • Обновление до 2012R2 c 2012 без потери данных

    DikSoft
    @DikSoft
    Начинал с командной строки MSDOS 3.30 )
    1) Всё, что завязано на IIS потребует настройки.
    2) Могут "потеряться" модули PowerShell для удаленного управления Exchnage/Lync/...
    3) IIS WinRM потребует переустановки.
    Ответ написан
    Комментировать
  • Есть ли программа для пакетной обработки изображений, которая сможет сделать из прямоугольной фотки квадратную и отцентрует?

    DikSoft
    @DikSoft
    Начинал с командной строки MSDOS 3.30 )
    Lazarus (www.lazarus.freepascal.org/index.php) в руки, итоговую картинку на форму, брать исходную, обрабатывать этой вот процедурой. Смысл, думаю, понятен. Если нужно - могу выложить все исходники.
    Procedure TForm1.StretchFine(inPicture: TPicture; OutImage: TImage);
    Var A, B, X, Y, X1, Y1, DX, DY: integer;
      r1, r2            : real;
      StretchFineImage  : TImage;
    Begin
      A := OutImage.width;
      B := OutImage.height;
      StretchFineImage := TImage.Create(Nil);
      StretchFineImage.width := a;
      StretchFineImage.height := b;
      StretchFineImage.left := 0;
      StretchFineImage.Top := 0;
      X := InPicture.width;
      Y := InPicture.height;
    
      R1 := X / Y;                          //соотношение в исходной картинке
      R2 := A / B;                          //   --       в итоговой картинке
    
      If r1 > r2 Then Begin
        x1 := A;
        y1 := trunc(A / X * Y);
      End Else Begin
        x1 := trunc(B / Y * X);
        y1 := b;
      End;
      Dx := trunc((a - x1) / 2);
      Dy := trunc((b - y1) / 2);
      StretchFineImage.Canvas.Brush.Color := clWhite;
      StretchFineImage.Canvas.FillRect(rect(0, 0, a, b));
      StretchFineImage.Canvas.StretchDraw(rect(Dx, Dy, a - Dx, b - Dy), InPicture.Graphic);
    
      OutImage.Picture := StretchFineImage.Picture;
      StretchFineImage.Free;
      StretchFineImage := Nil;
    End;
    Ответ написан
    Комментировать