onsdag 21 december 2011

Lista med datornamn och IP-adresser från DNS.

En kollega till mig bad mig ordna fram en lista på alla servrar i domänen och lista deras ip-adresser från DNS:en. I detta fall räckte de med att filtrera alla datorkonton som börjar på S för att få fram endast servrar. Jag sparade listan "namn = ip-adress" men de går lika enkelt att skriva "namn;ip-adress" om man vill ha de kommaseparerat. Jag var tvungen att skriva en lite felhantering då en stor del av datorkontona inte fanns med i DNS:en.

Får tacka Ghost6Shell för den enkla och mycke användbara namnupplösningen!
http://nex6.blogspot.com/2009/02/using-powershell-to-reslove-host-name.html

--- Skript ---

Import-Module activedirectory
Get-ADComputerForEach-Object -Filter {Name -like "S*"} |  {
  $ServerName = $_.Name
  try
    {
    $IP = [System.Net.Dns]::GetHostAddresses($ServerName)|
    Select-Object IPAddressToString -ExpandProperty IPAddressToString
    "$ServerName = $IP"
    }
  Catch
    {
    "$ServerName ="
    }
  } | Out-File -FilePath .\server_ip.txt

tisdag 20 december 2011

Hitta kataloger utan ägare.

Många miljöer som jag varit i har haft problem med att hantera avveckling av resurser vid avslut. Detta brukar visa sig när personalen slutar och de är dags att ta bort hemkatalogen. Om det inte finns fungerande rutiner för avveckling av användare brukar det ofta ligga hemkataloger kvar som ingen vill hantera. Jag skrev denna oneliner för att urskilja vilka kataloger som inte längre har en ägare som går att slå upp i domän eller i datorn.

Get-ChildItem C:\Temp |Where-object {$_.psIsContainer -eq $true}| get-acl | Select-Object Path, owner | where-object {$_.owner.StartsWith("O:S-1")}

Uppdatera till din katalogstruktur och prova. Obs det är en rad.

måndag 12 december 2011

Ini-filer och Powershell

En sak som jag trodde skulle vara trivialt att lösa med Powershell, var att jobba med ini-filer. Det är inte så edge att arbeta med dem men det kan ändå krävas. Jag har grävt lite själv och hittat en lösning som använder WindowsApi för att läsa och skriva i en ini-fil.
Trist nog har jag inte kvar länken till artikeln som jag kopierade. Funktionerna som läser och skriver från och till ini-filer. Skriptet kan verka överdrivet för att endast läsa ini-filer men de fungerar bra. Jag provade själv med några sök och ersätt funktioner men i större miljöer är det väldigt plågsamt att inte ha en ytterst exakt lösning.

De är tre funktioner i skriptet.
  1. Invoke-WindowsApi
    Som namnet säger så sköter denna funktion anropen mot Windows-api och i detta skript anropas av dom andra två Read-ini och write-ini funktionerna.
     
  2. Write-ini
    Skriver till ini-filer.
    Parametrar: Fil, kategori, nyckel, värde
    ex:
    Write-Ini "C:\Windows\win.ini" "Min sektion" "Test" "Värdet"
  3. Read-ini
    Läser ini-filer.
    Parametrar: Fil, kategori, nyckel
    Ex:
    Read-ini "C:\Windows\win.ini" "Min sektion" "Test"

Lycka till!
------Skript nedan------

Function Invoke-WindowsApi {
param(
    [string] $dllName, 
    [Type] $returnType, 
    [string] $methodName,
    [Type[]] $parameterTypes,
    [Object[]] $parameters
    )
$domain = [AppDomain]::CurrentDomain
$name = New-Object Reflection.AssemblyName 'PInvokeAssembly'
$assembly = $domain.DefineDynamicAssembly($name, 'Run')
$module = $assembly.DefineDynamicModule('PInvokeModule')
$type = $module.DefineType('PInvokeType', "Public,BeforeFieldInit")
$inputParameters = @()
$refParameters = @()
for($counter = 1; $counter -le $parameterTypes.Length; $counter++)
{
   if($parameterTypes[$counter - 1] -eq [Ref])
   {
      $refParameters += $counter
      $parameterTypes[$counter - 1] = 
         $parameters[$counter - 1].Value.GetType().MakeByRefType()
      $inputParameters += $parameters[$counter - 1].Value
   }
   else
   {
      $inputParameters += $parameters[$counter - 1]
   }
}
$method = $type.DefineMethod($methodName, 'Public,HideBySig,Static,PinvokeImpl',
    $returnType, $parameterTypes)
foreach($refParameter in $refParameters)
{
   [void] $method.DefineParameter($refParameter, "Out", $null)
}
$ctor = [Runtime.InteropServices.DllImportAttribute].GetConstructor([string])
$attr = New-Object Reflection.Emit.CustomAttributeBuilder $ctor, $dllName
$method.SetCustomAttribute($attr)
$realType = $type.CreateType()
$realType.InvokeMember($methodName, 'Public,Static,InvokeMethod', $null, $null, 
    $inputParameters)
foreach($refParameter in $refParameters)
{
   $parameters[$refParameter - 1].Value = $inputParameters[$refParameter - 1]
}
}

Function Read-Ini {
param(
    $file,
    $category,
    $key)
$returnValue = New-Object System.Text.StringBuilder 500
$parameterTypes = [string], [string], [string], [System.Text.StringBuilder], [int], [string]
$parameters = [string] $category, [string] $key, [string] "",
   [System.Text.StringBuilder] $returnValue, [int] $returnValue.Capacity, [string] $file
[void] (Invoke-WindowsApi "kernel32.dll" ([UInt32]) "GetPrivateProfileString" $parameterTypes $parameters)
$returnValue.ToString()
}

Function Write-Ini {
param(
    $file,
    $category,
    $key,
    $value)
$parameterTypes = [string], [string], [string], [string]
$parameters = [string] $category, [string] $key, [string] $value, [string] $file
[void] (Invoke-WindowsApi "kernel32.dll" ([UInt32]) "WritePrivateProfileString" $parameterTypes $parameters)
}