So findest du den Autostart Ordner des aktuellen Benutzer :
- Tastenkombination: Win + R
- Eingabe: shell:Startup
- Enter drücken
Und so geht’s zum Autostart Ordner für alle:
- Tastenkombination: Win + R
- Eingabe: shell:Common Startup
- Enter drücken
einmal kurz und knapp erklärt wie man das SSL Zertifikat eines Dienst, welcher über eine Domain auflöst (wie z.B. https, mail, adfs … ) überprüft
einfach folgenden Link aufrufen und hinten wo „namederdomain.de“ steht die eigene Domain eintragen
https://www.ssllabs.com/ssltest/analyze.html?d=namederdomain.de
mehr Informationen gibt’s hier
This free online service performs a deep analysis of the configuration of any SSL web server on the public Internet. Please note that the information you submit here is used only to provide you the service. We don’t use the domain names or the test results, and we never will.
https://www.ssllabs.com/ssltest/
Hierbei kann es z.B. Sinnvoll sein, wenn ein der Syntax für das Feld „Speichern unter“ und „anzeigen als“ wie in Abbildung global vorbelegt wird.
Um dies für den eigenen PC oder für einen Terminalserver festzulegen gibt es Makros, welche über Outlook die Registrie des Systems anpassen, so das der Syntax vorbelegt wird.
Das Makro für „Speichern unter“ :
Public Sub ChangeFileAs() Dim objOL As Outlook.Application Dim objNS As Outlook.NameSpace Dim objContact As Outlook.ContactItem Dim objItems As Outlook.Items Dim objContactsFolder As Outlook.MAPIFolder Dim obj As Object Dim strFileAs As String Dim myRegKey As String Dim myValue As String Dim myFileAs As String Dim myAnswer As Integer On Error Resume Next ' get registry key to work with ' change the Outlook version # to match your version myRegKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\Outlook\Contact\FileAsOrder" If myRegKey = "" Then Exit Sub 'check if key exists If RegKeyExists(myRegKey) = True Then 'key exists, read it myValue = RegKeyRead(myRegKey) If myValue = 14870 Then myFileAs = "Company" If myValue = 32791 Then myFileAs = "Last, First" If myValue = 32792 Then myFileAs = "Company (Last, First)" If myValue = 32793 Then myFileAs = "Last, First (Company)" If myValue = 32823 Then myFileAs = "First Last" 'display result and ask if it should be changed myAnswer = MsgBox("The registry value for the key """ & _ myRegKey & """is """ & myFileAs & vbCrLf & _ "Do you want to change it?", vbYesNo) Else 'key doesn't exist, ask if it should be created myAnswer = MsgBox("The registry key """ & myRegKey & _ """ could not be found." & vbCr & vbCr & _ "Do you want to create it?", vbYesNo) End If If myAnswer = vbYes Then 'ask for new registry key value myValue = InputBox("Please enter new value: " & vbCrLf & _ "14870 = Company" & vbCrLf & _ "32791 = Last, First" & vbCrLf & _ "32792 = Company (Last, First)" & vbCrLf & _ "32793 = Last, First (Company)" & vbCrLf & _ "32823 = First Last", myRegKey, myValue) If myValue <> "" Then RegKeySave myRegKey, myValue MsgBox "Registry key saved." End If Else End If ' now that we've got the value of the default setting, ' we use it to set the value so all contacts are the same Set objOL = CreateObject("Outlook.Application") Set objNS = objOL.GetNamespace("MAPI") Set objContactsFolder = objNS.GetDefaultFolder(olFolderContacts) Set objItems = objContactsFolder.Items For Each obj In objItems 'Test for contact and not distribution list If obj.Class = olContact Then Set objContact = obj With objContact If myValue = 14870 Then strFileAs = .CompanyName '"Company" If myValue = 32791 Then strFileAs = .LastNameAndFirstName '"Last, First" If myValue = 32792 Then strFileAs = .CompanyAndFullName '"Company (Last, First)" If myValue = 32793 Then strFileAs = .FullNameAndCompany '"Last, First (Company)" If myValue = 32823 Then strFileAs = .FullName '"First Last" .FileAs = strFileAs .Save End With End If Err.Clear Next Set objOL = Nothing Set objNS = Nothing Set obj = Nothing Set objContact = Nothing Set objItems = Nothing Set objContactsFolder = Nothing End Sub 'reads the value for the registry key i_RegKey 'if the key cannot be found, the return value is "" Function RegKeyRead(i_RegKey As String) As String Dim myWS As Object On Error Resume Next 'access Windows scripting Set myWS = CreateObject("WScript.Shell") 'read key from registry RegKeyRead = myWS.RegRead(i_RegKey) End Function 'sets the registry key i_RegKey to the 'value i_Value with type i_Type 'if i_Type is omitted, the value will be saved as string 'if i_RegKey wasn't found, a new registry key will be created Sub RegKeySave(i_RegKey As String, _ i_Value As String, _ Optional i_Type As String = "REG_DWORD") Dim myWS As Object 'access Windows scripting Set myWS = CreateObject("WScript.Shell") 'write registry key myWS.RegWrite i_RegKey, i_Value, i_Type End Sub 'returns True if the registry key i_RegKey was found 'and False if not Function RegKeyExists(i_RegKey As String) As Boolean Dim myWS As Object On Error GoTo ErrorHandler 'access Windows scripting Set myWS = CreateObject("WScript.Shell") 'try to read the registry key myWS.RegRead i_RegKey 'key was found RegKeyExists = True Exit Function ErrorHandler: 'key was not found RegKeyExists = False End Function
Quelle 2017-03-08: https://www.slipstick.com/developer/bulk-change-fileas-format-contacts-default/
Das Makro für „anzeigen als“ :
Public Sub ChangeEmailDisplayName() Dim objOL As Outlook.Application Dim objNS As Outlook.NameSpace Dim objContact As Outlook.ContactItem Dim objItems As Outlook.Items Dim objContactsFolder As Outlook.MAPIFolder Dim obj As Object Dim strFirstName As String Dim strLastName As String Dim strFileAs As String On Error Resume Next Set objOL = CreateObject("Outlook.Application") Set objNS = objOL.GetNamespace("MAPI") Set objContactsFolder = objNS.GetDefaultFolder(olFolderContacts) Set objItems = objContactsFolder.Items For Each obj In objItems 'Test for contact and not distribution list If obj.Class = olContact Then Set objContact = obj With objContact If .Email1Address <>"" Then ' Uncomment the strFileAs line for the desired format ' Add the email address to any string using ' the following code: ' & " (" & .Email1Address & ")" 'Firstname Lastname (email address) format ' strFileAs = .FullName & " (" & .Email1Address & ")" 'Lastname, Firstname format strFileAs = .LastNameAndFirstName 'Company name (email address) format ' strFileAs = .CompanyName & " (" & .Email1Address & ")" 'Comapany Firstname Lastname (email address) format 'the display name will have a leading space if 'the contact doesn't have a company name 'strFileAs = .CompanyName & " " & .FullName & " (" & .Email1Address & ")" 'File As format 'Does not support Company (Fullname) format. 'Only Company name is used in the display name 'strFileAs = .FileAs .Email1DisplayName= strFileAs .Save End If End With End If Err.Clear Next Set objOL = Nothing Set objNS = Nothing Set obj = Nothing Set objContact = Nothing Set objItems = Nothing Set objContactsFolder = Nothing End Sub
Quelle 2017-03-08: https://www.slipstick.com/outlook/contacts/bulk-change-outlook-contacts-email-display-name-format/
Ich habe beide Makro erfolgreich anwenden können.
Viel Spaß und vergesst nicht das Backup davor!!!
Will man nun auch Offline (also außerhalb des Firmennetzwerk) auf die internen Kontakte zugreifen, so gibt es da einen kleinen Trick dafür.
Einfach die Kontakte aus dem GAL in die eigenen Kontakte einfügen wie in Abbildung
Quelle 2017-03-08 : https://www.slipstick.com/exchange/making-the-exchange-server-gal-portable/
Get -ActiveSyncDevice | ft |
Get -ActiveSyncDeviceStatistics -mailbox "manuel.maliszewski" |
Get -ActiveSyncDevice -OrganizationalUnit "Ausgeschiedene User" | Remove -ActiveSyncDevice |
Get -MailboxDatabase -Status | ft name, databasesize |
Übersicht über Datenbanken mit Informationen zu Retentation und Recoverable Quotas
Get -MailboxDatabase | Select Name, Server, MailboxRetention, Recoverab* | ft |
Get -Mailbox -Database "Berlin II - Datenbank II" | Get -MailboxStatistics | Sort LastLogonTime | ft DisplayName, TotalItemSize, LastLogonTime, LastLoggedOnUserAccount |
Get -MailboxFolderStatistics -identity "manuel.maliszewski" | ft FolderPath, FolderSize, ItemsInFolder, FolderAndSubfolderSize |
Get -Mailbox | Where-Object { $_.ForwardingAddress –ne $null } | Select Name, ForwardingAddress |
Get -Mailbox | Get -ADPermission | Where-Object { ($_.ExtendedRights -like "*send-as*" ) -and -not ($_.User -like "nt authority\self" ) } |
Get -Mailbox | Get -MailboxPermission | Where-Object { ($_.AccessRights -eq "*fullaccess*" ) -and ($_.User -like "*chilli*" ) } |
Get -Queue -Server S8K011 |
./ Move -TransportDatabase .ps1 –QueueDatabasepath “C:\Queue” –QueueDatabaseLoggingPath “D:\Queue” |
Test -ServiceHealth | Select ServicesNotRunning | foreach { Start-Service $_.ServicesNotRunning } |
Test -ServiceHealth | ft |
Test -SystemHealth |
Get -Mailbox -Server S8K011 | Set -Mailbox -language de -DE |
Get -Mailbox -Server S8K012 | sort Languages | ft name, Languages |
Get -Mailbox | Get -MailboxAutoReplyConfiguration | Where-Object { $_.AutoReplyState –eq “scheduled” } |
Get -MailboxDatabase -Server s8k011 | fl name, rpc\* |
Set -MailboxDatabase MailboxDatabaseName -IndexEnabled : $false |
Beim Installieren von Exchange Server 2010 wird automatisch eine Datenbank angelegt. Diese Läst sich nicht über die Gui löschen, auch wenn alle Postfächer verschoben sind. Darum muss man die
System-Postfächer verschieben:
Get -mailbox -Arbitration | New -MoveRequest -TargetDatabase "Berlin I - Postfach I" |
Danach muss man noch die Verschiebungsanforderungen löschen und die Datenbank ist entfernbar.
Quelle [2017-03-07]: http://chilltimes.de/2013/02/08/powershell-nutzliche-exchange-server-2010-befehle/
$psISE.CurrentPowerShellTab.AddOnsMenu.SubMenus.Add( "Connect to Exchange @ Contoso", { $ExSession= New-PSSession -ConfigurationName Microsoft.Exchange -ConnectionUri http://exserver.contoso.com/PowerShell/ -Authentication Kerberos Import-PSSession $ExSession }, "Control+Alt+1" ) $psISE.CurrentPowerShellTab.AddOnsMenu.SubMenus.Add( "Connect to Exchange On-Premise", { Add-PSSnapin Microsoft.Exchange.Management.PowerShell.E2010 . $env:ExchangeInstallPath\bin\RemoteExchange.ps1 Connect-ExchangeServer –auto }, "Control+Alt+2" ) $psISE.CurrentPowerShellTab.AddOnsMenu.SubMenus.Add( "Connect to Exchange Online", { $o365Cred= Get-Credential $o365Session= New-PSSession -ConfigurationName Microsoft.Exchange -ConnectionUri https://ps.outlook.com/powershell/ -Credential $o365Cred -Authentication Basic -AllowRedirection Import-PSSession $o365Session }, "Control+Alt+3" )
Quelle [2017-03-08]: https://eightwone.com/2012/10/25/adding-exchange-shell-items-to-powershell-ise/
Abhilfe kann eine Anpassung der Mailbox Einstellungen auf dem Exchangeserver per Powershell bringen.
Mit der folgendem Befehl erfragen Sie die aktuelle Einstellung:
Get-Mailbox name@domain.com | fl rulesquota
Erhöhen Sie den Wert für die Regeln wie folgt:
Set-Mailbox name@domain.com -rulesquota 256KB
Achtung: bei Erhöhung kann es zu Problemen bei Outlook 2007 und 2010 kommen
Quelle [2017-03-04] : https://support.microsoft.com/de-de/help/886616/some-rules-are-disabled,-and-you-receive-an-error-message-when-you-try-to-create-or-enable-rules-in-outlook
Microsoft veröffentlichte Anfang 2016 den kostenlosen Policy Analyzer, mit dem sich Änderungen in Gruppenrichtlinien nachverfolgen und Konflikte zwischen GPOs aufspüren lassen. Die erste Ausführung zeigte aber noch einige Defizite, die nun die Version 3.1 teilweise ausbügelt.
Quelle: https://www.windowspro.de/tool/group-policy-analyzer-31-support-fuer-deutsche-adml-central-store
Download: https://blogs.technet.microsoft.com/secguide/2016/10/22/policy-analyzer-v3-1-pre-release/
Exchange-Verwaltungsshell Konsole starten und rein mit den Schnipseln
E-Mail Adressen aller Mailbox Datenbanken auslesen:
Get-MailboxDatabase | Get-Mailbox | fl DisplayName, EmailAddresses > c:\temp\Mailbox.ctxt
E-Mail Adressen von Verteilergruppen auslesen:
Get-DistributionGroup | fl DisplayName, EmailAddresses > c:\temp\Verteilergruppen.txt
E-Mail Adressen aus einer öffentlichen Ordner Datenbank auslesen:
Get-MailPublicFolder | fl Displayname, EmailAddresses > c:\temp\PublicFolder.txt
hier die Quelle: http://www.wsuspraxis.de/anzeige-aller-e-mail-adressen-in-exchange-2013/
wer der Anleitung folgt, sollte erfolgreich in Microsoft Server 2012 R2 gelöschte Benutzer wiederherstellen können … hab es erfolgreich getestet