Dishonored #5 - Voices

Любопытные факты обнаруживаются, пока шерстишь страницы Сети.
1. Персонаж Каллиста Карноу. Актер озвучки - Лена Хиди. Чем знаменита на текущий момент - думаю, пояснять не надо.
2. Объявления по местным громкоговорителям - Кэрри Фишер. В представлении также не нуждается.
3. Принцесса Эмили Колдуин - Хлоя Грейс Морец. Черт побери, не узнал Убивашку
4. Самое любопытное, но это уже ко второй части. Собственно Корво Аттано, который все же обрел голос в Dishonored 2 - Стивен Рассел. "Обесчещенного" многие называли идейным наследником старого доброго Thief. Теперь для этого есть еще один повод, ибо именно Стивен подарил свой голос Гаррету в первых трех частях Ворюги

@настроение:

---

Poets of the Fall - переоценка

Один-единственный трек этого коллектива у меня уже достаточно давно лежит, с тех времен больше не приглянулось вообще ничего. Maybe tomorrow is a better day. Кто не знает, вот он:

Один из тех немногих, что вызывают вполне себе оформившуюся геометрическую ассоциацию, хотя и не настолько сильную, нежели Gandalf - Echoes from the Ancient Dreams pt.1. Впрочем, некорректно, Echoes... давно и прочно по многим параметрам вне конкуренции и вне всяких хит-парадов или оценок. Равно как и вне плейлистов.

По соседству увидел небольшое обсуждение творчества этих ребят, а поскольку на работе нынче делать особо нечего - почему бы и не освежить в памяти мат.часть. Яндекс.Музыка, поиск, все найденное в плейлист и на отбор.

Что тут скажешь, улов небольшой. В сухом остатке 4 композиции, считая уже упомянутую Maybe tomorrow is a better day. Добавились Clear Blue Sky, Overboard, Dying to Live. С другой стороны, они прописались на автоповтор в плеере еще вчера, и так до сих пор там и крутятся. А это говорит уже о многом. Любопытнее всего получилось с Синим Небом. Сначала ее не понял, но осталось смутное ощущение, что она до боли что-то напоминает. А потом в голове всплыла мысль о 99-й трассе, и, вот оно! Трек из того же разряда, что и нежно любимая Joe Satriani - Speed of Light. Не по темпу, не по тексту - "Скорость света" вообще инструменталка, чем и ценна. Скорее, по настроению. "Когда ты едешь по 99-й, хочешь только одного - чтобы она никогда не кончалась". Педаль в пол и вперед!

Одно плохо - грызть под эту музыку The Corroded Man не получается от слова совсем Нужно искать что-то другое.

@музыка: Poets of the Fall - Clear Blue Sky

@темы: Music

---

Dishonored #4 - Screens

По традиции - пачка скринов из завершенной игры. Тем временем, до выхода второй части осталось всего ничего - неделя.

Заглянуть в Дануолл

Аристократ в "увеселительном заведении". Предупреждаю, публичные дома Дануолла - опасное место, там убийцы бродят


Говорят, что зеленый цвет оказывает успокаивающее действие на глаза и вообще полезен. Но что-то мне кажется, что просыпаться вот в таком окружении - не самое лучшее, что может приключиться. Хотя - на вкус и цвет.


Чей журнал? Какая игра? (с)


Нууу... опять же, на вкус и цвет. Не оценил, увы. Куда нам, простым людям, до таких ценителей, как вы, уважаемый Соколов.


А Корво еще тот тролль. За ним охотится весь город, если не весь остров. Как никак - обвинен в убийстве императрицы. А он спокойно в местной гостевухе расписывается. С другой стороны - а почему нет? Сколько-нибудь равных противников на этом балу для него все равно нет. Даже толпой не возьмут, с его-то способностями.


Желе. Вот это я понимаю - размерчик


Да ну?


Еще одно желе. Даже побольше предыдущего. "Где моя большая ложка?" (с)


Этому форту многие современные крепости позавидуют. Напоминаю для упустивших сей момент - викторианская Британия, все дела


Нет, с этих двух дуэлянтов я решительно ржал. Наверняка ржал и сам Корво, когда это читал.


Это уже из DLC. Творчество Далилы. Надо сказать - по-своему она писала весьма любопытные картины. Жаль только, что результат этого творчества плачевен.


Прости, чувак, но туалет уже был битком забит твоими товарищами по караулу. Так что оставлю тебя в ванной. Дверь, так и быть, прикрою


Мда, тыл у одной, а темперамент у другой барышни. Одно плохо, всех трех сестер Бойл (а Соколов говорил как раз об одной из них) создатели игры наделили одинаковыми фигурами.


Игровые движки иногда выдают поистене потрясающие вещи. Вот этого шляпника (нет, не того самого) после усыпления дротиком, например, вот - раком положило. Впрочем, на этом скрине еще плохо видно. Его собрата по банде уложило еще круче, но заскринить не удалось. Неудачно прыгнул и упал прямо на тело, сдвинув его с места.

@музыка: Genesis - Driving the last spike

@темы: Этот веселый мир, In-game

---

Diablo 3 - Boss Mode

Пусть лежит расстрельный списочек, чтоб не потерять, если еще когда пригодится:

Малтаил
Урзаил
Адрия
Хвостатый
Холодильник
Мясо
Арана
Животное
Цидея
Хомяк
Леорик
Азмо
Раканот
Белка
Магда
Кулл

Если бить их именно в таком порядке - ДХ соло может уложиться в 20 минут. Порок + Данетта, 460 парагон. Проверено лично.

@музыка: E-Mantra - Veiled Clouds

@темы: In-game

---

Вау!

Хотеть! Срочно хотеть!

@музыка: Genesis - Driving the last spike

---

Random thoughts

До Нового Года остались какие-то жалкие два месяца. И основная проблема в том, что даже этот праздник для меня потихоньку "испаряется". Равно как и все остальные. А всему виной рабочий график. Не, я знал, на что шел, когда устраивался на такую работу. Но от наблюдений это не спасает. Да-да, всяких там 23 февраля, 8 марта, первых-вторых майских, чего там еще, для меня уже третий год, как не существует. Дошла очередь и до НГ, эту новогоднюю ночь выпало дежурить именно мне.
Пока еще не знаю, чем займусь в свободное от работы время. Скорее всего так же, как и всегда, обложусь либо книгами, либо сериалами, либо музыкой. Одно лишь знаю точно, никакого Powershell'а. Пусть хотя бы в одну ночь он отдохнет от меня, а я - от него.

Впрочем, все фигня, мозги сейчас больше занимает другая мысль. Предупреждаю - она странная, очень странная (в ночных сменах большинство мыслей таковы, что уж поделать).

Читать дальше на свой страх и риск, завесив курсор мыши на ссылке "Отписаться"

Врачи. А если точнее - их обязанности и права по отношению к пациенту, и влияние этой этих самых прав и обязанностей на общество в целом. Данный вопрос поднимался неоднократно, но читать не доводилось. Буду благодарен за ссылки.

Тезисно клубок проблем можно выразить следующим образом: алкашка, наркота, неизлечимые заболевания и довлеющая над всем этим клятва Гиппократа (в нынешнее время "Клятва врача Российской Федерации - в РФ же живем). А теперь со связями.

Для начала - матчасть: Вики, Консультант+.

Наркота. У меня глубоко в памяти сидит история, рассказанная на Лурке в свое время - стайка нариков перед тем, как ширнуться чем-то непонятным, звонит в неотложку и говорит: "Але, мы тут вмазаться хотим, но есть шанс откинуться, так что выезжайте". Врач обязан отреагировать на вызов. Равно как и обязан оказать помощь тому самому нарику, если он вдруг, действительно, словил "не тот кайф". Принцип оказания помощи всем. С другой стороны, поневоле задумываешься: а смысл? Человек сознательно хочет себя угробить, зная, что ничего хорошего в веществе нет. И более того, сам факт существования этого торчка изрядно портит жизнь окружающих его людей (чаще всего).

Бухло. Где-то рядом с наркотой, но есть куча нюансов. Бухло бывает и некачественным, а отличить одно от другого иногда удается уже только пост-фактум, лежа в палате. Так что там хочешь, не хочешь, а придется выхаживать бедолагу. Хотя мое мнение остается прежним (и что бы там ни говорили про пользу бокала вина в день): алкоголь - зло, в любом количестве.

Вот и приходишь к мысли. Наше общество относится к "веществам" в целом негативно, к бухлу - кто как. Но я больше сейчас все же про торчков. Может ли оказывать на ситуацию с наркоманией по стране тот факт, что торчок знает, что в случае чего - к нему приедут и окажут помощь? Да, потом таки придется пообщаться и с людьми в форме, но главное - жизнь спасут. А значит, потом можно будет вмазаться снова. И какой оказалась бы жизнь общества, если бы у врачей была установка: "Торчок? В топку. Сам в могилу лезет, мешать не будем.". Понятное дело, что в эту область действия не попадают те, кто уже опустился до трущоб, где ни связи, ничего, где человек предоставлен сам себе.

Неизлечимые болезни и эвтаназия vs Клятва. По этому поводу копий ломалось много и ломаются по сию пору. Меня больше всего интересуют следующие положения (см. Клятву врача РФ):

быть всегда готовым оказать медицинскую помощь, хранить врачебную тайну, внимательно и заботливо относиться к пациенту, действовать исключительно в его интересах независимо от пола, расы, национальности, языка, происхождения, имущественного и должностного положения, места жительства, отношения к религии, убеждений, принадлежности к общественным объединениям, а также других обстоятельств
...
проявлять высочайшее уважение к жизни человека, никогда не прибегать к осуществлению эвтаназии

Еще раз - действовать в интересах пациента и никогда не прибегать к осуществлению эвтаназии. Как по мне - в случае, если пациент с неизлечимым заболеванием, доставляющим ему известные страдания, решает с ними покончить, мы имеем два конфликтующих положения. А конфликты нужно устранять, так или иначе, они ни к чему хорошему никогда не приводили. Другое дело, что нужно еще как-то научиться определять, действительно ли пациент сам по собственной воле, с полным осознанием происходящего, хочет умереть, или его подталкивают к подобному решению. Но это уже следующая стадия разрешения конфликта. А пока мы застопорились на принципиальном решении - можно (а в некоторых случаях даже нужно) или нет.

Как-то так. Я предупреждал, мысль очень странная. Если что, кнопка "Отписаться" рядом

@музыка: Genesis - Driving the last spike

@настроение: Ночная смена, что ты творишь, прекрати уже...

@темы: Random Thoughts

---

Powershell - Printer Policy Complete

Сделано. Решение "влоб" отменяется. MS XML оказался намного проще, чем я полагал все это время.
На вход - csv c полем Name (в нашем случае - ищется файл printers.csv в папке Документов текущего пользователя), где будут перечислены отображаемые имена принтеров. На выходе - заполненные политики по разливке этих принтеров пользователям на основе групп доступа. Принтеры будут расставляться членам групп с именами, равными названиям принтеров.
Политик две. Предполагается, что принтеры на первой площадке попадают в политику Map-Printers-01 и крутятся на принт-сервере ps1, принтеры второй площадки разливаются через политику Map-Printers-02 и сидят на сервере с названием ps2.
Если вдруг скрипт обнаружит, что для какого-то принтера не создана группа доступа, скажет об этом и пропустит принтер.
Если будет обнаружено, что в целевой политике уже есть запись для добавляемого принтера - будет предложено ее (или их, если их много - бывает и так) пересоздать. Если отказаться от этого - принтер будет пропущен.
И важный момент. Обе политики уже должны существовать, и в них должен быть заведен хотя бы один принтер. В противном случае в каталоге политики в SYSVOL будет отсутствовать файл Printers.xml, а создавать его политика не обучена (мне было лень).
Поехали!

$datafile = "$env:userprofile\documents\printers.csv"
#если входного файла с данными нет - прервать работу
if (!(test-path $datafile)) {
    write-host "Нет файла с входными данными"
    pause 0
    exit
}

#globals
$DNSDomainName = (Get-addomain).DNSRoot
$NBDomainName  = (Get-addomain).NetBIOSName
$DomainDN      = (Get-addomain).DistinguishedName

$data = import-csv $datafile

#файл с результатами работы 
$outfile = "$env:userprofile\documents\created-policyprinters.csv"
$CreatedPrinterPolicies = @()

foreach ($line in $data) {
    "Adding $($line.name)..."
    #select policy
    switch(($line.Name -split "-")[1]) {
        "01"  {$policyName = "MAP-Printers-01";$printServer = "ps1"}
        "02"  {$policyName = "MAP-Printers-02";$printServer = "ps2"}
        default {$policyName = "";$printServer = ""}
    }

    if ($policyName -ne "") {
        "Selected policy: $policyName"
        
        $gpoID             = (Get-GPO $policyName).id.tostring()
        $gpoPrintersFile = "\\$DNSDomainName\sysvol\$DNSDomainName\Policies\{$gpoID}\User\Preferences\Printers\Printers.xml"
        $gpoGPTfile      = "\\$DNSDomainName\sysvol\$DNSDomainName\Policies\{$gpoID}\gpt.ini"
        
        $changed = (Get-Date -UFormat "%Y-%m-%d %T").ToString()
        $uid     = [guid]::NewGuid()

        $group = ""
        $group = get-adgroup "$($line.name)" -ea SilentlyContinue
        if ($group -eq "") {
            "Group Not Found, skip printer"
            $CreatedPrinterPolicies += New-Object -TypeName PSCUstomObject -Property @{
                Name = $line.name
                Policy = ""
                Error = "Group Not found"
            }
            continue
        } 
        
        [xml]$xmldata = Get-content $gpoPrintersFile
        $existingPrinters = ""
        $existingPrinters = $xmldata.Printers.SharedPrinter | where {$_.name -eq "$($line.name)"}
        if (($existingPrinters | measure-object).count -gt 0) {
            "Printer already in policy. Delete it?"
            $resp = read-host
            if ($resp -eq "DELETE") {
                foreach ($existingPrinter in $existingPrinters) {
                    $xmldata.printers.RemoveChild($existingPrinter)
                }
            }
            else {
                "Don't delete old entries, skip printer"
                $CreatedPrinterPolicies += New-Object -TypeName PSCUstomObject -Property @{
                    Name = $line.name
                    Policy = ""
                    Error = "Old entries found and not deleted"
                }
                continue
            }
        }
        $filterGroup = $xmldata.createnode("element","FilterGroup","")
        $filterGroup.setattribute("bool","AND")
        $filterGroup.setattribute("not","0")
        $filterGroup.setattribute("name","$NBDomainName\$($group.name)")
        $filterGroup.setattribute("sid","$($group.sid)")
        $filterGroup.setattribute("userContext","1")
        $filterGroup.setattribute("primaryGroup","0")
        $filterGroup.setattribute("localGroup","0")

        $filters = $xmldata.createnode("element","Filters","")
        $filters.appendChild($filterGroup)

        $properties = $xmldata.createnode("element","Properties","")
        $properties.setattribute("action","U")
        $properties.setattribute("comment","")
        $properties.setattribute("path","\\$printServer\$($line.Name)")
        $properties.setattribute("location","")
        $properties.setattribute("default","0")
        $properties.setattribute("skipLocal","0")
        $properties.setattribute("deleteAll","0")
        $properties.setattribute("persistent","0")
        $properties.setattribute("deleteMaps","0")
        $properties.setattribute("port","")

        $SharedPrinter = $xmldata.createNode("element","SharedPrinter","")
        $SharedPrinter.setattribute("clsid","{9A5E9697-9095-436d-A0EE-4D128FDFBCE5}")
        $SharedPrinter.setattribute("name","$($line.name)")
        $SharedPrinter.setattribute("status","$($line.name)")
        $SharedPrinter.setattribute("image","2")
        $SharedPrinter.setattribute("changed","$changed")
        $SharedPrinter.setattribute("uid","{$uid}")
        $SharedPrinter.setattribute("userContext","1")
        $SharedPrinter.setattribute("bypassErrors","1")

        $SharedPrinter.appendchild($properties)
        $SharedPrinter.appendchild($filters)

        $xmldata.printers.appendchild($SharedPrinter)
        $xmldata.Save($gpoPrintersFile)

        ### Raise Version of policy

        ### Raise version in AD
        $objectFilter = "{$gpoID}"
        $object = Get-ADObject -SearchBase "CN=Policies,CN=System,$DomainDN" -Filter {Name -eq $objectFilter} -Properties VersionNumber

        $VersionNumber = $object.VersionNumber

        $Hex = '{0:x8}' -f $VersionNumber

        $UserVn = $Hex.substring(0,4)
        $CompVn = $Hex.substring(4)
        $UserVn = [Convert]::ToInt64($UserVn,16)
        $userVn += 1
        $uservn = "{0:x4}" -f $UserVn

        $newHex=$UserVn+$CompVn
        $newVersionNumber = [Convert]::Toint32($newHex,16)

        Set-ADObject $object.distinguishedName -Replace @{VersionNumber=$newVersionNumber}

        ### Raise version in SYSVOL
        $gpttext = Get-Content $gpoGPTfile
        $gpttext -replace "Version=$versionNumber","Version=$newVersionNumber" | out-file $gpoGPTfile

        $CreatedPrinterPolicies += New-Object -TypeName PSCUstomObject -Property @{
            Name = $line.name
            Policy = $PolicyName
            Error = "0"
        }
    }
    else {
        "Policy not determined. Skip printer."
        continue
    }
}
$CreatedPrinterPolicies | ft

@музыка: Joe Satriani - Speed of Light

@настроение: Getting the things done!

@темы: PowerShell, Scripting

---

Lucifer, Maze, Powershell

Повод для этой записи для меня необычен. На дайриках полно заметок, где народ всякие гифки выкладывает с полюбившимися им киноперсонажами. Вот эта напасть и меня не миновала. Знакомьтесь: Мейзикин (Мейз) из Люцифера.

Вот казалось бы, чего такого - простой поворот и наклон головы. Но именно на этот жест я залип. Да крепко так. Настолько, что пришлось все же освоить науку создания этих ваших гифочек. VirtualDub не подкачал, но пока-а-а-а я смог скормить ему все 63 кадра разом, а до этого еще и руками нарезать эти кадры, потому что формат MKV мало кто способен понять и сделать раскадровку.
С кормежкой VirtualDub вообще азаза получилось. До этого я вовсе ни разу с программкой не работал (как-то не было нужды), потому о том, каким образом ему подсовывать цепочку картинок, не имел ни малейшего понятия. А в окне выбора файлов можно выбрать только один. И как же быть? Да вот так и быть - файлы должны иметь номер в конце. Ну то есть:
File1.jpg
File2.jpg
File3.jpg
...
Ок, не вопрос:

$files = Get-ChildItem "D:\temp"
$i=0
foreach ($file in $files) {
    $i+=1
    $newname = $file.basename+"$i.jpg"
    Rename -literalpath $file.fullname $newname
}

Но и после этого VirtualDub не захотел кушать всю цепочку. Что ж не так? А вот что. MPC HC, которым я резал кадры, сохраняет их с вымученным названием, например,
Lucifer.S02E05.1080p.rus.LostFilm.TV.mkv_snapshot_11.19_[2016.10.30_23.16.35].jpg
В общем и целом, благодаря квадратным скобкам и тому, что между ними, VDub не расценивал эти файлы как часть цепочки. Кстати, сами квадратные скобки еще в Powershell попортили немного крови, пришлось воспользоваться ключом -literalpath при переименовании, иначе PSH эти файлы в упор не видел.
Ладно, тот же скрипт, но вместо $file.basename ставим "LuciferS2-E5-" - и все стало просто замечательно.

@музыка: E-Mantra - Kaleidoscope Clouds

@настроение: А все же залип... Впрочем, Мейз и без этого хороша, особенно в действии

@темы: Этот безумный мир, PowerShell, Scripting, Этот веселый мир

---

Dishonored #3 - DLC Completed

Knife of Dunwall - Whisper Ways (Undetected), Cleaner Hands (No Kill)
The Brigmore Witches - Silence is Golden (Undetected), Cleanest Hands (No Kill)

Done @ 30.10.216

Arkane Studios - давайте уже вторую часть!

@темы: In-game

---

Life

Очередной виток под названием "Жить на работе"? Причем, жить - во всех смыслах? Ну что ж, пусть так.
Ok, then. Let's dance! (c) Raiden

@музыка: клац-клац-клац

---

TV Series

Попалась на Лосте очередная трава - Радиоволна (Frequency). Посмотрев пилотную серию, без лишних раздумий добавил себе сериал в RSS-downloader. Тут-то меня и прикрыло от вида всего того, что там уже живет:

Накопилось же за пару-тройку лет. А начиналось все со старых-добрых Powershell-скриптов, пока еще fs.to был жив, да сладкой парочки "Стрела+Флэш"...
Народ, а кто чем из вас нынче закидывается?

@музыка: Nadia Ali - Rapture

---

Просто цитата...

– Фрисайд – всего лишь большая труба, сквозь которую текут вещи и люди, – сказала Молли. – Туристы, мошенники, кто угодно. Здесь они попадают на этакое сито, которое тщательнейшим образом отделяет их от денег, деньги остаются здесь, а людей скидывают назад, на дно гравитационного колодца.

Дошли наконец-то руки до Нейроманта. Уж лучше поздно, чем никогда.

---

Powershell - Complete Printers Info

Бессонные ночи того стоили. Однозначно (с)
Хотя нет. Бессонные ночи - это автоматизация настройки принтеров на DHCP и принт-серверах, и это только часть общего дела. Есть и другая часть, не менее муторная, если не более - учет этих самых принтеров. И ведется он, как бы так помягче сказать - из рук вон плохо. Поскольку в Excel-файлы, хранящие в себе сведения по разным офисам данные о добавленных или убранных принтерах вносит куча народа, неизбежны ошибки. А кто-то вообще забудет это сделать. Чего уж там, скорее всего и я в этих файликах тоже косячил.

И в итоге вся отчетность плывет.

Отныне это должно измениться, потому что вся отчетность будет создаваться автоматом на основе реальных данных DHCP и PS: сценарий сформирует сводный csv-файл с кучей информации по резервированным адресам на DHCP серверах и принт-серверах, а сделанная и сохраненная excel-таблица (роль которой - сугубо удобное представление данных) будет кормиться как раз из полученного csv.

Но прежде, чем переходить к самому скрипту, хотелось бы положить в запись ссылку на следующую страницу:

Join-Object - Technet

Скрипт Join-Object фактически реализует такие интереснейшие вещи из мира баз данных, как Join'ы. Именно FULL JOIN позволит нам связать сведения от DHCP-серверов и серверов печати. Прекраснейший скрипт, за который огромное спасибо ребятам из команды MS Powershell. Ну а подключить его к основному сценарию достаточно просто - через dot-source - прямо в первой строке нашего сценария. Что ж, поехали:

. "D:\Join-Object.ps1"

$outfile = "D:\AllPrinterInfo.csv"

$DHCPServers     = get-adcomputer -filter 'name -like "*DHCP*"'  #коллекция DHCP-серверов
$PrintServers    = get-adcomputer -filter 'name -like "*Print*"' #коллекция принт-серверов
$AllReservations = @()                                           #все резервации 
$Allprinters     = @()                                           #все принтеры, кроме виртуального XPS Writer
$checkedScopes   = @{}                                           #хэш-таблица для исключения дубликатов скопов

write-host "Собираем таблицу всех зарезервированных адресов по всем серверам"

foreach ($DHCPServer in $DHCPServers) {
    write-host "Querying $($DHCPServer.name)"
    $scopes = Get-DhcpServerv4Scope -computername $DHCPServer.name
    Foreach ($scope in $scopes) {
        #если скоп уже есть в таблице проверенных скопов - пропустить его        
        if ($checkedScopes.ContainsKey($Scope.Scopeid)) {
            continue
        }

        write-host "Querying $($Scope.scopeId)"
        $reservations = Get-DhcpServerv4Reservation -ComputerName $DHCPServer.Name -ScopeId $Scope.ScopeId
        foreach ($reservation in ($reservations)) {
            $DHCP15Option = ""
            $DHCP15Option = (Get-DhcpServerv4OptionValue -ComputerName $DHCPServer.name -ReservedIP $reservation.IPAddress -OptionId 15 -ErrorAction SilentlyContinue).value | select -First 1
            $AllReservations += New-object -TypeName PSCustomObject -Property @{
                MAC           = $reservation.ClientId -replace "-",""
                DHCPName      = $reservation.Name
                DHCPServer    = $DHCPServer.Name
                IP            = $reservation.IPAddress
                DNSDomainName = $DHCP15Option
                Description   = $reservation.Description
            }
        }
        #добавить этот скоп в таблицу проверенных
        $checkedScopes.Add($scope.ScopeId,"")
    }
}

write-host "Собираем таблицу всех принтеров со всех принт-серверов"

foreach ($PrintServer in $PrintServers) {
    write-host "Querying $($PrintServer.name)"
    $Printers = Get-Printer -computername $PrintServer.name | where {$_.name -notlike "*XPS*"}
    foreach ($printer in $printers) {
        $Allprinters += New-Object -TypeName PSCustomObject -Property @{
            PrinterName = $printer.Name
            PortName    = $printer.PortName
            DriverName  = $printer.DriverName
            PrintServer = $PrintServer.name
        }
    }
}

write-host "Сводим информацию в единую таблицу (файл $outfile)"

Join-Object -Left $AllReservations `
            -Right $Allprinters `
            -LeftJoinProperty DHCPName `
            -RightJoinProperty PortName `
            -LeftProperties DHCPName,MAC,DHCPServer,IP,DNSDomainName,Description `
            -RightProperties PortName,PrinterName,DriverName,PrintServer `
            -Type AllInBoth | ConvertTo-Csv -NoTypeInformation | %{$_ -replace "`"",""} | out-file $outfile -force -encoding utf8

write-host "Готово"

Окинув взглядом получившуюся в Excel мега-таблицу увидел в ней сто-о-о-о-о-олько интересного!

@музыка: Mark Farina - Sexy Fire (Factory Boom Boom Mix)

@настроение: Overall progress - 50% - nice!

@темы: PowerShell, Scripting

---

Dishonored - completed

It's done. Full stealth, pacifist, low chaos как следствие pacifist-забега.

Пока не знаю, буду ли пробовать Mostly flesh and steel, он же Factory-zero run (прохождение без скиллов за исключением базового blink - его по-любому дают). Скорее всего буду, но позже. Надо чуть передохнуть.
Ну и да, теперь можно спокойно ждать выхода второй части

@музыка: Sandra - Everlasting love

@настроение: Хо-ро-шо!

@темы: In-game

---

Powershell - Continue

Однако, здравствуйте. Оказалось, что оператор Continue, который должен переходить к следующей итерации цикла, внутри которого он вызван, не работает в некоторых случаях. Вот пример:

foreach ($i in 1..10) {
    switch ($i) {
        8 {write-host "you must not write 8";continue}
        default {}
    }
    Write-host $i
}

Суть кода - в switch проверяется значение переменной $i. Если оно равно 8, пишется предупреждение, вызывается оператор Continue, и скрипт переходит к итерации под номером 9. Во всех остальных случаях switch не делает ничего, и сценарий выполняет следующую за switch инструкцию "напиши мне значение переменной $i. А вот что мы получаем на самом деле:

1
2
3
4
5
6
7
you must not write 8
8
9
10

С другой стороны, исправь мы код совсем чуть-чуть, получим ровно то, что требовалось:

foreach ($i in 1..10) {
    if ($i -eq 8) { write-host "you must not write 8";continue }
    Write-host $i
}

1
2
3
4
5
6
7
you must not write 8
9
10

Получается, что continue тоже считает switch за цикл? Это засада.

@музыка: Sandra - Hi! Hi! Hi!

@темы: PowerShell, Scripting

---

Overclockers.ru

It's over.

@темы: Этот безумный мир

---

Пить или не пить.

Вот оно! Отныне и навсегда, любой, кто спросит меня, "почему ты не употребляешь", вместо объяснений будет получать ссылку на это видео!

@настроение: !!!

@темы: Этот веселый мир

---

Dishonored #2

Нет, нисколько не пожалел о покупке. Отличная игра, пусть еще и не пройдена до конца. Да пофиг и на тот факт, что мне придется заново начать, ибо главная цель - достижение Clean Hands (вообще без убийств) уже завалено. Какие там вещи народ вытворяет!

Как говорится, кролики - это не только ценный мех, а приключения Корво - это не только про стеллс Абсолютно не мой стиль прохождения, но как же оно все красиво выполнено! Особенно последнее устранение противника, просто восторг!

@музыка: Sandra - H! Hi! Hi!

@настроение: Но клешни мне под эту игру еще выпрямлять и выпрямлять...

@темы: In-game

---

Shared Printers and Group Policy

It is done!
Последнее, что мне никак в моей опупее по автоматизации развертывания принтеров не давалось, так это подстановка новых принтеров в групповую политику. Среди всех команд Powershell, работающих с GPO, нет ни одного, который бы позволял менять GPPreferences. Точнее, есть, но работают они несколько не с тем, что нужно.
А недавно стукнуло в голову - описания принтеров, которые раскатываются на рабочие места, это ни что иное, как XML файл, лежащий в SYSVOL по вполне себе известному пути. А что если выправить непосредственно этот XML файл, а потом посмотреть, что будет.

### Add printer to policy

$printerName = "spb-01-2777-HP888"
$PrintServerName = "spb-01-ps1"
$changed = (Get-Date -UFormat "%Y-%m-%d %T").ToString()
$uid=[guid]::NewGuid()
$DomainNetBIOSName = (Get-ADDomain).NetbiosName
$DomainDNSName = (Get-ADDomain).DNSRoot
$DomainDN = (Get-ADDomain).DistinguishedName
$groupName = $PrinterName
$groupSID = (Get-ADGroup $groupname).SID
$gpoID = (Get-GPO "Map Printers SPB01").id.tostring()

[xml]$xml = get-content "\\$DomainDNSName\SYSVOL\$DomainDNSName\Policies\{$gpoID}\User\Preferences\Printers\Printers.xml"
[xml]$SettingsXml = @"
<SharedPrinter 
   clsid="{9A5E9697-9095-436d-A0EE-4D128FDFBCE5}"
   name="$printerName"
   status="$printerName"
   image="2"
   userContext="1"
   bypassErrors="1"
   changed="$changed"
   uid="{$uid}">
   <Properties 
      action="U" 
      comment="" 
      path="\\$PrintServerName\$printerName"
      location="" 
      default="0"
      skipLocal="0"
      deleteAll="0"
      persistent="0"
      deleteMaps="0"
      port=""
   />
   <Filters>
      <FilterGroup 
         bool="AND" 
         not="0" 
         name="$DomainNETBIOSName\$groupName"
         sid="$groupSID"
         userContext="1"
         primaryGroup="0"
         localGroup="0"
      />
   </Filters>
</SharedPrinter>
"@
$xml.printers.AppendChild($xml.ImportNode($SettingsXml.SharedPrinter,$true))
$xml.Save("\\$DomainDNSName\SYSVOL\$DomainDNSName\Policies\{$gpoID}\User\Preferences\Printers\Printers.xml")

### Raise Version of policy

### Raise version in AD
$objectFilter = "{$gpoID}"
$object = Get-ADObject -SearchBase "CN=Policies,CN=System,$DomainDN" -Filter {Name -eq $objectFilter} -Properties VersionNumber

$VersionNumber = $object.VersionNumber

$Hex = '{0:x8}' -f $VersionNumber

$UserVn = $Hex.substring(0,4)
$CompVn = $Hex.substring(4)
$UserVn = [Convert]::ToInt64($UserVn,16)
$userVn += 1
$uservn = "{0:x4}" -f $UserVn

$newHex=$UserVn+$CompVn
$newVersionNumber = [Convert]::Toint32($newHex,16)

Set-ADObject $object.distinguishedName -Replace @{VersionNumber=$newVersionNumber}

### Raise version in SYSVOL

$gptfile = "\\$DomainDNSName\SYSVOL\$DomainDNSName\Policies\{$gpoID}\gpt.ini"
$gpttext = Get-Content $gptfile
$gpttext -replace "Version=$versionNumber","Version=$newVersionNumber" | out-file $gptfile

Как водится, разъяснения, что тут и как.
В качестве входных параметров в этом коде присутствуют имя принтера, который будет прописывать в политику, имя принтсервера, на котором живет общий ресурс этого принтера, и имя политики, которую будем менять. Все остальное вычисляется автоматом на основании этих данных. В финальном виде входными данными будет только имя принтера, но это уже за рамками данной записи.
Скрипт предполагает, что группа, членам которой будет подключаться этот принтер, уже создана, а ее имя совпадает с именем принтера. При желании проверка на наличие этой группы в AD прописывается очень просто.
Отдельно пара слов о блоке Raise Version of policy. Номер версии групповой политики никак не влияет на репликацию самих файлов политики, а вот для клиентских рабочих станций он может иметь большое значение. Именно поэтому данный блок и введен. Как рассчитывается и как хранится номер версии - в сети материала полно, от себя лишь скажу, что это было весьма интересно.
P.S. Согласен, что сборка XML структуры в виде текста - решение "в лоб". Но как показывает практика, иногда именно такие решения работают надежнее всего.

@музыка: Stellardrone - Comet Halley

@темы: PowerShell, Scripting

---

Чай...

Вот уже год, как я отказался от чая с сахаром и пью его исключительно без "сладкой смерти". Да, сладкий кофе я глушу просто декалитрами, но с моим графиком работы иначе и не выходит (да, я знаю, что это вредно, да, я стараюсь от этого уйти). Но вот на подслащенный чай не тянет. Отвык совсем.
Ради интереса приполз домой, и вздумал все же тряхнуть стариной. И теперь задаюсь вопросом - люди, как вы его таким пьете, если пьете, конечно? Невкусно же

@музыка: Oscar Salguero - La Sagrada Familia