Erstellen eines neuen Attributes für Benutzerobjekte im Active Directory Schema

regsvr32 schmmgmt.dll

[regex]::match([guid]::NewGuid().GUID,'^(.{4})(.{4})-(.{4})-(.{4})-(.{4})-(.{6})(.{6})$') | %{"1.2.840.113556.1.8000.2554.$(($_.Groups[1..6] | %{[convert]::ToUInt64($_,16)}) -join '.')"}  

' oidgen.vbs   
'    
' THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED    
' OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR    
' FITNESS FOR A PARTICULAR PURPOSE.   
'   
' Copyright (c) Microsoft Corporation. All rights reserved   
'   
' This script is not supported under any Microsoft standard support program or service.    
' The script is provided AS IS without warranty of any kind. Microsoft further disclaims all   
' implied warranties including, without limitation, any implied warranties of merchantability   
' or of fitness for a particular purpose. The entire risk arising out of the use or performance   
' of the scripts and documentation remains with you. In no event shall Microsoft, its authors,   
' or anyone else involved in the creation, production, or delivery of the script be liable for    
' any damages whatsoever (including, without limitation, damages for loss of business profits,    
' business interruption, loss of business information, or other pecuniary loss) arising out of    
' the use of or inability to use the script or documentation, even if Microsoft has been advised    
' of the possibility of such damages.   
' ----------------------------------------------------------------------   
Function GenerateOID() 
    'Initializing Variables   
    Dim guidString, oidPrefix 
    Dim guidPart0, guidPart1, guidPart2, guidPart3, guidPart4, guidPart5, guidPart6 
    Dim oidPart0, oidPart1, oidPart2, oidPart3, oidPart4, oidPart5, oidPart6 
    On Error Resume Next 
    'Generate GUID   
    Set TypeLib = CreateObject("Scriptlet.TypeLib")   
    guidString = TypeLib.Guid 
    'If no network card is available on the machine then generating GUID can result with an error.   
    If Err.Number <> 0 Then 
        Wscript.Echo "ERROR: Guid could not be generated, please ensure machine has a network card."   
        Err.Clear 
        WScript.Quit 
    End If 
    'Stop Error Resume Next   
    On Error GoTo 0 
    'The Microsoft OID Prefix used for the automated OID Generator   
    oidPrefix = "1.2.840.113556.1.8000.2554"   
    'Split GUID into 6 hexadecimal numbers   
    guidPart0 = Trim(Mid(guidString, 2, 4)) 
    guidPart1 = Trim(Mid(guidString, 6, 4)) 
    guidPart2 = Trim(Mid(guidString, 11, 4)) 
    guidPart3 = Trim(Mid(guidString, 16, 4)) 
    guidPart4 = Trim(Mid(guidString, 21, 4)) 
    guidPart5 = Trim(Mid(guidString, 26, 6)) 
    guidPart6 = Trim(Mid(guidString, 32, 6)) 
    'Convert the hexadecimal to decimal   
    oidPart0 = CLng("&H" & guidPart0)   
    oidPart1 = CLng("&H" & guidPart1)   
    oidPart2 = CLng("&H" & guidPart2)   
    oidPart3 = CLng("&H" & guidPart3)   
    oidPart4 = CLng("&H" & guidPart4)   
    oidPart5 = CLng("&H" & guidPart5)   
    oidPart6 = CLng("&H" & guidPart6)   
    'Concatenate all the generated OIDs together with the assigned Microsoft prefix and return   
    GenerateOID = oidPrefix & "." & oidPart0 & "." & oidPart1 & "." & oidPart2 & "." & oidPart3 & _   
        "." & oidPart4 & "." & oidPart5 & "." & oidPart6   
End Function 
'Output the resulted OID with best practice info   
Wscript.Echo "Your root OID is: " & VBCRLF & GenerateOID & VBCRLF & VBCRLF & VBCRLF & _   
    "This prefix should be used to name your schema attributes and classes. For example: " & _   
    "if your prefix is ""Microsoft"", you should name schema elements like ""microsoft-Employee-ShoeSize"". " & _   
    "For more information on the prefix, view the Schema Naming Rules in the server " & _    
    "Application Specification (http://www.microsoft.com/windowsserver2003/partners/isvs/appspec.mspx)." & _   
    VBCRLF & VBCRLF & _ 
    "You can create subsequent OIDs for new schema classes and attributes by appending a .X to the OID where X may " & _   
    "be any number that you choose.  A common schema extension scheme generally uses the following structure:" & VBCRLF & _   
    "If your assigned OID was: 1.2.840.113556.1.8000.2554.999999" & VBCRLF & VBCRLF & _   
    "then classes could be under: 1.2.840.113556.1.8000.2554.999999.1 " & VBCRLF & _    
    "which makes the first class OID: 1.2.840.113556.1.8000.2554.999999.1.1" & VBCRLF & _   
    "the second class OID: 1.2.840.113556.1.8000.2554.999999.1.2     etc..." & VBCRLF & VBCRLF & _   
    "Using this example attributes could be under: 1.2.840.113556.1.8000.2554.999999.2 " & VBCRLF & _   
    "which makes the first attribute OID: 1.2.840.113556.1.8000.2554.999999.2.1 " & VBCRLF & _   
    "the second attribute OID: 1.2.840.113556.1.8000.2554.999999.2.2     etc..." & VBCRLF & VBCRLF & _   
     "Here are some other useful links regarding AD schema:" & VBCRLF & _   
    "Understanding AD Schema" & VBCRLF & _   
    "http://technet2.microsoft.com/WindowsServer/en/Library/b7b5b74f-e6df-42f6-a928-e52979a512011033.mspx " & _   
    VBCRLF & VBCRLF & _ 
    "Developer documentation on AD Schema:" & VBCRLF & _   
    "http://msdn2.microsoft.com/en-us/library/ms675085.aspx " & VBCRLF & VBCRLF & _   
    "Extending the Schema" & VBCRLF & _   
    "http://msdn2.microsoft.com/en-us/library/ms676900.aspx " & VBCRLF & VBCRLF & _   
    "Step-by-Step Guide to Using Active Directory Schema and Display Specifiers " & VBCRLF & _   
    "http://www.microsoft.com/technet/prodtechnol/windows2000serv/technologies/activedirectory/howto/adschema.mspx " & _   
    VBCRLF & VBCRLF & _ 
    "Troubleshooting AD Schema " & VBCR & _   
    "http://technet2.microsoft.com/WindowsServer/en/Library/6008f7bf-80de-4fc0-ae3e-51eda0d7ab651033.mspx  " & _   
    VBCRLF & VBCRLF 

function Add-ADSchemaUserAttribute {
    param(
        [Parameter(Mandatory=$true)][string]$Name,
        [Parameter(Mandatory=$true)][ValidateSet('Object(DN-DN)','String(Object-Identifier)','Case-Sensitive String','CaseIgnoreString(Teletex)','String(Printable)','String(IA5)','String(Numeric)','Object(DN-Binary)','Boolean','Integer','Integer Enumeration','String(Octet)','String(UTC-Time)','String(Generalized-Time)','String(Unicode)','Object(Presentation-Address)','Object(DN-String)','String(NT-Sec-Desc)','LargeInteger','String(Sid)')][string]$DataType,  
        [Parameter(Mandatory=$true)][string]$Description,
        [Parameter(Mandatory=$false)][bool]$IsSingleValued = $true,
        [Parameter(Mandatory=$false)][int32]$searchflags = 1,
        [Parameter(Mandatory=$false)][int]$rangeLower,
        [Parameter(Mandatory=$false)][int]$rangeUpper,
        [Parameter(Mandatory=$false)][bool]$extendedCharsAllowed

    )
    Import-Module ActiveDirectory
    
    # Funktion um neue OID zu generieren
    $getnewoid = {"1.2.840.113556.1.8000.2554.$(([regex]::Match([System.Guid]::NewGuid().ToString(),'(.{4})(.{4})-(.{4})-(.{4})-(.{4})-(.{6})(.{6})').Groups | select -skip 1 | %{[Convert]::ToUInt64($_.Value,16)}) -join '.')"}  
    
    # DataTypes :https:{{comment_single_line_double_slash:0}}
    $datatype_map = @{
        'Object(DN-DN)' = @{o=127;a='2.5.5.1'}  
        'String(Object-Identifier)' = @{o=6;a='2.5.5.2'}  
        'Case-Sensitive String' = @{o=27;a='2.5.5.3'}  
        'CaseIgnoreString(Teletex)' = @{o=20;a='2.5.5.4'}  
        'String(Printable)' = @{o=19;a='2.5.5.5'}  
        'String(IA5)' = @{o=22;a='2.5.5.5'}  
        'String(Numeric)' = @{o=18;a='2.5.5.6'}  
        'Object(DN-Binary)' = @{o=127;a='2.5.5.7'}  
        'Boolean' = @{o=1;a='2.5.5.8'}  
        'Integer' = @{o=2;a='2.5.5.9'}  
        'Integer Enumeration' = @{o=10;a='2.5.5.9'}  
        'String(Octet)' = @{o=4;a='2.5.5.10'}  
        'String(UTC-Time)' = @{o=23;a='2.5.5.11'}  
        'String(Generalized-Time)'= @{o=24;a='2.5.5.11'}  
        'String(Unicode)' = @{o=64;a='2.5.5.12'}  
        'Object(Presentation-Address)'= @{o=127;a='2.5.5.13'}  
        'Object(DN-String)' = @{o=127;a='2.5.5.14'}  
        'String(NT-Sec-Desc)' = @{o=66;a='2.5.5.15'}  
        'LargeInteger' = @{o=65;a='2.5.5.16'}  
        'String(Sid)' = @{o=4;a='2.5.5.17'}  
    }
    
    # Wenn Attribut schon existiert Fehler generieren
    if ((Get-ADObject -SearchBase (Get-ADRootDSE).schemaNamingContext -Filter "ObjectClass -eq 'attributeSchema' -and name -eq '$Name'")){  
        Write-Error -Message "Ein Attribut mit diesem Namen existiert bereits!"  
        return
    }

    $schemaPath = (Get-ADRootDSE).schemaNamingContext
    $userSchema = get-adobject -SearchBase $schemapath -Filter "name -eq 'user'"  
    # Neue OID generieren
    $newoid = .$getnewoid
    # Wenn OID schon existiert neue erstellen
    while(Get-ADObject -SearchBase $schemaPath -Filter "ObjectClass -eq 'attributeSchema' -and attributeID -eq '$newoid'"){  
        $newoid = .$getnewoid
    }
    <# 
       	Attribute-Schema: https://technet.microsoft.com/en-us/library/cc961746.aspx
	    SearchFlags: http://www.frickelsoft.net/blog/?p=151
    #>
    $attributes = @{
        LDAPDisplayName = $Name
        attributeId = $newoid
        oMSyntax = $Datatype_map[$DataType].o
        attributeSyntax = $Datatype_map[$DataType].a
        isSingleValued = $IsSingleValued
        adminDescription = $Description
        searchflags = $searchflags
    }
    if ($rangeLower -ne $null){$attributes.rangeLower = $rangeLower}
    if ($rangeUpper -ne $null){$attributes.rangeUpper = $rangeUpper}
    if ($extendedCharsAllowed -ne $null){$attributes.extendedCharsAllowed = $extendedCharsAllowed}

    write-host "Adding attribute..." -F Green  
    New-ADObject -Name $Name -Type attributeSchema -Path $schemapath -OtherAttributes $attributes
    write-host "Adding attribute tu User-Schema..." -F Green  
    $userSchema | Set-ADObject -Add @{mayContain=$Name}

    # Force Update AD-Schema cache
    write-host "Updating Schema cache ..." -F Green  
    $root = [ADSI]"LDAP://$((Get-ADForest).SchemaMaster)/RootDSE"  
    $root.put("schemaUpdateNOW",1)  
    $root.SetInfo()
    write-host "Finished" -F Green  
}

Add-ADSchemaUserAttribute -Name 'MeinNeuesAttribut' -DataType 'String(Unicode)'