Kein Standart Mail-Programm bei Mail aus OpenOffice 4.1.5

# Entfernt Alle Globalen Apps  ausser den Taschenrechner, StickyNotes, die WetterApp, die NewsApp und MsPaint

Function PSCustomErrorRecord
{
	#Diese Funktion wird genutzt um einen PowerShell ErrorRecord zu erzeugen
	Param
	(		
		[Parameter(Mandatory=$true,Position=1)][String]$ExceptionString,
		[Parameter(Mandatory=$true,Position=2)][String]$ErrorID,
		[Parameter(Mandatory=$true,Position=3)][System.Management.Automation.ErrorCategory]$ErrorCategory,
		[Parameter(Mandatory=$true,Position=4)][PSObject]$TargetObject
	)
	Process
	{
		$exception = New-Object System.Management.Automation.RuntimeException($ExceptionString)
		$customError = New-Object System.Management.Automation.ErrorRecord($exception,$ErrorID,$ErrorCategory,$TargetObject)
		return $customError
	}
}
	
Function RemoveAppxPackage
{
	$index=1
	$apps=Get-AppxProvisionedPackage -online | Where-Object { $_.PackageName -notlike '*Calculator*' } | Where-Object { $_.PackageName -notlike '*StickyNotes*' } | Where-Object { $_.PackageName -notlike '*Weather*' } | Where-Object { $_.PackageName -notlike '*MSPaint*' }  
	#Gibt eine Liste der zulöschenden Apps aus
    Write-Host "Die folgenden Apps werde entfernt"   
	Write-Host "ID`t App name"  
	foreach ($app in $apps)
	{
		Write-Host " $index`t $($app.Displayname)"  
        $IDs="$IDs,$index"  
		$index++
    }


    Do
    {
    # Erstellt die Liste der zulöschenden Apps. Aus Formgründen wird ds 1. Zeichen (,) gelöscht. 
    $IDs=$Ids.Substring(1)

    #Kontrollzeile der Liste
    Write-Host $IDs
	}
    While($IDs -eQ "")  

    #Kontrolle ob die Variable korrekt ist
    try
    {
        [int[]]$IDs=$IDs -split ","  
    }
    catch
    {
        $errorMsg = $Messages.IncorrectInput
        $errorMsg = $errorMsg -replace "Placeholder01",$IDs  
        $costumError = PSCustomErrorRecord `
        -ExecutionString $errorMsg `
        -ErrorCategory NotSpecified -ErrorID 1 -TargetObject $PSCmdlet
        $PSCmdlet.WriteError($costumError)
        return
    }
    
 
	foreach ($ID in $IDs)
	{
		#kontrolliert ob noch unbearbeitet Apps vorhanden sind
		if ($ID -ge 1 -and $ID -le $apps.count)
		{
			$ID--
			#
			$AppName=$apps[$ID].packagename

			Remove-AppxProvisionedPackage -Online -PackageName $AppName -ErrorAction SilentlyContinue
			if (-not(Get-AppxProvisionedPackage -online | Where-Object {$_.PackageName -like $AppName}))
			{
				Write-host "$AppName wurde erfolgreich entfernt"  
			}
			else
			{
				Write-Warning "Entfernen der App '$AppName' Fehlgeschlagen! Dies ist eine Windows-System-App die nicht gelöscht werden kann"  
			}
		}
        else
        {
            $errorMsg = $Messages.IncorrectInput
            $errorMsg = $errorMsg -replace "Placeholder01",$IDs  
            $costumError = PSCustomErrorRecord `
            -ExecutionString $errorMsg `
            -ErrorCategory NotSpecified -ErrorID 1 -TargetObject $PSCmdlet
            $PSCmdlet.WriteError($costumError)
            return
	    }
	}
}

RemoveAppxPackage

# Administrator-Konto deaktivieren

net user Administrator /active:no

# Dieses Script löcht alle unbenötigten Apps der Benutzer, ausser die Xerox-App, den Taschenrechner, die StickyNotes, die WetterApp, die Nachrichten App und MSPaint (was leider auch Paint 3D enthält)
Function PSCustomErrorRecord
{
	#This function is used to create a PowerShell ErrorRecord
	Param
	(		
		[Parameter(Mandatory=$true,Position=1)][String]$ExceptionString,
		[Parameter(Mandatory=$true,Position=2)][String]$ErrorID,
		[Parameter(Mandatory=$true,Position=3)][System.Management.Automation.ErrorCategory]$ErrorCategory,
		[Parameter(Mandatory=$true,Position=4)][PSObject]$TargetObject
	)
	Process
	{
		$exception = New-Object System.Management.Automation.RuntimeException($ExceptionString)
		$customError = New-Object System.Management.Automation.ErrorRecord($exception,$ErrorID,$ErrorCategory,$TargetObject)
		return $customError
	}
}
	
Function RemoveAppxPackage
{
	$index=1
	$apps=Get-AppxPackage -AllUsers | Where-Object { $_.Name -notlike '*Xerox*' } | Where-Object { $_.Name -notlike '*Calculator*' } | Where-Object { $_.Name -notlike '*StickyNotes*' } | Where-Object { $_.Name -notlike '*Weather*' } | Where-Object { $_.Name -notlike '*MSPaint*' }  
	#Gibt eine Liste der zulöschenden Apps aus
    Write-Host "Die folgenden Apps werde entfernt"   
	Write-Host "ID`t App name"  
	foreach ($app in $apps)
	{
		Write-Host " $index`t $($app.name)"  
        $IDs="$IDs,$index"  
		$index++
    }



    Do
    {
		# Erstellt die Liste der zulöschenden Apps. Aus Formgründen wird ds 1. Zeichen (,) gelöscht. 
		$IDs=$Ids.Substring(1)

		
	}
    While($IDs -eQ "")  

    #Kontrolle ob die Variable korrekt ist
    try
    {
        [int[]]$IDs=$IDs -split ","  
    }
    catch
    {
        $errorMsg = $Messages.IncorrectInput
        $errorMsg = $errorMsg -replace "Placeholder01",$IDs  
        $costumError = PSCustomErrorRecord `
        -ExecutionString $errorMsg `
        -ErrorCategory NotSpecified -ErrorID 1 -TargetObject $PSCmdlet
        $PSCmdlet.WriteError($costumError)
        return
    }
    
 
	foreach ($ID in $IDs)
	{
		#Kontrolle ob es noch zu deinstallierende Apps gibt
		if ($ID -ge 1 -and $ID -le $apps.count)
		{
			$ID--
			#Entfernt jede App
			$AppName=$apps[$ID].name

			Remove-AppxPackage -Package $apps[$ID] -ErrorAction SilentlyContinue
			if (-not(Get-AppxPackage -Name $AppName))
			{
				Write-host "$AppName wurde erfolgreich entfernt"  
			}
			else
			{
				Write-Warning "Entfernen der App '$AppName' Fehlgeschlagen! Dies ist eine Windows-System-App die nicht gelöscht werden kann"  
			}
			
		}
        else
        {
            $errorMsg = $Messages.IncorrectInput
            $errorMsg = $errorMsg -replace "Placeholder01",$IDs  
            $costumError = PSCustomErrorRecord `
            -ExecutionString $errorMsg `
            -ErrorCategory NotSpecified -ErrorID 1 -TargetObject $PSCmdlet
            $PSCmdlet.WriteError($costumError)
            return
	    }
	}
}

RemoveAppxPackage