Beispiel:

Die Sicherheitsgruppe G_Test hat in dem Ordner Fileserver:\Daten\Temp Vollzugriff. Nun soll Gruppe N_Test dieselben Berechtigungen auf diesen Ordner erhalten.

Und da kommt Powershell wie gerufen. Mit folgendem Skript wird abgefragt, ab welchem Ordner + (Unterordner) überprüft werden soll. Danach wird automatisch nach den angegebenen Gruppen gesucht und diese duch die neue Domäne ersetzt. Auch die Vererbung wird geprüft und ggf. übertragen. Es funktioniert nur, wenn die Gruppen gleich heißen, kann aber schnell abgeändert werden.

#ChangeACL.ps1
 
#The possible values for Rights are 
# ListDirectory, ReadData, WriteData 
# CreateFiles, CreateDirectories, AppendData 
# ReadExtendedAttributes, WriteExtendedAttributes, Traverse
# ExecuteFile, DeleteSubdirectoriesAndFiles, ReadAttributes 
# WriteAttributes, Write, Delete 
# ReadPermissions, Read, ReadAndExecute 
# Modify, ChangePermissions, TakeOwnership
# Synchronize, FullControl
 
$StartingDir=Read-Host "What directory do you want to start at?"
 
foreach ($file in $(Get-ChildItem $StartingDir -recurse | where {$_.PsIsContainer})) {
  " "
  "Objekt: " + $file.FullName
 
  $name = Get-Acl $file.FullName | ForEach-Object { $_.Access  } | Group-Object IdentityReference | % {$_.Name}
  $rights = Get-Acl $file.FullName | % {$_.Access} | % {$_.FileSystemRights}
  $IsInherited = Get-Acl $file.FullName | % {$_.Access} | % {$_.InheritanceFlags}
 
  for($i=0;$i -lt $name.count ;$i++)
  {
        "User: " + $name[$i]
        "Rights: " + $rights[$i]
 
        #Insert your groups which will be replaced
        if($name[$i] -eq "domain_A\Test" -or $name[$i] -eq "domain_A\Test2")
        {
                $name[$i] = $name[$i].Substring(13)
                $name[$i] = "domain_B\"+$name[$i] #type in the new domainname
                $acl = Get-Acl $file.FullName
 
                $permission = $name[$i],$rights[$i],$IsInherited[$i],"None","Allow"
                $rule=new-object System.Security.AccessControl.FileSystemAccessRule $permission
 
                $acl.SetAccessRule($rule)
                $acl | Set-Acl $file.FullName
 
        }
  }
 
 }

Vielen ist es bekannt, dass die Exchange Server Konsole nur wenig Informationen über Postfächer ausgibt, zumindest, wenn man mehrere Postfächer vergleichen möchte. Powershell kann da schon mehr Infos gleichzeitig ausgeben, wobei hier die Übersichtlichkeit leidet.

Mit Hilfe des Exchange Dev Blogs von Glen Scales habe ich eine neue GUI erstellt, welche sehr viele Infos über die Mailboxen auf einem oder mehreren Exchange-Servern darstellt. Z.B.: Kann nach Postfachgröße (Anzahl der Elemente oder der Speicherbelegung) sortiert werden. Eine Auflistung der Unterordner in einem Postfach ist auch möglich.

Einen Auszug von Filtern zeigt der folgende Screenshot:

Außerdem kann zwischen verbundenen und nicht-verbundenen Postfächern geschaltet werden:

Das Skript muss auf einem Exchange-Server ausgeführt werden. Getestet wurde es auf einem deutschen Exchange-Server 2010. Das Skript muss daher in diesen Ordner kopiert werden: C:\Program Files\Microsoft\Exchange Server\V14\Scripts

Außerdem muss der ausführende Account Zugriffsberechtigungen auf den restlichen Postfächern besitzen.

Das Skript ist hier zum Download verfügbar.

In einem aktuellen Fall zieht Kunde X mit seinem Mailserver um. In dieser Umstellungszeit sollen nun alle Sender eine automatische Antwort erhalten, dass es eben zu Problemen kommen kann oder der Empfang von E-Mail’s nicht zu 100% gewährleistet ist.

Wie schon erwähnt, gibt es keine Transport-Regel o.ä. um so eine automatische-Antwort für bestimmte Postfächer zu setzen.  Dann bin ich auf das Glen’s Exchange Dev Blog aufmerksam geworden. Glen Scales hat eine Library geschrieben (EWSOofUtil.dll), die es für einen Administrator ermöglicht, die Automatische Antwort für jeder Postfach über EWS zu setzen.

Wie es funktioniert, erkläre ich im Folgenden:

Als erstes braucht ihr die EWSOofUtil.dll:

EWSOofUtil.dll [92.3KB] –enthält auch den Quellcode

Als nächstes müsst ihr euren Client Access Server (CAS) das Ausführen von Scripten erlauben:

set-ExecutionPolicy RemoteSigned

Um Änderungen an einem Postfach durchzuführen, müsst ihr die Berechtigung daran haben:

Add-MailboxPermission “test.user” -User “Administrator” -AccessRights FullAccess

Hier gebe ich dem Administrator volle Berechtigung auf das Postfach von test.user.

Nun können wir die Oof-Einstellungen setzen:

[Reflection.Assembly]::LoadFile(“C:\Users\administrator\Desktop\EWSOofUtil\EWSOofUtil.dll”)
$ExternalMessage=”I’m out of office!”
$oofutil = new-object EWSOofUtil.OofUtil
$oofutil.setoof(“test.user@test.org”,”Enabled”,”",$ExternalMessage)

• Als erstes müsst ihr die dll in die Powershell laden
• Danach wird die Nachricht gesetzt, hier kann auch kompletter html Code genommen werden. Einfach über $ExternalMessage = “<html><…></html>”
• Der letzte Befehl setzt die automatische Antwort für den User: “test.user” mit der externen Nachricht

Weitere Befehle können auch die Zeit einstellen, wann diese Nachricht gesendet wird:

$oofutil.setoof(“test.user@test.org”,”Scheduled”, [datetime]::Now.Date.ToLocalTime(),[datetime]::Now.Date.AddDays(4).ToLocalTime())

Überprüfen kann man es dann im OWA:

Weitere Beispiele für den Einsatz der dll findet ihr hier:

http://msgdev.mvps.org/setoofexamples.htm

So kann man mit schönen Powershell Skripts eine automatische Wartungsmeldung an alle Postfächer binden.

$users = Get-Mailbox -Filter (“customAttribute1 -eq ‘Firma1′”)
$email = $users | % {$_.userprincipalname}

$emails = $users | % {$_.userprincipalname}

foreach($mail in $emails){$oofutil.setoof($mail,”Enabled”,”",$ExternalMessage)}

Also habe ich schnell ein Automator-Programm zusammen geschustert, welches euch die Arbeit abnimmt.

Zuerst müsst ihr die Dateien auswählen, welche umbenannt werden sollen:

Danach werdet ihr aufgefordert, inwiefern der Dateinamen geändert werden soll:

Hier findet ihr das Programm zum Download:

Download

Changelog:

• Kindersound bei Lösung des Rätsels ausgetauscht

• kleine Designverbesserung

Changelog:

• Zu bestätigende Meldungen bei einem nicht vorhandenen Buchstaben entfernt
• Sprechblasen hinzugefügt: Zeigen an welcher Buchstabe gewählt wurde, keine extra Bestätigung mehr nötig

Heute bin ich auf das Problem gestossen, dass ich auf mehreren Terminalservern einige Informationen von Druckern brauchte. Das per Hand  abzuschreiben, ist natürlich verschwendete Zeit.

Nach kurzer Recherche bin ich auf diverse Scripts gestoßen.

Powershell und VBScripts. Da es sich bei den Servern um 2003er handelt, ist kein Powershell installiert. Somit habe ich mich für ein VBScript entschieden.

Folgende Daten werden ausgelesen:

• Druckername
• Freigabename
• Treibername
• Anschluss
• Ort
• Beschreibung
• Systemname
• Druckprozessor

Diese Daten werden in der Kommandozeile ausgegeben. Mir reichten eigentlich nur folgende Daten:

• Druckername
• Portname
• Ort
• Beschreibung

Diese Ausgabe sollte in einer Textdatei erfolgen und wird standardmäßig unter C:\temp\xxx.txt geschrieben.

Hier das komplette Skript:

strComputer = “.”

Set objWMIService = GetObject(“winmgmts:” _
& “{impersonationLevel=impersonate}!\\” & strComputer & “\root\cimv2″)

Set colInstalledPrinters = objWMIService.ExecQuery _
(“SELECT * FROM Win32_Printer”)

Set WshNetwork = WScript.CreateObject(“WScript.Network”)

WScript.Echo(“This Computer’s Name = ” & WshNetwork.ComputerName)

Set fso = CreateObject(“scripting.filesystemobject”)
set txtfile = fso.OpenTextFile(“c:\temp\Drucker_von_” & strComputer & “.txt”, 2, True)

For Each objPrinter in colInstalledPrinters

If (objPrinter.Attributes AND 4) = 4 then
WScript.Echo(“*****> Default printer — Start”)
Else
WScript.Echo(“—”)
End If

WScript.Echo(“Name: ” & objPrinter.Name)
WScript.Echo(“Share name: ” & objPrinter.ShareName)
WScript.Echo(“Driver name: ” & objPrinter.DriverName)
WScript.Echo(“Caption: ” & objPrinter.Caption)
WScript.Echo(“Port: ” & objPrinter.PortName)
WScript.Echo(“Location: ” & objPrinter.Location)
WScript.Echo(“Description: ” & objPrinter.Description)

WScript.Echo(“System name: ” & objPrinter.SystemName)
WScript.Echo(“Print processor: ” & objPrinter.PrintProcessor)

txtfile.WriteLine(“Name: ” & objPrinter.Name & “, Port: ” & objPrinter.PortName & “, Location: ” & objPrinter.Location & “,Description: ” & objPrinter.Description)

If (objPrinter.Attributes AND 4) = 4 then
WScript.Echo(“*****> Default printer — End”)
Else
WScript.Echo(“—”)
End If

Next
txtfile.Close

Diese Zeile in Notepad einfügen und als vbs-Datei speichern.

Aufruf über die Kommandozeile: csscript.exe scriptname.vbs.

Änderungen können hier nachgelesen werden: Infos.

Video der Änderungen:

Gestern ging das Update nach Apple und bringt folgende Neuerungen mit:

Neue Features:

 - Es wird zwischen den Runden gespeichert
 - Sounds und Musik hinzugefügt
 - Animationen erweitert
 - Rätsel erweitert
 - Neue Computernamen hinzugefügt
 - Firmware 2.x kompatibel

Bugfixing:

 - falsche Rätsel entfernt
 - Vokale teilweise nicht anwählbar, obwohl man mehr als 300€ hatte
 - kleinere Bugs entfernt

Weitere Infos findet ihr hier:

Zur App direkt geht es hier entlang: